Roman numerals/Encode: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Miranda) |
(add RPL) |
||
Line 6,661: | Line 6,661: | ||
return result |
return result |
||
</syntaxhighlight> |
</syntaxhighlight> |
||
=={{header|RPL}}== |
|||
≪ '''IF''' DUP 5000 < '''THEN''' |
|||
0.1 + "" SWAP 1000 / |
|||
'''WHILE''' DUP 1 ≥ '''REPEAT''' |
|||
1 - SWAP "M" + SWAP '''END''' |
|||
1 3 '''FOR''' j |
|||
10 * |
|||
'''IF''' DUP IP '''THEN''' |
|||
{ 11 21 31 43 44 54 64 74 87 88 } |
|||
LAST GET 10 MOD LAST / IP |
|||
{ "CCCDCCCM" "XXXLXXXC" "IIIVIIIX" } |
|||
j GET ROT ROT SUB ROT SWAP + SWAP |
|||
'''END''' |
|||
FP '''NEXT''' |
|||
END DROP |
|||
≫ '➜ROM' STO |
|||
=={{header|Ruby}}== |
=={{header|Ruby}}== |