0

Since the Roman numerals are fixed and known in advance, it would be more efficient to write:
translateRomanDigit :: Char -> Int
translateRomanDigit 'I' = 1
translateRomanDigit 'V' = 5
...
translateFromRoman = map translateRomanDigit
The compiler can implement translateRomanDigit as a jump ta...