11 lines
244 B
Plaintext
11 lines
244 B
Plaintext
type action =
|
|
| Increment of int
|
|
| Decrement of int
|
|
|
|
let main (ps : action * int) : (operation list * int) =
|
|
let storage =
|
|
match ps.0 with
|
|
| Increment n -> ps.1 + n
|
|
| Decrement n -> ps.1 - n in
|
|
(([] : operation list) , storage)
|