RosettaCodeData/Task/Babbage-problem/Picat/babbage-problem-1.picat
2023-07-01 13:44:08 -04:00

6 lines
90 B
Text

main =>
N = 1,
while (N**2 mod 1000000 != 269696)
N := N + 1
end,
println(N).