15 lines
284 B
Common Lisp
15 lines
284 B
Common Lisp
|
(load "euler.lisp")
|
||
|
|
|
||
|
|
(defun sum-of-squares-up-to (n)
|
||
|
|
(sum (mapcar (lambda (n) (* n n)) (range 1 n)))
|
||
|
|
)
|
||
|
|
|
||
|
|
(defun square-of-sum-up-to (n)
|
||
|
|
(let* ((square (sum (range 1 n))))
|
||
|
|
(* square square))
|
||
|
|
)
|
||
|
|
|
||
|
|
(defun solution ()
|
||
|
|
(- (square-of-sum-up-to 100) (sum-of-squares-up-to 100))
|
||
|
|
)
|