From 6da602b0a29afcd2aa15725547375a80e30b3983 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Wed, 27 Nov 2024 02:12:12 +0100
Subject: initial commit

---
 samples/maybe.js | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 samples/maybe.js

(limited to 'samples/maybe.js')

diff --git a/samples/maybe.js b/samples/maybe.js
new file mode 100644
index 0000000..0276f94
--- /dev/null
+++ b/samples/maybe.js
@@ -0,0 +1,18 @@
+import * as maybe from "../src/maybe.js"
+import * as fs from "fs"
+
+function divide(a, b) {
+    if (b === 0)
+        return maybe.Nothing
+    return maybe.Just(a / b)
+}
+
+const input = +fs.readFileSync(0, "utf-8");
+const result = maybe.DO(function* () {
+    const a = yield divide(42, input)
+    const b = yield divide(42, a)
+    const c = yield divide(b, a)
+    return c
+})
+
+console.log(maybe.show(result))
-- 
cgit v1.2.3