diff options
-rw-r--r-- | stdlib/source/lux/math/random.lux | 9 |
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) |