leifmetcalf

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

leifmetcalf

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)]

leifmetcalf

Keybase proof

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: