10 lines
236 B
Plaintext
10 lines
236 B
Plaintext
|
let conv_test (j : int) (k : int) = j + k
|
||
|
|
|
||
|
|
let main (i : int) : int = conv_test i 10
|
||
|
|
|
||
|
|
let partial (a : int) (b : int) : int = a + b
|
||
|
|
|
||
|
|
let mk_partial (j : int) : int -> int = partial j
|
||
|
|
|
||
|
|
let partial_apply (i : int) : int = mk_partial 10 i
|