Data commit

Task/Remove-duplicate-elements/OCaml/remove-duplicate-elements-1.ocaml

@@ -0,0 +1,7 @@
+let uniq lst =
+  let unique_set = Hashtbl.create (List.length lst) in
+  List.iter (fun x -> Hashtbl.replace unique_set x ()) lst;
+  Hashtbl.fold (fun x () xs -> x :: xs) unique_set []
+
+let _ =
+  uniq [1;2;3;2;3;4]

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]

Task/Remove-duplicate-elements/OCaml/remove-duplicate-elements-3.ocaml

@@ -0,0 +1,6 @@
+let uniq l =
+  let rec tail_uniq a l =
+    match l with
+      | [] -> a
+      | hd::tl -> tail_uniq (hd::a) (List.filter (fun x -> x  != hd) tl) in
+  tail_uniq [] l

Task/Remove-duplicate-elements/OCaml/remove-duplicate-elements-4.ocaml

@@ -0,0 +1 @@
+List.sort_uniq compare [1;2;3;2;3;4]