Project Euler – Problem 22 Solution

Yan Cui

I help clients go faster for less using serverless technologies.

This article is brought to you by

Is your CI build step taking too long? Try Depot for free today and experience up to 40x faster build speed!

Unlock faster CI for FREE


Using names.txt (right click and ‘Save Link/Target As…’), 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 x 53 = 49714.

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


open System.IO

let values =
    |> (fun s -> s.Replace("\"", ""))
    |> Array.collect (fun s -> s.Trim().Split(','))
    |> Array.sort
    |> (fun s -> s.ToUpper().ToCharArray() |> Array.sumBy (fun c -> int32(c) - (int32('A') - 1)))

let answer = Array.map2 (fun v p -> v * p) values [|1..values.Length|] |> Array.sum

Once I’ve downloaded the names.txt file and loaded its contents in, the first thing I needed to do was to remove the double quotes and split the remaining strings by comma to get back a string array of the names, e.g.:


Now that the data is in a useful format I can easily sort it and then do the necessary computation to work out the score for each name. Let me draw your attention to the function in the Array.sumBy function:

Array.sumBy (fun c -> int32(c) - (int32('A') - 1))

As I’ve mentioned in the problem 8 solution, int32(char) returns the unicode value of the char, which in this case is the alphabetical value we need to calculate the score for a name. But we can’t just use it as it is, because the char sequence A, B, C… does not start at 1, which is why we need to work out the offset using int32(‘A’) – 1.

Finally, the Array.map2 function is similar to, except that it works on two arrays at a time. So here I’m transforming the array of alphabetical values (for the sorted names) and the array of corresponding alphabetical orders into the score for each name before I add them all up to get the answer.

Whenever you’re ready, here are 4 ways I can help you:

  1. Production-Ready Serverless: Join 20+ AWS Heroes & Community Builders and 1000+ other students in levelling up your serverless game. This is your one-stop shop for quickly levelling up your serverless skills.
  2. Do you want to know how to test serverless architectures with a fast dev & test loop? Check out my latest course, Testing Serverless Architectures and learn the smart way to test serverless.
  3. I help clients launch product ideas, improve their development processes and upskill their teams. If you’d like to work together, then let’s get in touch.
  4. Join my community on Discord, ask questions, and join the discussion on all things AWS and Serverless.

1 thought on “Project Euler – Problem 22 Solution”

  1. I used mapi which gives you the index and the value

    open System.IO
    let p22 = File.ReadAllLines(@”C:\euler\22.txt”)
    |> Array.collect (fun x -> x.Split(‘,’))
    |> (fun x -> x.Replace(“\””,””))
    |> Array.sort
    |> (fun x -> x.ToUpper().ToCharArray()
    |> Array.sumBy (fun c -> int32(c) – int32(‘A’)+1))
    |> Array.mapi (*)
    |> Array.sum

Leave a Comment

Your email address will not be published. Required fields are marked *