distinct.fs

let has number list = List.exists (fun elem -> elem = number) list

let rec distinct list =
    match list with
    [] -> []
    | x :: xs when has x xs -> distinct xs
    | x :: xs -> x :: distinct xs
    
let l = [ 1; 2; 3; 1; 2; 1 ]
distinct l