24 lines
796 B
Text
24 lines
796 B
Text
$ENTRY Go {
|
|
= <Prout <RomanDecode 'MCMXC'>>
|
|
<Prout <RomanDecode 'MMVIII'>>
|
|
<Prout <RomanDecode 'MDCLXVI'>>;
|
|
};
|
|
|
|
RomanDecode {
|
|
= 0;
|
|
e.D, <Upper e.D>: {
|
|
'M' e.R = <+ 1000 <RomanDecode e.R>>;
|
|
'CM' e.R = <+ 900 <RomanDecode e.R>>;
|
|
'D' e.R = <+ 500 <RomanDecode e.R>>;
|
|
'CD' e.R = <+ 400 <RomanDecode e.R>>;
|
|
'C' e.R = <+ 100 <RomanDecode e.R>>;
|
|
'XC' e.R = <+ 90 <RomanDecode e.R>>;
|
|
'L' e.R = <+ 50 <RomanDecode e.R>>;
|
|
'XL' e.R = <+ 40 <RomanDecode e.R>>;
|
|
'X' e.R = <+ 10 <RomanDecode e.R>>;
|
|
'IX' e.R = <+ 9 <RomanDecode e.R>>;
|
|
'V' e.R = <+ 5 <RomanDecode e.R>>;
|
|
'IV' e.R = <+ 4 <RomanDecode e.R>>;
|
|
'I' e.R = <+ 1 <RomanDecode e.R>>;
|
|
};
|
|
};
|