random: Change weibull-random-float to use alpha/beta parameters.

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 906170ecfed5b0082fb4a3945d99d1e35c4378fa..090895ee8d7da80cd53b1f5d3bab106db3dfd4f3 100644 (file)
--- a/basis/random/random.factor
+++ b/basis/random/random.factor
@@ -120,8 +120,11 @@ ERROR: too-many-samples seq n ;
 : exponential-random-float ( lambda -- n )
     random-unit log neg swap / ;
 
-: weibull-random-float ( lambda k -- n )
-    [ random-unit log neg ] dip 1. swap / ^ * ;
+: weibull-random-float ( alpha beta -- n )
+    [
+        [ random-unit log neg ] dip
+        1. swap / ^
+    ] dip * ;
 
 : pareto-random-float ( alpha -- n )
     [ random-unit ] dip [ 1. swap / ] bi@ ^ ;