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

7 lines
90 B
Plaintext

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