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/state_rng.js | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 samples/state_rng.js

(limited to 'samples/state_rng.js')

diff --git a/samples/state_rng.js b/samples/state_rng.js
new file mode 100644
index 0000000..efb8ff3
--- /dev/null
+++ b/samples/state_rng.js
@@ -0,0 +1,14 @@
+import * as state from '../src/state.js'
+
+const rng = max => seed => (1103515245 * seed + 12345) % max
+const rand = seed => (g => state.State(g)(g))(rng(1000)(seed))
+
+// or, simply:
+const threeNumbers = state.DO(function* () {
+    const a = yield rand
+    const b = yield rand
+    const c = yield rand
+    return [a, b, c]
+})
+
+console.log(threeNumbers(161)(st => v => v)) // [790, 895, 620]
-- 
cgit v1.2.3