2019-06-11 01:27:59 +02:00
|
|
|
type storage = unit
|
|
|
|
|
|
2020-03-02 18:01:56 +01:00
|
|
|
let main (p, store : unit * storage) : operation list * storage =
|
2020-02-27 17:51:29 +01:00
|
|
|
let n =
|
|
|
|
|
(fun (f : int * int -> int) (x : int) (y : int) -> f (y,x))
|
|
|
|
|
(fun (x : int) (y : int) -> x + y)
|
|
|
|
|
0
|
|
|
|
|
1
|
|
|
|
|
in ([] : operation list), store
|
