diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-09 23:52:58 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-09 23:52:58 +0200 |
| commit | 8baa85fd4c3607a7b3cebf2518a930a3b8a924bf (patch) | |
| tree | 20b98351aca4edc8635e34b96d779bcecd9d8e19 /examples | |
| parent | 8ba98a86805c886719057f9df0d5a74c58c6dabd (diff) | |
Add atom data type
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/atom.milch (renamed from examples/atom-concept.milch) | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/examples/atom-concept.milch b/examples/atom.milch index 4158b45..0ee6f8f 100644 --- a/examples/atom-concept.milch +++ b/examples/atom.milch @@ -1,11 +1,14 @@ +(import "core/common") + (let state (atom! 10)) (let do-loop! (\![i n] (match true - (lt? i n) (do (update! dec state) + (lt? i n) (do (atom-update! inc state) (do-loop! (inc i) n)) otherwise unit))) (do-loop! 0 5) -(get! state) -; => 5 + +(atom-get! state) +; => 15 |