7f036c0 · typeable/pandoc

234 _ | x >= 50 -> "L" ++ toRomanNumeral (x - 50)

235 _ | x >= 40 -> "XL" ++ toRomanNumeral (x - 40)

236 _ | x >= 10 -> "X" ++ toRomanNumeral (x - 10)

237− _ | x >= 9 -> "IX" ++ toRomanNumeral (x - 5)

237+ _ | x == 9 -> "IX"

238 _ | x >= 5 -> "V" ++ toRomanNumeral (x - 5)

239− _ | x >= 4 -> "IV" ++ toRomanNumeral (x - 4)

239+ _ | x == 4 -> "IV"

240 _ | x >= 1 -> "I" ++ toRomanNumeral (x - 1)

241 _ -> ""

242