From 7273094ffe2694ee8228a052876ca5dc47a69f82 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Thu, 25 Sep 2008 13:20:30 -0700 Subject: [PATCH] Improvements to randomize based on IRC feedback. --- extra/sequences/lib/lib.factor | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor index 8bf95b6bc3..a7202c9cae 100755 --- a/extra/sequences/lib/lib.factor +++ b/extra/sequences/lib/lib.factor @@ -166,10 +166,5 @@ PRIVATE> USE: math.ranges USE: random : randomize ( seq -- seq' ) - dup length 1- - [ dup 1 > ] [ - [ [0,b) random ] keep dup - [ rot [ exchange ] keep ] dip 1- - ] [ drop ] while ; - + dup length 1 swap [a,b) [ dup random pick exchange ] each ;