March 2014 update

2014-04-02 16:56:35 +00:00 · 2014-04-02 16:56:35 +00:00 · a25938f123
commit a25938f123
parent 09687c4926
1846 changed files with 21876 additions and 5203 deletions
--- a/Task/Remove-duplicate-elements/OCaml/remove-duplicate-elements-2.ocaml
+++ b/Task/Remove-duplicate-elements/OCaml/remove-duplicate-elements-2.ocaml
@ -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]