From d31a7903f5e45912d59294cd1152ac2289ba200c Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@trifocus.net>
Date: Mon, 23 Jan 2006 23:53:58 +0000
Subject: [PATCH] nth-rand

---
 contrib/math/utils.factor | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/contrib/math/utils.factor b/contrib/math/utils.factor
index b4e959224a..16e44cd0fe 100644
--- 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 ;
+