Fix rng state

marvinborner · Nov 27, 2024 · 82ebc97 · 82ebc97
1 parent 4b38d1a
commit 82ebc97
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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]]