Advent of Code: 1

advent-1.clj

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

(let [a1 (slurp "a1.txt")]
  (- (count (re-seq #"\(" a1))
     (count (re-seq #"\)" a1))))

(loop [chars (str/trim (slurp "a1.txt")) v 0 p 0]
  (if (= -1 v) p
      (let [c (first chars)]
        (recur (rest chars)
               (condp = c
                 \( (inc v)
                 \) (dec v))
               (inc p)))))