diff options
Diffstat (limited to 'stdlib/source/test/lux/math/logic/fuzzy.lux')
| -rw-r--r-- | stdlib/source/test/lux/math/logic/fuzzy.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/test/lux/math/logic/fuzzy.lux b/stdlib/source/test/lux/math/logic/fuzzy.lux index 2cfc62142..9ea59ccd4 100644 --- a/stdlib/source/test/lux/math/logic/fuzzy.lux +++ b/stdlib/source/test/lux/math/logic/fuzzy.lux @@ -39,10 +39,10 @@ (do [! random.monad] [sample random.rev - threshold_0 (# ! each (r.% .5) - random.rev) - threshold_1 (# ! each (|>> (r.% .5) (r.+ .5)) - random.rev) + threshold_0 (at ! each (r.% .5) + random.rev) + threshold_1 (at ! each (|>> (r.% .5) (r.+ .5)) + random.rev) .let [bottom (r.min threshold_0 threshold_1) top (r.max threshold_0 threshold_1)]] @@ -89,7 +89,7 @@ [bottom middle_bottom middle_top top] (|> random.rev (random.set r.hash 4) - (# ! each (|>> set.list (list.sorted r.<))) + (at ! each (|>> set.list (list.sorted r.<))) (random.one (function (_ thresholds) (case thresholds (pattern (list threshold_0 threshold_1 threshold_2 threshold_3)) @@ -173,7 +173,7 @@ [bottom middle_bottom middle_top top] (|> random.rev (random.set r.hash 4) - (# ! each (|>> set.list (list.sorted r.<))) + (at ! each (|>> set.list (list.sorted r.<))) (random.one (function (_ thresholds) (case thresholds (pattern (list threshold_0 threshold_1 threshold_2 threshold_3)) |