I hereby claim:
- I am leifmetcalf on github.
- I am leifm (https://keybase.io/leifm) on keybase.
- I have a public key ASAyxdcjF3-7dEFHAcbE4SU89IMHzvkM45k9I6Bj5WILMQo
To claim this, I am signing this object:
open Core | |
let () = | |
let f (elves, acc) line = | |
if String.is_empty line then | |
(acc :: elves, 0) | |
else | |
(elves, acc + int_of_string line) | |
in | |
let (elves, acc) = In_channel.fold_lines In_channel.stdin ~init:([], 0) ~f in |
module Supermarket where | |
import Data.List | |
import Control.Arrow | |
-- Some type synonyms to clean up type signatures | |
type User = String | |
type History = [[String]] | |
type Map key value = [(key, value)] |
I hereby claim:
To claim this, I am signing this object: