6 lines
119 B
Text
6 lines
119 B
Text
|
[ dup size random peek ] is pick ( [ --> x )
|
||
|
|
|
||
|
|
randomise
|
||
|
|
' [ 20 33 -15 7 0 ] pick echo cr
|
||
|
|
' pick pick echo
|