2006-06-15 01:49:50 -04:00
|
|
|
USING: kernel math sequences namespaces errors hashtables words
|
2006-09-05 01:29:26 -04:00
|
|
|
arrays parser compiler syntax io optimizer inference tools
|
2006-06-15 01:49:50 -04:00
|
|
|
prettyprint ;
|
2006-01-21 01:12:13 -05:00
|
|
|
IN: random-tester
|
|
|
|
|
|
2006-01-27 14:31:50 -05:00
|
|
|
: nth-rand ( seq -- elem ) [ length random-int ] keep nth ;
|
|
|
|
|
|
2006-01-21 01:12:13 -05:00
|
|
|
! HASHTABLES
|
2006-06-15 01:49:50 -04:00
|
|
|
: random-hash-entry ( hash -- key value )
|
|
|
|
|
hash>alist nth-rand first2 ;
|
2006-01-21 01:12:13 -05:00
|
|
|
|
2006-09-29 02:32:48 -04:00
|
|
|
: coin-flip ( -- bool ) 2 random-int zero? ;
|
|
|
|
|
: do-one ( seq -- ) nth-rand call ; inline
|
