tests/fizzbuzz.bth


1
2
3
4
5
6
7
8
9

(set! n 1)
(while (< n 30)
    (say 
     (if (= 0 (% n 5))
         (if (= 0 (% n 3)) "fizzbuzz" "buzz")
         (if (= 0 (% n 3)) "fizz" n)))
    (set! n (+ n 1)))