Skip to content

Project Euler Problem 20

November 16, 2011

Project Euler Problem 20 solution is straigthforward, indeed:

let factorial (n: bigint) : bigint =
    [1I..n] |> List.reduce (*)

let problem020 () =
    factorial 100I
    |> fun x -> x.ToString().ToCharArray()
    |> Array.map (fun x -> (int x) - (int '0'))
    |> Array.sum
Advertisements

From → Project Euler

Leave a Comment

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: