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

7 lines
182 B
Text

import cp.
main =>
N*N mod 1000000 #= 269696, % ends with "269696"
N #> 0, % positive integer
solve($[min(N)],[N]), % minimize N
println(n=N).