I hereby claim:
- I am jackwillis on github.
- I am jackie (https://keybase.io/jackie) on keybase.
- I have a public key whose fingerprint is 21BA 259F D30B 002B BABD 1195 57A5 8973 A025 781C
To claim this, I am signing this object:
| #!/bin/sh | |
| play -r 32k -t raw -e s -b 16 -c 1 -V1 - |
| class Hash | |
| # http://stackoverflow.com/a/14881438/3551701 | |
| def product | |
| product = values[0].product(*values[1..-1]) | |
| product.map {|p| Hash[keys.zip(p)] } | |
| end | |
| end | |
| class Proc |
| # Better Kernel::system in Ruby | |
| def sys(cmd) | |
| *resp, status = `#{cmd}; echo -n "\n$?"`.lines | |
| [resp.join.chomp, status.to_i] | |
| end | |
| sys("echo foo") #=> ["foo\n", 0] | |
| sys("echo -n foo") #=> ["foo", 0] | |
| sys("false") #=> ["", 1] |
| <!DOCTYPE html> | |
| <html> | |
| <head> | |
| <meta charset="UTF-8"> | |
| <title>Time-based Redirect</title> | |
| <script> | |
| var pageTimes = [ | |
| { begin: "7:30 AM", end: "8:00 AM", href: "http://dfgsdfs" }, | |
| { begin: "8:00 AM", end: "12:00 PM", href: "http://tdddfgdfgdfgs" }, |
I hereby claim:
To claim this, I am signing this object:
| require 'concurrent' | |
| TASKS = Concurrent::Map.new | |
| class Task | |
| def initialize(ref, dep_refs = [], &action) | |
| @ref = ref | |
| @dep_refs = dep_refs | |
| @promise = Concurrent::Promise.new(&action) | |
| end |
| import Data.Monoid | |
| data NaiveTime = NT Int Int deriving (Show, Eq) | |
| instance Monoid NaiveTime where | |
| mempty = NT 0 0 | |
| mappend (NT h m) (NT h' m') = NT h'' m'' | |
| where h'' = (h + h' + ((m + m') `quot` 60)) `mod` 24 | |
| m'' = (m + m') `mod` 60 |
| name: RPGPrompt | |
| version: 0.1.0.0 | |
| synopsis: RPG-style text prompt | |
| author: Jack Willis | |
| maintainer: [email protected] | |
| license: MIT | |
| build-type: Simple | |
| cabal-version: >=1.10 | |
| executable RPGPrompt |
| {-# LANGUAGE NoMonomorphismRestriction #-} | |
| -- pull in the necessary modules | |
| import Control.Cond (if') | |
| import Control.Monad (ap) | |
| import Control.Monad.Fix (fix) | |
| import Data.Foldable (null) | |
| -- fold over a list | |
| fold :: (a -> b -> a) -> a -> [b] -> a |
| module Flower where | |
| -- there's probably mistakes in here, also it is not a serious model of the flower | |
| data Pedicel = Pedicel | |
| data Tepal = Tepal | |
| data Sepal = Sepal | |
| data Petal = Petal | |
| data Perigonium = Perigonium [Tepal] |