diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/math.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/test/lux/math.lux b/stdlib/source/test/lux/math.lux index 96ba96e35..8eae10808 100644 --- a/stdlib/source/test/lux/math.lux +++ b/stdlib/source/test/lux/math.lux @@ -36,7 +36,7 @@ (<| (_.covering /._) ($_ _.and (do {! random.monad} - [#let [~= (f.approximately? ..margin_of_error)] + [.let [~= (f.approximately? ..margin_of_error)] angle (|> random.safe_frac (\ ! map (f.* /.tau)))] ($_ _.and (_.cover [/.sin /.asin] @@ -90,7 +90,7 @@ (f.approximately? ..margin_of_error sample))) )) (do {! random.monad} - [#let [~= (f.approximately? ..margin_of_error)] + [.let [~= (f.approximately? ..margin_of_error)] sample (\ ! map (f.* +10.0) random.safe_frac) power (\ ! map (|>> (n.% 10) inc n.frac) random.nat)] ($_ _.and @@ -106,7 +106,7 @@ (~= power)))) )) (do {! random.monad} - [#let [~= (f.approximately? ..margin_of_error)] + [.let [~= (f.approximately? ..margin_of_error)] angle (\ ! map (f.* /.tau) random.safe_frac) sample (\ ! map f.abs random.safe_frac) big (\ ! map (f.* +1,000,000,000.00) random.safe_frac)] @@ -144,7 +144,7 @@ (and (f.>= x h) (f.>= y h))))) (do {! random.monad} - [#let [~= (f.approximately? ..margin_of_error) + [.let [~= (f.approximately? ..margin_of_error) tau/4 (f./ +4.0 /.tau)] x (\ ! map (f.* tau/4) random.safe_frac) y (\ ! map (f.* tau/4) random.safe_frac)] |