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

Move sequences.lib:randomize to random

db4
Slava Pestov 2008-12-18 00:15:07 -06:00
parent 11df79e5a6
commit 2c9ec65acf
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/random/random.factor
View File

@ -51,6 +51,9 @@ PRIVATE>
[ length random-integer ] keep nth [ length random-integer ] keep nth
] if-empty ; ] if-empty ;
: randomize ( seq -- seq' )
dup length 1 (a,b] [ dup random pick exchange ] each ;
: delete-random ( seq -- elt ) : delete-random ( seq -- elt )
[ length random-integer ] keep [ nth ] 2keep delete-nth ; [ length random-integer ] keep [ nth ] 2keep delete-nth ;