4 lines
107 B
Text
4 lines
107 B
Text
(let Ones 0
|
|
(for I 100000000
|
|
(and (=1 (1or89 I)) (inc 'Ones)) )
|
|
(println (- 100000000 Ones)) )
|