fork(2) download
  1. let f xs =
  2. match xs with
  3. | h :: t -> t @ [h]
  4. | _ -> []
  5.  
  6. printfn "%A" <| f [1..10]
Success #stdin #stdout 0.2s 26448KB
stdin
Standard input is empty
stdout
[2; 3; 4; 5; 6; 7; 8; 9; 10; 1]