29 lines
422 B
Factor
29 lines
422 B
Factor
|
IN: scratchpad
|
||
|
|
USE: arithmetic
|
||
|
|
USE: kernel
|
||
|
|
USE: lists
|
||
|
|
USE: logic
|
||
|
|
USE: namespaces
|
||
|
|
USE: random
|
||
|
|
USE: stdio
|
||
|
|
USE: test
|
||
|
|
|
||
|
|
"Checking random number generation." print
|
||
|
|
|
||
|
|
[ t ]
|
||
|
|
[ [ 1 2 3 ] ]
|
||
|
|
[ random-element number? ]
|
||
|
|
test-word
|
||
|
|
|
||
|
|
[
|
||
|
|
[ 10 | t ]
|
||
|
|
[ 20 | f ]
|
||
|
|
[ 30 | "monkey" ]
|
||
|
|
] "random-pairs" set
|
||
|
|
|
||
|
|
[ f ]
|
||
|
|
[ "random-pairs" get ]
|
||
|
|
[ random-element* [ t f "monkey" ] contains not ] test-word
|
||
|
|
|
||
|
|
"Random number checks complete." print
|