Roman numerals/Encode: Difference between revisions
m
→{{header|Red}}
m (→{{header|Red}}) |
|||
Line 6,364:
Straight iterative solution:
<syntaxhighlight lang="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]
Line 6,376 ⟶ 6,378:
Straight recursive solution:
<syntaxhighlight lang="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]
Line 6,391 ⟶ 6,395:
<syntaxhighlight lang="red">
Red []
to-Roman: function [n [integer!]] reduce [
'case collect [
|