8 lines
240 B
Text
8 lines
240 B
Text
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]
|