Roman numerals/Encode: Difference between revisions
add RPL
Not a robot (talk | contribs) (Add Miranda) |
(add RPL) |
||
Line 6,661:
return result
</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}}==
| |||