Comments on: Project Euler in F# – Problem 22 http://www.claudiocherubino.it/2008/02/12/project-euler-in-f-problem-22/?utm_source=rss&utm_medium=rss&utm_campaign=project-euler-in-f-problem-22 Life of a Googler Wed, 25 Jan 2012 13:36:37 +0000 hourly 1 http://wordpress.org/?v=3.3 By: Bob Roberts http://www.claudiocherubino.it/2008/02/12/project-euler-in-f-problem-22/comment-page-1/#comment-20420 Bob Roberts Thu, 13 Nov 2008 15:32:27 +0000 http://www.claudiocherubino.it/2008/02/12/project-euler-in-f-problem-22/#comment-20420 You don't need to remove the quotes to sort the list. The list will sort correctly with the quote. When you add the value of the names, you can just ignore quotes when adding values. You don’t need to remove the quotes to sort the list. The list will sort correctly with the quote. When you add the value of the names, you can just ignore quotes when adding values.

]]> By: Michiel Borkent http://www.claudiocherubino.it/2008/02/12/project-euler-in-f-problem-22/comment-page-1/#comment-20419 Michiel Borkent Mon, 03 Mar 2008 02:40:18 +0000 http://www.claudiocherubino.it/2008/02/12/project-euler-in-f-problem-22/#comment-20419 Here is another solution using List.mapi: #light open System.IO let answer2 = let names = File.ReadAllText(@"C:\dev\Chapter4\names.txt").Split([|','|]) |> Seq.map (fun x -> x.Replace("\"", "")) let sortednames = names |> Seq.to_list |> List.sort compare let CharVal x = 1 + Char.code x - Char.code 'A' let Score i x = (i+1) * (Seq.map CharVal x |> Seq.fold1 (+)) List.mapi Score sortednames |> Seq.fold1 (+) Here is another solution using List.mapi:

#light
open System.IO
let answer2 =
let names = File.ReadAllText(@”C:\dev\Chapter4\names.txt”).Split([|','|]) |> Seq.map (fun x -> x.Replace(“\”", “”))
let sortednames = names |> Seq.to_list |> List.sort compare
let CharVal x = 1 + Char.code x – Char.code ‘A’
let Score i x =
(i+1) * (Seq.map CharVal x |> Seq.fold1 (+))
List.mapi Score sortednames |> Seq.fold1 (+)

]]>