random: 1 swap - was redundant.

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 81a69e6e94083893f090cbb72e04792b9e83fe7a..a05cd1185cf3b5ee1920b55bb13a8d363b266540 100644 (file)
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -115,13 +115,13 @@ ERROR: too-many-samples seq n ;
     normal-random-float exp ;
 
 : exponential-random-float ( lambda -- n )
-    0. 1. uniform-random-float 1 swap - log neg swap / ;
+    0. 1. uniform-random-float log neg swap / ;
 
 : weibull-random-float ( lambda k -- n )
-    [ 0. 1. uniform-random-float 1 swap - log neg ] dip 1. swap / ^ * ;
+    [ 0. 1. uniform-random-float log neg ] dip 1. swap / ^ * ;
 
 : pareto-random-float ( alpha -- n )
-    [ 0. 1. uniform-random-float 1 swap - ] dip [ 1. swap / ] bi@ ^ ;
+    [ 0. 1. uniform-random-float ] dip [ 1. swap / ] bi@ ^ ;
 
 : beta-random-float ( alpha beta -- n )
     [ 1. normal-random-float ] dip over zero?