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)
|
2019-09-24 01:33:25 +04:00
|
|
|
|
|
|
|
|
let fold_op (s : int list) : int =
|
|
|
|
|
let aggregate = fun (prec : int) (cur : int) -> prec + cur in
|
|
|
|
|
List.fold s 10 aggregate
|
