tests/fizzbuzz.bth


1
2
3
4
5
6
7
8
9
10

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