Solving Project Euler problems as a way to learn F#.

Click here for additional resources.

Solving Project Euler problems as a way to learn F#.

Click here for additional resources.

Showing posts from February, 2011

- Get link
- Other Apps

- Get link
- Other Apps

Description 145 is a curious number, as 1! + 4! + 5! = 1 + 24 + 120 = 145. Find the sum of all numbers which are equal to the sum of the factorial of their digits. Note: as 1! = 1 and 2! = 2 are not sums they are not included. Solution let rec factorial n acc = if n <= 1 then acc else let newAcc = n * acc factorial (n-1) newAcc let sumStr num = let arrStr = num.ToString() let len = String.length arrStr let arrNum = Array.create len 0 for i=0 to len-1 do let numTemp = System.Convert.ToInt32(arrStr.Chars(i).ToString()) arrNum.[i] <- factorial numTemp 1 Array.sum arrNum let sumTest = [3..99999] |> Array.map (fun x -> if sumStr x = x then x else 0) |> Array.sum

- Get link
- Other Apps