Clojureの練習。FizzBuzzです。

fizzbuzz.clj

(ns fizzbuzz-clojure)

(defn- fizz? [x]
  (= 0 (mod x 3)))

(defn- buzz? [x]
  (= 0 (mod x 5)))

(defn- fizzbuzz? [x]
  (and (fizz? x) (buzz? x)))

(defn- fizzbuzz [x]
  (cond
    (fizzbuzz? x) "FizzBuzz"
    (fizz? x) "Fizz"
    (buzz? x) "Buzz"
    :else (str x)))

(defn fizzbuzz-seq [x]
  (map fizzbuzz (range 1 (inc x))))

main.clj

(load-file "fizzbuzz.clj")
(refer 'fizzbuzz-clojure :only '[fizzbuzz-seq])
(doseq [x (fizzbuzz-seq 100)]
  (println x))