Question

Using names.txt, a 46K text file containing over five-thousand first names, begin by sorting it into alphabetical order. Then working out the alphabetical value for each name, multiply this value by its alphabetical position in the list to obtain a name score.

For example, when the list is sorted into alphabetical order, COLIN, which is worth 3 + 15 + 12 + 9 + 14 = 53, is the 938th name in the list. So, COLIN would obtain a score of 938 * 53 = 49714.

What is the total of all the name scores in the file?

import Data.List (sort)

parse :: String -> [String]
parse = words . map replaceComma . filter notQuote where
replaceComma ',' = ' '
replaceComma c = c
notQuote = (/= '"')

alphaIndex :: Char -> Int
alphaIndex c = fromEnum c - 64

alphaScore :: String -> Int
alphaScore = sum . map alphaIndex

totalScore :: [String] -> Int
totalScore names = sum $zipWith (*) (map alphaScore$ sort names) [1..]

main :: IO ()
main = do
print $totalScore$ parse str
$ghc -O2 -o names names.hs$ time ./names
real   0m0.010s
user   0m0.008s
sys    0m0.000s

Python

#!/usr/bin/env python
import os
from string import ascii_uppercase

def calculate_score(name, index):
alpha_score = sum(ascii_uppercase.index(letter)+1 for letter in name)
return index * alpha_score

def main():
names_file = open(os.path.join(os.path.dirname(__file__), 'names.txt'))
main()
$time python3 names.py real 0m0.042s user 0m0.036s sys 0m0.004s Ruby #!/usr/bin/env ruby names = File.open(File.dirname(__FILE__) + '/names.txt').read.scan(/\w+/).sort puts names.map { |name| word_score = name.each_byte.map { |c| c - 64 }.reduce(:+) (names.index(name) + 1) * word_score }.reduce(:+) $ time ruby names.rb
sys    0m0.000s