From 7273094ffe2694ee8228a052876ca5dc47a69f82 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
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) <reversed> [ dup random pick exchange ] each ;