RosettaCodeData/Task/Babbage-problem/Picat/babbage-problem-1.picat

7 lines
90 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
main =>
N = 1,
while (N**2 mod 1000000 != 269696)
N := N + 1
end,
println(N).