Roman numerals/Decode: Difference between revisions
Content deleted Content added
→Tcl: Added implementation |
m →{{header|Tcl}}: Added examples of use |
||
Line 100: | Line 100: | ||
expr [string map $map $rnum]0} |
expr [string map $map $rnum]0} |
||
}</lang> |
}</lang> |
||
Demonstrating: |
|||
<lang tcl>foreach r {MCMXC MDCLXVI MMVIII} { |
|||
puts "$r\t-> [fromRoman $r]" |
|||
}</lang> |
|||
Output: |
|||
<pre>MCMXC -> 1990 |
|||
MDCLXVI -> 1666 |
|||
MMVIII -> 2008</pre> |
|||
=={{header|Zsh}}== |
=={{header|Zsh}}== |