2019-06-06 20:40:05 +04:00
|
|
|
type storage = int * int list
|
|
|
|
|
|
|
|
|
|
type param = int list
|
|
|
|
|
|
2019-09-21 13:30:41 +04:00
|
|
|
let x : int list = []
|
|
|
|
|
let y : int list = [ 3 ; 4 ; 5 ]
|
|
|
|
|
let z : int list = 2 :: y
|
|
|
|
|
|
2019-06-06 20:40:05 +04:00
|
|
|
let%entry main (p : param) storage =
|
|
|
|
|
let storage =
|
|
|
|
|
match p with
|
|
|
|
|
[] -> storage
|
|
|
|
|
| hd::tl -> storage.(0) + hd, tl
|
|
|
|
|
in (([] : operation list), storage)
|
