fork(6) download
copy 
  1. let rec removeDups xs =
  2.     match xs with
  3.     | h :: k :: t when h = k -> removeDups (h :: t)
  4.     | h :: t                 -> h :: removeDups t
  5.     | []                     -> []
  6.  
  7. do
  8.    printfn "%A" <|  removeDups  [1; 2; 2; 3]
Success #stdin #stdout 0.19s 26456KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[1; 2; 3]
https://ideone.com/4gAlV4
language:
F# (mono 4.1)
created:
10 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!