mirror of
https://github.com/correl/elm.git
synced 2024-11-16 03:00:08 +00:00
54e3017815
* Update exercises to elm-test 2.0 * Update docs to mention `elm-test` again * Update .travis.yml to the correct version of elm-test * Conform to the `<| \() ->` convention
50 lines
980 B
Text
50 lines
980 B
Text
module RomanNumerals exposing (toRoman)
|
|
|
|
import Dict
|
|
import Maybe
|
|
|
|
|
|
toRoman : Int -> String
|
|
toRoman number =
|
|
if number == 0 then
|
|
""
|
|
else
|
|
let
|
|
part =
|
|
largestFactor number
|
|
|
|
letter =
|
|
numerals
|
|
|> Dict.get part
|
|
|> Maybe.withDefault ""
|
|
in
|
|
letter ++ (toRoman (number - part))
|
|
|
|
|
|
largestFactor : Int -> Int
|
|
largestFactor number =
|
|
numerals
|
|
|> Dict.keys
|
|
|> List.filter (\p -> p <= number)
|
|
|> List.reverse
|
|
|> List.head
|
|
|> Maybe.withDefault 0
|
|
|
|
|
|
numerals : Dict.Dict Int String
|
|
numerals =
|
|
Dict.fromList
|
|
[ ( 1000, "M" )
|
|
, ( 900, "CM" )
|
|
, ( 500, "D" )
|
|
, ( 400, "CD" )
|
|
, ( 100, "C" )
|
|
, ( 90, "XC" )
|
|
, ( 50, "L" )
|
|
, ( 40, "XL" )
|
|
, ( 10, "X" )
|
|
, ( 9, "IX" )
|
|
, ( 5, "V" )
|
|
, ( 4, "IV" )
|
|
, ( 1, "I" )
|
|
]
|