day8/part1.clj


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28

(require '[clojure.string :as str])

(loop [sum 0]
  (let [line (read-line)]
    (if (empty? line)
      (println sum)
      (recur
        (+
         sum
         (reduce
           #(let [c (count %2)]
              (if (or (= 2 c) (= 3 c) (= 4 c) (= 7 c))
                (inc %1)
                %1
                )
             )
           0
           (subvec
             (mapv (comp str/join sort) (str/split line #" "))
             11 15
             )
           )
         )
        )
      )
    )
  )