25 lines
552 B
Plaintext
25 lines
552 B
Plaintext
type storage = int;
|
|
|
|
/* variant defining pseudo multi-entrypoint actions */
|
|
|
|
type action =
|
|
Increment(int)
|
|
| Decrement(int);
|
|
|
|
let add = ((a: int), (b: int)) => a + b;
|
|
|
|
let subtract = ((a: int), (b: int)) => a - b;
|
|
|
|
/* real entrypoint that re-routes the flow based on the action provided */
|
|
|
|
let main2 = ((p: action), storage) => {
|
|
let storage =
|
|
switch (p) {
|
|
| Increment(n) => add(storage, n)
|
|
| Decrement(n) => subtract(storage, n)
|
|
};
|
|
(([]: list(operation)), storage);
|
|
};
|
|
|
|
let main = (x: (action, storage)) => main2(x[0],x[1]);
|