Roman numerals/Decode: Difference between revisions

m
No edit summary
m (→‎{{header|Tailspin}}: syntax update)
Line 5,653:
composer decodeRoman
@: 1;
[ <digit>* ] -> \(@: 0; $... -> @: $@ + $; $@ !\)
rule digit: <value>* (@: $@ + 1;)
rule value: <'$digits($@)::key;'> -> $digits($@)::value
Anonymous user