solution to problem 006 in lisp

lisp/euler006.lisp

@@ -0,0 +1,14 @@
+(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))
+)