Smallest numbers: Difference between revisions
m
→{{header|Julia}}
(Added Algol 68) |
|||
Line 63:
16 17 9 7 12 28 6 23 9 24
23
</pre>
=={{header|Julia}}==
<lang julia>function hasinktok(n, limit=1000)
nlen = ndigits(n)
for k in 1:limit
d = digits(Int128(k)^k)
for j in 1:length(d)-nlen+1
evalpoly(10, d[j:j+nlen-1]) == n && return k
end
end
error("Could not find a valid k where k <= $limit and k^k contains $n")
end
foreach(p -> print(rpad(p[2], 4), p[1] % 17 == 0 ? "\n" : ""), enumerate(map(hasinktok, 0:50)))
</lang>{{out}}
<pre>
9 1 3 5 2 4 4 3 7 9 10 11 5 19 22 26 8
17 16 19 9 8 13 7 17 4 17 3 11 18 13 5 23 17
18 7 17 15 9 18 16 17 9 7 12 35 6 23 9 24 23
</pre>
| |||