19 lines
283 B
Plaintext
19 lines
283 B
Plaintext
|
() ~ elves set
|
||
|
|
|
||
|
|
0 2244 {
|
||
|
|
listen dup
|
||
|
|
strmeasure 0 eq?
|
||
|
|
choose
|
||
|
|
{ pop pop elves cons ~ elves set 0 true } ifyes
|
||
|
|
{ numberize add } ifno
|
||
|
|
} repeat
|
||
|
|
|
||
|
|
elves shatter depth sub1 {
|
||
|
|
over over lt?
|
||
|
|
choose
|
||
|
|
{ pop exch pop true } ifyes
|
||
|
|
{ pop } ifno
|
||
|
|
} repeat
|
||
|
|
|
||
|
|
disp
|