joekarma

(loop :for n :from 1 :below 1000
      :when (or (zerop (mod n 3))
                (zerop (mod n 5)))
      :sum n)

joekarma

;; Discovered via http://www.adampetersen.se/articles/fizzbuzz.htm
;; “Write a program that prints the numbers from 1 to 100. But for
;; multiples of three print “Fizz” instead of the number and for the
;; multiples of five print “Buzz”. For numbers which are multiples of
;; both three and five print “FizzBuzz”.”

(defun multiple-p (n multiple)
  (zerop (mod n multiple)))

(defun fizzbuzz ()