Skip to content

Instantly share code, notes, and snippets.

@rinx

rinx/fizzbuzz.lisp

Created August 10, 2014 09:16
Show Gist options
  • Save rinx/6ffc5823670a1c314fe7 to your computer and use it in GitHub Desktop.
Save rinx/6ffc5823670a1c314fe7 to your computer and use it in GitHub Desktop.
Download ZIP
FizzBuzz with clisp
Raw
fizzbuzz.lisp
(defun fizzbuzz ()
(loop for i
below 100
do (progn
(princ (cond ((zerop (mod i 15)) "FizzBuzz")
((zerop (mod i 5 )) "Buzz")
((zerop (mod i 3 )) "Fizz")
(t i)))
(fresh-line))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment