Skip to content

Instantly share code, notes, and snippets.

@zelark

zelark/fizzbuzz.clj

Last active October 16, 2024 12:00
Show Gist options
  • Save zelark/a766274986d6212a8f85d7aa4c6d1179 to your computer and use it in GitHub Desktop.
Save zelark/a766274986d6212a8f85d7aa4c6d1179 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. zelark revised this gist Oct 7, 2020. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion fizzbuzz.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -3,6 +3,6 @@
    buzzes (cycle ["" "" "" "" "Buzz"])
    pattern (map str fizzes buzzes)
    numbers (map str (rest (range)))]
    (take n (map #(some not-empty %&) pattern numbers))))
    (take n (map #(some not-empty %&) pattern numbers)))) ;; another option would be `(partial max-key count)`

    (run! println (fizzbuzz 100))
  2. zelark revised this gist Sep 15, 2020. 1 changed file with 1 addition and 2 deletions.
    3 changes: 1 addition & 2 deletions fizzbuzz.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -5,5 +5,4 @@
    numbers (map str (rest (range)))]
    (take n (map #(some not-empty %&) pattern numbers))))

    (doseq [x (fizzbuzz 100)]
    (println x))
    (run! println (fizzbuzz 100))
  3. zelark revised this gist Sep 13, 2020. 1 changed file with 1 addition and 1 deletion.
    2 changes: 1 addition & 1 deletion fizzbuzz.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -3,7 +3,7 @@
    buzzes (cycle ["" "" "" "" "Buzz"])
    pattern (map str fizzes buzzes)
    numbers (map str (rest (range)))]
    (take n (map #(first (remove #{""} %&)) pattern numbers))))
    (take n (map #(some not-empty %&) pattern numbers))))

    (doseq [x (fizzbuzz 100)]
    (println x))
  4. zelark revised this gist Sep 13, 2020. 1 changed file with 1 addition and 3 deletions.
    4 changes: 1 addition & 3 deletions fizzbuzz.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -1,11 +1,9 @@
    (require '[clojure.string :refer [blank?]])

    (defn fizzbuzz [n]
    (let [fizzes (cycle ["" "" "Fizz"])
    buzzes (cycle ["" "" "" "" "Buzz"])
    pattern (map str fizzes buzzes)
    numbers (map str (rest (range)))]
    (take n (map #(first (remove blank? %&)) pattern numbers))))
    (take n (map #(first (remove #{""} %&)) pattern numbers))))

    (doseq [x (fizzbuzz 100)]
    (println x))
  5. zelark revised this gist Sep 12, 2020. 1 changed file with 9 additions and 5 deletions.
    14 changes: 9 additions & 5 deletions fizzbuzz.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -1,7 +1,11 @@
    (require '[clojure.string :refer [blank?]])

    (let [fizzes (cycle ["" "" "Fizz"])
    buzzes (cycle ["" "" "" "" "Buzz"])
    pattern (map str fizzes buzzes)
    numbers (map str (rest (range)))]
    (take 100 (map #(first (remove blank? %&)) pattern numbers)))
    (defn fizzbuzz [n]
    (let [fizzes (cycle ["" "" "Fizz"])
    buzzes (cycle ["" "" "" "" "Buzz"])
    pattern (map str fizzes buzzes)
    numbers (map str (rest (range)))]
    (take n (map #(first (remove blank? %&)) pattern numbers))))

    (doseq [x (fizzbuzz 100)]
    (println x))
  6. zelark revised this gist Sep 12, 2020. 1 changed file with 0 additions and 2 deletions.
    2 changes: 0 additions & 2 deletions fizzbuzz.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -5,5 +5,3 @@
    pattern (map str fizzes buzzes)
    numbers (map str (rest (range)))]
    (take 100 (map #(first (remove blank? %&)) pattern numbers)))


  7. zelark created this gist Sep 12, 2020.
    9 changes: 9 additions & 0 deletions fizzbuzz.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,9 @@
    (require '[clojure.string :refer [blank?]])

    (let [fizzes (cycle ["" "" "Fizz"])
    buzzes (cycle ["" "" "" "" "Buzz"])
    pattern (map str fizzes buzzes)
    numbers (map str (rest (range)))]
    (take 100 (map #(first (remove blank? %&)) pattern numbers)))