2010-06-06から1日間の記事一覧
(defn cycle-pattern [n s] (lazy-cat (take (dec n) (repeat "")) [s])) (def fizz-seq (cycle (cycle-pattern 3 "fizz"))) (def buzz-seq (cycle (cycle-pattern 5 "buzz"))) (def fizzbuzz-seq (->> (map str fizz-seq buzz-seq) (map #(if (empty? %2) %…