19 lines
444 B
Text
19 lines
444 B
Text
def romanEnc /# n -- s #/
|
|
>ps
|
|
( ( 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 swap 1 get nip
|
|
tps over >=
|
|
while
|
|
ps> over - >ps
|
|
over print
|
|
tps over >=
|
|
endwhile
|
|
drop drop
|
|
endfor
|
|
ps> drop drop nl
|
|
enddef
|
|
|
|
1968 romanEnc
|