17 lines
368 B
Plaintext
17 lines
368 B
Plaintext
(= i 0)
|
|
(= fizz 0)
|
|
(= buzz 0)
|
|
(= fizzbuzz 0)
|
|
|
|
(while (< i 100)
|
|
(= i (+ i 1))
|
|
(= fizz (+ fizz 1))
|
|
(= buzz (+ buzz 1))
|
|
(= fizzbuzz (+ fizzbuzz 1))
|
|
; check and reset counters
|
|
(print
|
|
(if (is fizzbuzz 15) (do (= fizzbuzz 0) (= fizz 0) (= buzz 0) "fizzbuzz")
|
|
(is fizz 3) (do (= fizz 0) "fizz")
|
|
(is buzz 5) (do (= buzz 0) "buzz")
|
|
i)))
|