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

random: use nths-unsafe in sample.

John Benediktsson 2013-04-06 14:20:42 -07:00
parent 775fc57d30
commit 206d42c930
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/random/random.factor
View File

@ -116,7 +116,7 @@ ERROR: too-many-samples seq n ;
: sample ( seq n -- seq' ) : sample ( seq n -- seq' )
2dup [ length ] dip < [ too-many-samples ] when 2dup [ length ] dip < [ too-many-samples ] when
[ [ length iota >array ] dip [ randomize-n-last ] keep tail-slice* ] [ [ length iota >array ] dip [ randomize-n-last ] keep tail-slice* ]
[ drop ] 2bi nths ; [ drop ] 2bi nths-unsafe ;
: delete-random ( seq -- elt ) : delete-random ( seq -- elt )
[ length random-integer ] keep [ length random-integer ] keep