Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
16 lines (11 sloc) 217 Bytes
open Core.Std
type t = (string * int) list
let empty = []
let to_list x = x
let touch t s =
let count =
match List.Assoc.find t s with
| None -> 0
| Some x -> x
in
List.Assoc.add t s (count + 1)