- module DifferenceOfSquares
-
- let square n = pown n 2
-
- let squareOfSum (number: int): int = square ([1..number] |> List.sum)
-
- let sumOfSquares (number: int): int = [1..number] |> List.sumBy square
-
- let differenceOfSquares (number: int): int = abs ((sumOfSquares number) - (squareOfSum number))
|