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-08-31 14:10

#include <ooc/io/io.h>

#include <ooc/util/FizzBuzz.h>



int main(void) {

  var fb = new(FizzBuzzGenerator(),

               100);



  foreach (var elem, fb) {

    println(elem);

  } foreach_end;



  del(fb);



  return 0;

}

Newer Posts