AOC 2021 day 1

day_1.clj

(ns day1
  (:require [clojure.string :as str]))

(def numbers (->> (slurp "input/day-1-input")
                  (str/split-lines)
                  (map #(Integer/parseInt %))))

(defn part-1 [numbers]
  (->> (map compare (rest numbers) numbers)
       (filter pos?)
       (count)))

(defn part-2 [numbers]
  (->> (partition 3 1 numbers)
       (map #(apply + %))
       (part-1)))

(comment
  (part-1 numbers)
  (part-2 numbers))