aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Remove-duplicate-elements/OCaml/remove-duplicate-elements-3.ocaml
View file

@ -1 +1,6 @@
List.sort_uniq compare [1;2;3;2;3;4]
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

1
Task/Remove-duplicate-elements/OCaml/remove-duplicate-elements-4.ocaml Normal file
View file

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