euler problem 06 with fsharp

euler06.fs

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)