4 lines
232 B
Factor
4 lines
232 B
Factor
USING: io kernel math.ranges prettyprint random sequences ;
|
|
|
|
10 [ 20 [ 20 [1,b] random ] replicate ] replicate ! make a table of random values
|
|
[ [ dup pprint bl 20 = ] find nl drop ] find 2drop ! print values until 20 is found
|