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

nth-rand

cvs
Doug Coleman 2006-01-23 23:53:58 +00:00
parent eb7b814f66
commit d31a7903f5
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/math/utils.factor
View File

@ -122,3 +122,5 @@ SYMBOL: step-size .01 step-size set ! base on arguments
1 <= [ "seq must be 2n or longer" throw ] when 1 <= [ "seq must be 2n or longer" throw ] when
over [ [ dup >r >r pick pick r> rot swapd nths over call , r> ] repeat ] { } make 2nip nip ; over [ [ dup >r >r pick pick r> rot swapd nths over call , r> ] repeat ] { } make 2nip nip ;
: nth-rand ( seq -- elem ) [ length random-int ] keep nth ;