From fa4b58b6ce7e011ee2b88e86648678c6bcd06e66 Mon Sep 17 00:00:00 2001 From: Leah Neukirchen Date: Tue, 7 Dec 2021 18:32:49 +0100 Subject: day06 --- day06.clj | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 day06.clj (limited to 'day06.clj') diff --git a/day06.clj b/day06.clj new file mode 100644 index 0000000..e674209 --- /dev/null +++ b/day06.clj @@ -0,0 +1,22 @@ +(ns org.vuxu.aoc2021.day06 + (:require [clojure.string :as str])) + +(def data + (let [values (->> (str/split (str/trim-newline (slurp "day06")) #",") + (mapv parse-long))] + (mapv #(count (filter #{%} values)) (range 0 9)))) + +(defn stepv [fishes] + (mapv (fn [i] + (cond (= i 8) (fishes 0) + (= i 6) (+ (fishes 0) (fishes (inc i))) + :else (fishes (inc i)))) + (range 0 9))) + +(def part1 + (apply + (nth (iterate stepv data) 80))) +;; => 373378 + +(def part2 + (apply + (nth (iterate stepv data) 256))) +;; => 1682576647495 -- cgit 1.4.1