diff options
Diffstat (limited to 'examples')
| -rw-r--r-- | examples/atom-concept.milch | 11 | ||||
| -rw-r--r-- | examples/try.milch | 6 |
2 files changed, 17 insertions, 0 deletions
diff --git a/examples/atom-concept.milch b/examples/atom-concept.milch new file mode 100644 index 0000000..4158b45 --- /dev/null +++ b/examples/atom-concept.milch @@ -0,0 +1,11 @@ +(let state (atom! 10)) + +(let do-loop! (\![i n] + (match true + (lt? i n) (do (update! dec state) + (do-loop! (inc i) n)) + otherwise unit))) + +(do-loop! 0 5) +(get! state) +; => 5 diff --git a/examples/try.milch b/examples/try.milch new file mode 100644 index 0000000..68d6cc2 --- /dev/null +++ b/examples/try.milch @@ -0,0 +1,6 @@ +(import "core/common") +(import "core/result") + +; calls read-file! and wraps the result in a Result/ok on success +; in case of error, calls Result/ex on the error string +(try! Result/ex (. Result/ok read-file!) "does-not-exist.txt") |