Improvements to randomize based on IRC feedback.

db4
John Benediktsson 2008-09-25 13:20:30 -07:00
parent 5bb148fd10
commit 7273094ffe
1 changed files with 1 additions and 6 deletions

View File

@ -166,10 +166,5 @@ PRIVATE>
USE: math.ranges USE: math.ranges
USE: random USE: random
: randomize ( seq -- seq' ) : randomize ( seq -- seq' )
dup length 1- dup length 1 swap [a,b) <reversed> [ dup random pick exchange ] each ;
[ dup 1 > ] [
[ [0,b) random ] keep dup
[ rot [ exchange ] keep ] dip 1-
] [ drop ] while ;