;; Day 1: Not Quite Lisp
;;
;; Part 2: Position of the character with balance -1 (basement)
;;
;; ref.
;; - read: https://lispcookbook.github.io/cl-cookbook/files.html

(defparameter balance 0)
(defparameter position 0)

(defun direction (char) (cond
                           ((char= char #\()
                            +1)
                           ((char= char #\))
                            -1)
                        ))

(with-open-file (in "./data/input")
  (loop for char = (read-char in nil)
        until (= balance -1)
        do
       (setf balance
             (+ balance (direction char)))
       (setf position
             (+ position 1))))

(print position)