ajet/advent-of-code
1
0
Fork 0
mirror of https://github.com/Ajetski/advent-of-code.git synced 2025-09-30 07:23:18 -09:00
Code Issues Packages Projects Releases Wiki Activity

do day 7

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-07 02:03:09 -05:00
parent e922e14436
commit 4018ae20dd
1 changed files with 60 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

60
2023/src/day07.clj Normal file
View File

@ -0,0 +1,60 @@
(ns ^{:doc "Day 7"
:author "Adam Jeniski"}
day07 (:require [clojure.string :as string]
[core :refer [get-puzzle-input]]))
(def input (get-puzzle-input 7))
;; part 1
(->> input
(map #(string/split % #" "))
(map #(update % 1 (fn [x] (Integer/parseInt x))))
(sort-by
(juxt (comp (fn hand-type [hand]
(let [v (->> hand
frequencies
vals)]
(cond (and (some #(= 3 %) v)
(some #(= 2 %) v))
7,
(= 2 (count (filter #(= 2 %) v)))
5
:else (* 2 (apply max v))))) first)
(comp (partial into [])
(partial map (->> "23456789TJQKA"
(map-indexed #(vector %2 (inc %1)))
(into {}))) first)))
(map-indexed (fn [idx [_ v]]
(* v (inc idx))))
(reduce +))
;; part 2
(->> input
(map #(string/split % #" "))
(map #(update % 1 (fn [x] (Integer/parseInt x))))
(sort-by
(juxt (comp (fn hand-type [hand]
(let [w (+ (count (filter #(= % \J) hand)))
v (->> hand
(filter #(not= % \J))
frequencies
vals
(sort >)
(into [])
(#(if (empty? %)
(list 5)
(update % 0 + w))))]
(cond (and (some #(= 3 %) v)
(some #(= 2 %) v))
7,
(= 2 (count (filter #(= 2 %) v)))
5
:else (* 2 (apply max v))))) first)
(comp (partial into [])
(partial map (->> "J23456789TQKA"
(map-indexed #(vector %2 (inc %1)))
(into {}))) first)))
(map-indexed (fn [idx [_ v]]
(* v (inc idx))))
(reduce +))