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