10 lines
173 B
OCaml
10 lines
173 B
OCaml
|
let unique li =
|
||
|
|
let rec aux acc = function
|
||
|
|
| [] -> (List.rev acc)
|
||
|
|
| x::xs ->
|
||
|
|
if List.mem x acc
|
||
|
|
then aux acc xs
|
||
|
|
else aux (x::acc) xs
|
||
|
|
in
|
||
|
|
aux [] li
|