fizzbuzz

(define (main num)
  (if (= num 100) (exit))
  (set! tmp (modulo num 15))
  (if (or (= tmp 1) (= tmp 2) (= tmp 4) (= tmp 7) (= tmp 8) (= tmp 11) (= tmp 13) (= tmp 14))
      (display num)
      (begin
        (if (or (= tmp 3) (= tmp 6) (= tmp 9) (= tmp 0) (= tmp 12)) (display "Fizz"))
        (if (or (= tmp 5) (= tmp 10) (= tmp 0)) (display "Buzz"))))
  (newline)
  (main (+ num 1)))
(define tmp 0)
(main 1)

can you do better?

#include<stdio.h>
int main (int n,char**u){n=u?atoi(*++u):n;printf(!(n%3)||!(n%5)?"%s\n":"%d\n",(n%3)?(n%5)?n:"Buzz":(n%5)?"Fizz":"FizzBuzz");return--n?main(n,0):0;}

Usage:

./a.out 15
FizzBuzz
14
13
Fizz
11
Buzz
Fizz
8
7
Fizz
Buzz
4
Fizz
2
1