euler22

euler22.fsx

open System.IO

let wordValue (word: string) = Seq.map(fun c -> (int c) - (int 'A') + 1) word 
                               |> Seq.sum

let result = File.ReadLines("p022_names.txt")
             |> Seq.collect(fun line -> line.Split ',') 
             |> Seq.map(fun quotedWord -> quotedWord.Trim [|'"'|] )
             |> Seq.sort
             |> Seq.mapi(fun i word -> (i + 1) * wordValue word)
             |> Seq.sum
            
printfn "%A" (wordValue "COLIN") 
printfn "%A" result