Skip to content

Instantly share code, notes, and snippets.

@velveteer

velveteer/CE1.clj

Created November 10, 2015 07:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save velveteer/83ca0c13206957dbf1b9 to your computer and use it in GitHub Desktop.
Save velveteer/83ca0c13206957dbf1b9 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
CE1.clj
(ns fizzbuzz)
(use 'clojure.string)
(defn fizzbuzz [line]
(let [[x y n] (map #(Integer. %) (split line #"\s+"))]
(join " " (map
#(cond
(and (zero? (mod % x)) (zero? (mod % y))) "FB"
(zero? (mod % x)) "F"
(zero? (mod % y)) "B"
:else %)
(range 1 (inc n))))))
(use 'clojure.java.io)
(with-open [rdr (reader (first *command-line-args*))]
(doseq [line (remove empty? (line-seq rdr))]
(println (fizzbuzz line))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment