fizzbuzz

fizzbuzz.lisp

(defun range(n m)
  (if (> n m)
	 ()
	 (cons n (range (+ n 1) m)
		   )
	 )
)

(defun fizzbuzz(i)
  (cond ((eq 0 (mod i 3)) (print "Fizz"))
		((eq 0 (mod i 5)) (print "Buzz"))
		((eq 0 (mod i 15)) (print "FizzBuzz"))
		(t (print i))
		)
)

(mapcar #'fizzbuzz (range 1 100))