fork download

copy

let (***) f g = fun (a, b) -> (f a, g b)
 
let biApply f = f *** f
 
let splitAt n list = 
  let splitter ((xs, ys), n') c =
    if n' < n then
      ((c :: xs, ys), n' + 1)
    else
      ((xs, c :: ys), n' + 1)
  List.fold splitter (([], []), 0) list 
  |> fst 
  |> biApply List.rev
 
printfn "%A" (splitAt 3 [2; 90; 1; 22])

/home/no6o6a/prog.fs(1,32): error FS0039: The value or constructor 'f' is not defined

/home/no6o6a/prog.fs(13,14): error FS0001: Expecting a type supporting the operator '***' but given a function type. You may be missing an argument to a function.

/home/no6o6a/prog.fs(3,19): error FS0043: Expecting a type supporting the operator '***' but given a function type. You may be missing an argument to a function.

/home/no6o6a/prog.fs(15,15): error FS0039: The value or constructor 'splitAt' is not defined

/home/no6o6a/prog.fs(3,19): error FS0043: Expecting a type supporting the operator '***' but given a function type. You may be missing an argument to a function.

Standard output is empty