Recursive FizzBuzz in Scheme

fizzbuzz.rkt

#lang racket

(define (fizzbuzz n limit)
  (cond
    ((eq? (modulo n 15) 0)
      (printf "~a: FizzBuzz~n" n))
    ((eq? (modulo n 3) 0)
      (printf "~a: Fizz~n" n))
    ((eq? (modulo n 5) 0)
      (printf "~a: Buzz~n" n)))
  (if (not (eq? n limit)) (fizzbuzz (+ n 1) limit) (display "Done")))

(fizzbuzz 0 100)

... (printf "~a: Buzz~n" n)))

not

... (printf "~a: Buzz~n" n)
    )
)

Like dis?

+1