Pancake numbers: Difference between revisions
Content deleted Content added
SqrtNegInf (talk | contribs) Added Perl |
Not a robot (talk | contribs) Add MAD |
||
| Line 388: | Line 388: | ||
p(11) = 13 p(12) = 14 p(13) = 15 p(14) = 16 p(15) = 17 |
p(11) = 13 p(12) = 14 p(13) = 15 p(14) = 16 p(15) = 17 |
||
p(16) = 18 p(17) = 19 p(18) = 20 p(19) = 21 p(20) = 23 </pre> |
p(16) = 18 p(17) = 19 p(18) = 20 p(19) = 21 p(20) = 23 </pre> |
||
=={{header|MAD}}== |
|||
{{trans|C}} |
|||
<lang MAD> NORMAL MODE IS INTEGER |
|||
VECTOR VALUES ROW = $5(2HP[,I2,4H] = ,I2,S2)*$ |
|||
INTERNAL FUNCTION(N) |
|||
ENTRY TO P. |
|||
GAP = 2 |
|||
ADJ = -1 |
|||
THROUGH LOOP, FOR SUM=2, GAP, SUM.GE.N |
|||
ADJ = ADJ + 1 |
|||
LOOP GAP = GAP * 2 - 1 |
|||
FUNCTION RETURN N + ADJ |
|||
END OF FUNCTION |
|||
THROUGH OUTP, FOR R=1, 5, R.G.20 |
|||
OUTP PRINT FORMAT ROW, R,P.(R), R+1,P.(R+1), R+2,P.(R+2), |
|||
0 R+3,P.(R+3), R+4,P.(R+4), R+5,P.(R+5) |
|||
END OF PROGRAM</lang> |
|||
{{out}} |
|||
<pre>P[ 1] = 0 P[ 2] = 1 P[ 3] = 3 P[ 4] = 4 P[ 5] = 5 |
|||
P[ 6] = 7 P[ 7] = 8 P[ 8] = 9 P[ 9] = 10 P[10] = 11 |
|||
P[11] = 13 P[12] = 14 P[13] = 15 P[14] = 16 P[15] = 17 |
|||
P[16] = 18 P[17] = 19 P[18] = 20 P[19] = 21 P[20] = 23</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |
||