;;; difference-of-squares.el --- Difference of Squares (exercism)

;;; Commentary:

;;; Code:
(require 'cl)

(defun square-of-sum (n)
  (cl-loop for i from 1 to n
           sum i into s
           finally return (* s s)))

(defun sum-of-squares (n)
  (cl-loop for i from 1 to n
           sum (* i i)))

(defun difference (n)
  (- (square-of-sum n) (sum-of-squares n)))

(provide 'difference-of-squares)
;;; difference-of-squares.el ends here