Ideone.com

download

let uncurry f (x, y) = f x y
and k x y = x
and k' x y = y
in
let fst = uncurry k
and snd = uncurry k'
in ()

Success #stdin #stdout 0s 4380KB

stdin

Standard input is empty

stdout

Standard output is empty

https://ideone.com/YirJoM

language:

OCaml (ocamlopt 4.05.0)

created:

visibility:

public

Share or Embed source code

The brand new service which powers Ideone!

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