Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,8 @@
|
|||
let uniq lst =
|
||||
let seen = Hashtbl.create (List.length lst) in
|
||||
List.filter (fun x -> let tmp = not (Hashtbl.mem seen x) in
|
||||
Hashtbl.replace seen x ();
|
||||
tmp) lst
|
||||
|
||||
let _ =
|
||||
uniq [1;2;3;2;3;4]
|
||||
Loading…
Add table
Add a link
Reference in a new issue