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

View File

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