nth-rand

diff --git a/contrib/math/utils.factor b/contrib/math/utils.factor
index b4e959224aef062061708d1ccc8ce8f5767a78db..16e44cd0fe09b67bf4dcd047dfd891eb75b203ef 100644 (file)
--- 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 ;
+