janet/examples/fizzbuzz.dst

# A simple fizz buzz example

(defn fizzbuzz
 "Prints the fizzbuzz problem."
 []
 (loop [i :range [1 101]]
  (let [fizz (zero? (% i 3))
        buzz (zero? (% i 5))]
    (print (cond
        (and fizz buzz) "fizzbuzz"
        fizz "fizz"
        buzz "buzz"
        i)))))