Cleaner version of randomize.

2008-09-25 21:19:28 -07:00 · 2008-09-25 21:19:28 -07:00 · c6d8362d97
parent 7273094ffe
commit c6d8362d97
1 changed files with 1 additions and 1 deletions
--- a/extra/sequences/lib/lib.factor
+++ b/extra/sequences/lib/lib.factor
@ -166,5 +166,5 @@ PRIVATE>
 USE: math.ranges
 USE: random 
 : randomize ( seq -- seq' )
-    dup length 1 swap [a,b) <reversed> [ dup random pick exchange ] each ;
+    dup length 1 (a,b] [ dup random pick exchange ] each ;