aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux/math/random.lux9
1 files changed, 1 insertions, 8 deletions
diff --git a/stdlib/source/lux/math/random.lux b/stdlib/source/lux/math/random.lux
index 695323c98..e90c3eb6d 100644
--- a/stdlib/source/lux/math/random.lux
+++ b/stdlib/source/lux/math/random.lux
@@ -90,14 +90,7 @@
(def: #export frac
(Random Frac)
- (do Monad<Random>
- [left (bits +26)
- right (bits +27)]
- (wrap (|> right
- (n/+ (bit.left-shift +27 left))
- nat-to-int
- int-to-frac
- (f// (|> +1 (bit.left-shift +53) nat-to-int int-to-frac))))))
+ (:: Monad<Random> map number.bits-to-frac nat))
(def: #export deg
(Random Deg)