23 lines
406 B
Text
23 lines
406 B
Text
[ stack ] is randoms ( --> s )
|
|
|
|
' [ 292929 1 ]
|
|
53 times
|
|
[ dup -2 peek
|
|
over -1 peek
|
|
- 1000000000 mod
|
|
join ]
|
|
dup witheach
|
|
[ swap
|
|
i^ 34 * 1 - 55 mod
|
|
poke ]
|
|
randoms put
|
|
|
|
[ randoms take
|
|
behead over 30 peek
|
|
- 1000000000 mod
|
|
tuck join
|
|
randoms put ] is rand ( --> n )
|
|
|
|
165 times [ rand drop ]
|
|
|
|
10 times [ rand echo cr ]
|