fizzbuzz

gistfile1.rkt

(define fizzbuzz
; this is a default-args wrapper
  (lambda ()
    (fizzbuzz-iter 1)))

(define fizzbuzz-iter
  (lambda (iter)

    ; the actual meat of fizzbuzz
    (cond [(and (= (remainder iter 5) 0) 
		(= (remainder iter 3) 0)) (printf "FizzBuzz\n")]
	  [(= (remainder iter 5) 0) (printf "Buzz\n")]
	  [(= (remainder iter 3) 0) (printf "Fizz\n")]
	  [else (printf "~a\n" iter)])

    ; call the iterator
    (if (< iter 100) 
	(fizzbuzz-iter (+ 1 iter)) 
	(printf "\n"))))