Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
OCaml `List.group_by`
let group_by (f : 'a -> 'b) (ll : 'a list) : ('b, 'a list) Hashtbl.t =
(fun acc e ->
let grp = f e in
let grp_mems = try Hashtbl.find acc grp with Not_found -> [] in
Hashtbl.replace acc grp (e :: grp_mems);
(Hashtbl.create 100)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment