fork download
copy 
  1. let splitAt n list = 
  2.   let splitter ((xs, ys), n') c =
  3.     if n' < n then
  4.       ((c :: xs, ys), n' + 1)
  5.     else
  6.       ((xs, c :: ys), n' + 1)
  7.   List.fold splitter (([], []), 0) list 
  8.   |> fst 
  9.   |> (fun (xs, ys) -> (List.rev xs, List.rev ys))
  10.  
  11. printfn "%A" (splitAt 3 [2; 90; 1; 22])
Success #stdin #stdout 0.21s 12680KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
([2; 90; 1], [22])
https://ideone.com/LdJ8T
language:
F# (mono 4.1)
created:
14 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!