Project Euler Problem 22
http://projecteuler.net/index.php?section=problems&id=22(和訳)
readFile関数を探すのに手間取ってしまった。
import Data.List import Data.Char main = do names <- readFile "names.txt" print $ euler22 $ (read ("[" ++ names ++ "]") :: [String]) euler22 :: [String] -> Int euler22 names = sum $ zipWith (*) (map getScore (sort names)) [1..] where getScore = sum . map (\c -> ord c - ord 'A' + 1)