18 lines
423 B
Text
18 lines
423 B
Text
def romanEnc /# n -- s #/
|
|
var k
|
|
( ( 1000 "M" ) ( 900 "CM" ) ( 500 "D" ) ( 400 "CD" ) ( 100 "C" ) ( 90 "XC" )
|
|
( 50 "L" ) ( 40 "XL" ) ( 10 "X" ) ( 9 "IX" ) ( 5 "V" ) ( 4 "IV" ) ( 1 "I" ) )
|
|
|
|
len for
|
|
get 2 get var let 1 get var val drop
|
|
k val >=
|
|
while
|
|
k val - var k
|
|
let print
|
|
k val >=
|
|
endwhile
|
|
endfor
|
|
drop nl
|
|
enddef
|
|
|
|
1968 romanEnc
|