fizzbuzz.clj

(ns fizzbuzz
  (:require [clojure.core.match :refer [match]]))

(defn interpret [x y i]
  (match [x y i]
         [true true _] "FizzBuzz"
         [true false _] "Fizz"
         [false true _] "Buzz"
         :else i))

(defn main []
  (->> (map interpret
            (cycle [false false true])
            (cycle [false false false false true])
            (iterate inc 1))
       (take 100)
       (apply println)))