- Improved random-generation of Frac numbers.

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)