ScrabbleScore.elm

module ScrabbleScore exposing (..)

import Dict


letterScoreLookup : Dict.Dict Char Int
letterScoreLookup =
    Dict.fromList
        [ ( 'a', 1 )
        , ( 'e', 1 )
        , ( 'i', 1 )
        , ( 'o', 1 )
        , ( 'u', 1 )
        , ( 'l', 1 )
        , ( 'n', 1 )
        , ( 'r', 1 )
        , ( 's', 1 )
        , ( 't', 1 )
        , ( 'd', 2 )
        , ( 'g', 2 )
        , ( 'b', 3 )
        , ( 'c', 3 )
        , ( 'm', 3 )
        , ( 'p', 3 )
        , ( 'f', 4 )
        , ( 'h', 4 )
        , ( 'v', 4 )
        , ( 'w', 4 )
        , ( 'y', 4 )
        , ( 'k', 5 )
        , ( 'j', 8 )
        , ( 'x', 8 )
        , ( 'q', 10 )
        , ( 'z', 10 )
        ]


scoreWord : String -> Int
scoreWord word =
    word
        |> String.toLower
        |> String.toList
        |> List.filterMap (flip Dict.get letterScoreLookup)
        |> List.sum