Triangular numbers: Difference between revisions

=={{header|RPL}}==

≪ DUP ROT + 1 - SWAP COMB

≫ ''''SMPLX'''' STO

≪ 8 * 1 + √ 1 - 2 /

≫ ''''TROOT'''' STO

≪ DUP SQ 9 * 27 INV - √ SWAP 3 *

DUP2 + 3 INV ^ SWAP ROT - 3 INV ^ + 1 -

≫ ''''TeROOT'''' STO

≪ 24 * 1 + √ 4 * 5 + √ 3 - 2 /

≫ ''''PROOT'''' STO

≪ {} 1 30 '''FOR''' n n 3 PICK '''SMPLX''' + '''NEXT'''

≫ ''''SPX30'''' STO

≪ {7140 21408696 26728085384 14545501785001}

1 4 '''FOR''' n

DUP n GET {}

OVER '''TROOT''' + OVER '''TeROOT''' + SWAP '''PROOT''' + SWAP

'''NEXT''' DROP

≫ ''''ROOTS'''' STO

{{in}}

<pre>

2 SPX30

3 SPX30

4 SPX30

12 SPX30

ROOTS

</pre>

{{out}}

<pre>

8: { 1 3 6 10 15 21 28 36 45 55 66 78 91 105 120 136 153 171 190 210 231 253 276 300 325 351 378 406 435 465 }

7: { 1 4 10 20 35 56 84 120 165 220 286 364 455 560 680 816 969 1140 1330 1540 1771 2024 2300 2600 2925 3276 3654 4060 4495 4960 }

6: { 1 5 15 35 70 126 210 330 495 715 1001 1365 1820 2380 3060 3876 4845 5985 7315 8855 10626 12650 14950 17550 20475 23751 27405 31465 35960 40920 }

5: { 1 13 91 455 1820 6188 18564 50388 125970 293930 646646 1352078 2704156 5200300 9657700 17383860 30421755 51895935 86493225 141120525 225792840 354817320 548354040 834451800 1251677700 1852482996 2707475148 3910797436 5586853480 7898654920 }

4: { 119 34.0000000018 18.8766466159 }

3: { 6543 503.561166335 149.060947375 }

2: { 231205.405565 5431.99993865 893.442456752 }

1: { 5393607.15814 44355.7773766 4321 }

</pre>