Return Styles: Pseud0ch, Terminal, Valhalla, NES, Geocities, Blue Moon. Entire thread

FizzBuzz

Name: Anonymous 2011-08-31 2:15

(defun fizz-buzz (start end)
  (loop for x from start to end do
       (let ((3? (= (mod x 3) 0))
         (5? (= (mod x 5) 0)))
     (when 3?             (format t "Fizz"))
     (when 5?          (format t "Buzz"))
     (unless (or 3? 5?) (format t "~a" x))
     (terpri))))


What does /b/ think?

Name: Anonymous 2011-09-01 20:23

>>12
wuts dat?

Newer Posts
Don't change these.
Name: Email:
Entire Thread Thread List