8 lines
273 B
Text
8 lines
273 B
Text
: (let N 0
|
|
(do 25
|
|
(until (pernicious? (inc 'N)))
|
|
(printsp N) ) )
|
|
3 5 6 7 9 10 11 12 13 14 17 18 19 20 21 22 24 25 26 28 31 33 34 35 36 -> 36
|
|
|
|
: (filter pernicious? (range 888888877 888888888))
|
|
-> (888888877 888888878 888888880 888888883 888888885 888888886)
|