6 lines
99 B
Text
6 lines
99 B
Text
|
(print
|
||
|
|
(let loop ((i 2))
|
||
|
|
(if (eq? (mod (* i i) 1000000) 269696)
|
||
|
|
i
|
||
|
|
(loop (+ i 1)))))
|