nth-rand

2006-01-23 23:53:58 +00:00 · 2006-01-23 23:53:58 +00:00 · d31a7903f5
parent eb7b814f66
commit d31a7903f5
1 changed files with 2 additions and 0 deletions
--- a/contrib/math/utils.factor
+++ b/contrib/math/utils.factor
@ -122,3 +122,5 @@ SYMBOL: step-size .01 step-size set  ! base on arguments
    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 ;

+: nth-rand ( seq -- elem ) [ length random-int ] keep nth ;
+