first Clojure code, day 3 of advent of code 2022

test.cljs

(ns test
  (:require [clojure.string :refer [split-lines]])
  (:require [clojure.set :refer [intersection]]))

(def rucksacks "vJrwpWtwJgWrhcsFMMfFFhFp
jqHRNqRjqzjGDLGLrsFMfFZSrLrFZsSL
PmmdzqPrVvPwwTWBwg
wMqvLMZHhHMvwLHjbvcjnnSBnvTQFn
ttgJtRGJQctTZtZT
CrZsJsPPZsGzwwsLwLmpwMDw")

(defn split-half [s]
  (split-at (/ (count s) 2) s))

(defn priority [c]
  (let [a (int \a)
        A (int \A)
        z (int \z)]
    (if (<= a c z)
      (+ (- c a) 1)
      (+ (- c A) 27))))

(defn intersection-and-sum [a]
  (->> (map (fn [a] (apply intersection (map set a))) a)
       (map (fn [a] (vec a)))
       (flatten)
       (map int)
       (map priority)
       (reduce +)))

(println "part 1:"
         (->> (split-lines rucksacks)
              (map split-half)
              (map (fn [a] (map vec a)))
              (intersection-and-sum)))

(println "part 2:"
         (->> (split-lines rucksacks)
              (partition 3)
              (intersection-and-sum)))