6 lines
142 B
Text
6 lines
142 B
Text
main() := babbage(0);
|
|
|
|
babbage(current) :=
|
|
current when current * current mod 1000000 = 269696
|
|
else
|
|
babbage(current + 1);
|