6 lines
112 B
Text
6 lines
112 B
Text
|
(define babbage
|
||
|
|
N -> N where (= 269696 (shen.mod (* N N) 1000000)))
|
||
|
|
N -> (babbage (+ N 1))
|
||
|
|
|
||
|
|
(babbage 1)
|