aboutsummaryrefslogtreecommitdiffhomepage
path: root/samples/fun/rng-state.bruijn
diff options
context:
space:
mode:
Diffstat (limited to 'samples/fun/rng-state.bruijn')
-rw-r--r--samples/fun/rng-state.bruijn4
1 files changed, 2 insertions, 2 deletions
diff --git a/samples/fun/rng-state.bruijn b/samples/fun/rng-state.bruijn
index 49d77bc..2297728 100644
--- a/samples/fun/rng-state.bruijn
+++ b/samples/fun/rng-state.bruijn
@@ -17,6 +17,6 @@ rand-bool map even? rand
# normal bind
triple rand >>= [rand >>= [rand >>= [pure [0 1 2 3]]]]
-:test ((triple (+50) [[1]]) =? (+595)) ([[[2]]])
+:test ((triple (+50) [[1]] [[[0]]]) =? (+595)) ([[1]])
-main string→number → triple
+main string→number → triple → &[[1]]