learning lisp

lisp/euler.lisp

@@ -0,0 +1,3 @@
+(defun range (min max) (loop for n from min below max by 1 collect n))
+(defun sum (list) (apply '+ list))
+(defun select (expr list) (remove-if-not expr list))

lisp/euler001.lisp

@@ -0,0 +1,5 @@
+(load "euler.lisp")
+
+(defun is_multiple_of_3_or_5 (n) (or (eq 0 (mod n 3)) (eq 0 (mod n 5))))
+(defun multiples_of_3_or_5 (n) (select #'is_multiple_of_3_or_5 (range 1 n)))
+(defun result (n) (sum (multiples_of_3_or_5 n)))