examples/atom.milch


1
2
3
4
5
6
7
8
9
10
11
12
13
14

(import "core/common")

(let state (atom! 10))

(let do-loop! (\![i n]
    (match true
        (lt? i n) (do (atom-update! inc state)
                      (do-loop! (inc i) n))
        otherwise unit)))

(do-loop! 0 5)

(atom-get! state)
; => 15