steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

better randomize

db4
Doug Coleman 2008-09-25 16:17:37 -05:00
parent fdde7e410b
commit 86339deb22
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/sequences/lib/lib.factor
View File

@ -166,5 +166,5 @@ PRIVATE>
USE: math.ranges USE: math.ranges
USE: random USE: random
: randomize ( seq -- seq' ) : 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 ;