From b23f3f8d56cfa8d9beb18a593141adc57e9e4666 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 30 Mar 2012 17:57:40 -0700 Subject: [PATCH] random: 1 swap - was redundant. --- basis/random/random.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/random/random.factor b/basis/random/random.factor index 81a69e6e94..a05cd1185c 100644 --- 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?