Smallest square that begins with n: Difference between revisions
Content added Content deleted
Alpha bravo (talk | contribs) (Added AutoHotkey) |
|||
Line 77: | Line 77: | ||
41209 4225 4356 441 45369 4624 4761 484 49 |
41209 4225 4356 441 45369 4624 4761 484 49 |
||
</pre> |
</pre> |
||
=={{header|AutoHotkey}}== |
|||
<lang AutoHotkey>loop 49 |
|||
result .= SS(A_Index) (Mod(A_Index,7)?"`t":"`n") |
|||
MsgBox % result |
|||
return |
|||
SS(n) { |
|||
if (n < 1) |
|||
return |
|||
loop{ |
|||
sq := a_index**2 |
|||
while (sq > n) |
|||
sq := Format("{:d}", sq/10) |
|||
if (sq = n) |
|||
return a_index**2 |
|||
} |
|||
}</lang> |
|||
{{out}} |
|||
<pre>1 25 36 4 529 64 729 |
|||
81 9 100 1156 121 1369 144 |
|||
1521 16 1764 1849 196 2025 2116 |
|||
225 2304 2401 25 2601 2704 289 |
|||
2916 3025 3136 324 3364 3481 35344 |
|||
36 3721 3844 3969 400 41209 4225 |
|||
4356 441 45369 4624 4761 484 49</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |