2022-12-23 10:25:05 -05:00
|
|
|
() ~ 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 {
|
2023-02-19 11:07:46 -05:00
|
|
|
2 pick 2 pick lt?
|
2022-12-23 10:25:05 -05:00
|
|
|
choose
|
|
|
|
|
{ pop exch pop true } ifyes
|
|
|
|
|
{ pop } ifno
|
|
|
|
|
} repeat
|
|
|
|
|
|
|
|
|
|
disp
|
