ponkore · March 26, 2012 04:23
diff --git a/fizzbuzz.clj b/fizzbuzz.clj
 ;; FizzBuzz in Clojure
 (defn fizzbuzz [max]
  (map (fn [n]
         (cond
          (= (mod n 15) 0) "FizzBuzz"
          (= (mod n 3) 0) "Fizz"
          (= (mod n 5) 0) "Buzz"
          :else n))
       (take max (iterate inc 1))))

 ;; 冗長すぎる orz
	;; FizzBuzz in Clojure
	(defn fizzbuzz [max]
	(map (fn [n]
	(cond
	(= (mod n 15) 0) "FizzBuzz"
	(= (mod n 3) 0) "Fizz"
	(= (mod n 5) 0) "Buzz"
	:else n))
	(take max (iterate inc 1))))

	;; 冗長すぎる orz