RosettaCodeData/Task/Currying/OCaml/currying-1.ml

5 lines
220 B
OCaml

let addnums x y = x+y (* declare a curried function *)
let add1 = addnums 1 (* bind the first argument to get another function *)
add1 42 (* apply to actually compute a result, 43 *)