Sha256: 335119bfaa5e357d60fce06830b7de70711897847eece74378264fc8a6922823
Contents?: true
Size: 823 Bytes
Versions: 354
Compression:
Stored size: 823 Bytes
Contents
module ScrabbleScore
( scoreWord
) where
import Prelude
import Data.Char (toLower)
import Data.String (toCharArray)
import Data.Foldable (foldl)
scoreWord :: String -> Int
scoreWord =
let
addLetterScore acc =
add acc <<< scoreChar <<< toLower
in
foldl addLetterScore 0 <<< toCharArray
scoreChar :: Char -> Int
scoreChar 'a' = 1
scoreChar 'e' = 1
scoreChar 'i' = 1
scoreChar 'o' = 1
scoreChar 'u' = 1
scoreChar 'l' = 1
scoreChar 'n' = 1
scoreChar 'r' = 1
scoreChar 's' = 1
scoreChar 't' = 1
scoreChar 'd' = 2
scoreChar 'g' = 2
scoreChar 'b' = 3
scoreChar 'c' = 3
scoreChar 'm' = 3
scoreChar 'p' = 3
scoreChar 'f' = 4
scoreChar 'h' = 4
scoreChar 'v' = 4
scoreChar 'w' = 4
scoreChar 'y' = 4
scoreChar 'k' = 5
scoreChar 'j' = 8
scoreChar 'x' = 8
scoreChar 'q' = 10
scoreChar 'z' = 10
scoreChar _ = 0
Version data entries
354 entries across 354 versions & 1 rubygems