From 8e3f0cdeac18b62b210c574650899e2b3233df5e Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 30 Mar 2012 18:38:18 -0700
Subject: [PATCH] random: Change weibull-random-float to use alpha/beta
 parameters.

---
 basis/random/random.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/basis/random/random.factor b/basis/random/random.factor
index 906170ecfe..090895ee8d 100644
--- 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@ ^ ;