Sum of first n cubes: Difference between revisions
Content added Content deleted
(Added PL/M) |
Alpha bravo (talk | contribs) (Added AutoHotkey) |
||
Line 292: | Line 292: | ||
216225 246016 278784 314721 354025 396900 443556 494209 549081 608400 |
216225 246016 278784 314721 354025 396900 443556 494209 549081 608400 |
||
672400 741321 815409 894916 980100 1071225 1168561 1272384 1382976 1500625</pre> |
672400 741321 815409 894916 980100 1071225 1168561 1272384 1382976 1500625</pre> |
||
=={{header|AutoHotkey}}== |
|||
<lang AutoHotkey>pn := 0, result := "" |
|||
loop 50 { |
|||
n := SubStr(" " ((A_Index-1)**3 + pn), -6) |
|||
result .= n (Mod(A_Index, 10)?"`t":"`n") |
|||
pn := n |
|||
} |
|||
MsgBox % result</lang> |
|||
{{out}} |
|||
<pre> 0 1 9 36 100 225 441 784 1296 2025 |
|||
3025 4356 6084 8281 11025 14400 18496 23409 29241 36100 |
|||
44100 53361 64009 76176 90000 105625 123201 142884 164836 189225 |
|||
216225 246016 278784 314721 354025 396900 443556 494209 549081 608400 |
|||
672400 741321 815409 894916 980100 1071225 1168561 1272384 1382976 1500625</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |