8 lines
128 B
Text
8 lines
128 B
Text
function babbage(x::Integer)
|
|
i = big(0)
|
|
d = floor(log10(x)) + 1
|
|
while i ^ 2 % 10 ^ d != x
|
|
i += 1
|
|
end
|
|
return i
|
|
end
|