FizzBuzz

fizzbuzz.clj

(defn divisible? [divisor number]
  (zero? (mod number divisor)))

(defn fizzbuzz [n]
  (case [(divisible? 3 n) (divisible? 5 n)]
    [true false] "Fizz"
    [false true] "Buzz"
    [true true] "FizzBuzz"
    n))

(doseq [n (range 1 101)]
  (println (fizzbuzz n)))


(defn fizzybuzzy [n]
  (case (mod (* n n n n) 15)
    6 "Fizz"
    10 "Buzz"
    0 "FizzBuzz"
    1 n))

(= (map fizzbuzz (range 1 101))
   (map fizzybuzzy (range 1 101)))