Roman numerals/Encode: Difference between revisions

Content added Content deleted
(Fixed two Red examples)
Line 6,366: Line 6,366:
Red []
Red []


table: [1000 M 900 CM 500 D 400 CD 100 C 90 XC 50 L 40 XL 10 X 5 V 4 IV 1 I]
table: [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]


to-Roman: function [n [integer!] return: [string!]][
to-Roman: function [n [integer!] return: [string!]][
Line 6,380: Line 6,380:
Red []
Red []


table: [1000 M 900 CM 500 D 400 CD 100 C 90 XC 50 L 40 XL 10 X 5 V 4 IV 1 I]
table: [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]


to-Roman: func [n [integer!] return: [string!]][
to-Roman: func [n [integer!] return: [string!]][