euler problem 06 with fsharp
| open System | |
| let squareOfSum n = | |
| let i = n*(n+1)/2 | |
| i*i | |
| let sumOfSquare n = | |
| [1..n] | |
| |> List.fold (fun acc x -> acc + x*x) 0 | |
| let solveEuler6 N = | |
| (squareOfSum N)- (sumOfSquare N) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment