20 lines
450 B
Plaintext
20 lines
450 B
Plaintext
type storage = int
|
|
|
|
(* variant defining pseudo multi-entrypoint actions *)
|
|
|
|
type action =
|
|
Increment of int
|
|
| Decrement of int
|
|
|
|
let add (a: int) (b: int) : int = a + b
|
|
let sub (a: int) (b: int) : int = a - b
|
|
|
|
(* real entrypoint that re-routes the flow based on the action provided *)
|
|
|
|
let main (p, s: action * storage) =
|
|
let storage =
|
|
match p with
|
|
Increment n -> add s n
|
|
| Decrement n -> sub s n
|
|
in ([] : operation list), storage
|