Skip to content

Instantly share code, notes, and snippets.

@leetwinski

leetwinski/main.clj

Last active December 14, 2020 15:51
Show Gist options
  • Save leetwinski/faeffdd93f0d45408c84284a8f3d842f to your computer and use it in GitHub Desktop.
Save leetwinski/faeffdd93f0d45408c84284a8f3d842f to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. leetwinski revised this gist Dec 14, 2020. 1 changed file with 4 additions and 2 deletions.
    6 changes: 4 additions & 2 deletions main.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -5,6 +5,8 @@

    ;; part2
    (apply + (map #(let [g-size (inc (count (filter #{\newline} %)))]
    (count (filter (comp #{g-size} second)
    (frequencies %))))
    (->> (frequencies %)
    vals
    (filter #{g-size})
    count))
    data-6))
  2. leetwinski created this gist Dec 14, 2020.
    10 changes: 10 additions & 0 deletions main.clj
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,10 @@
    (def data-6 (clojure.string/split in-6 #"\n\n"))

    ;; part1
    (apply + (map #(count (disj (set %) \newline)) data-6))

    ;; part2
    (apply + (map #(let [g-size (inc (count (filter #{\newline} %)))]
    (count (filter (comp #{g-size} second)
    (frequencies %))))
    data-6))