aoc-2023-2.clj

(ns advent-of-code-2023.core
  (:require [clojure.string :refer [split split-lines]]))

(defn parse-line [game]
  (let [[game-number plays] (split game #":\s")
        play-seq (split plays #"[;,]\s")]
    [(Integer. (re-find  #"\d+" game-number))
     (map #(let [[n color] (split % #"\s")]
             [(Integer. n)
              (keyword color)])
          play-seq)]))

(defn parse-input []
  (->> "./resources/input.txt"
       slurp
       split-lines
       (map parse-line)))

(defn valid-game [limits [_ plays]]
  (every? (fn [[n color]] (<= n (limits color))) plays))

(defn games-possible [& {:keys [red green blue] :as limits}]
  (->> (parse-input)
       (filter (partial valid-game limits))
       (map first)
       (reduce +)))