RosettaCodeData/Task/Roman-numerals-Decode/J/roman-numerals-decode-1.j
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

1 line
74 B
Text

rom2d=: [: (+/ .* _1^ 0,~ 2</\ ]) 1 5 10 50 100 500 1000 {~ 'IVXLCDM'&i.