Not Quite Lisp... or is it ?

Solving the first question of Advent Of Code 2015 \o/
2024-06-02 19:33:40 +02:00 · 2024-06-02 19:33:40 +02:00 · 28948d6ed4
parent b2dc08f0f4
commit 28948d6ed4
2 changed files with 14 additions and 1 deletions
--- a/2015/days/01/data/input
+++ b/2015/days/01/data/input
--- a/2015/days/01/lisp.lisp
+++ b/2015/days/01/lisp.lisp
@ -1,7 +1,19 @@
 ;; Day 1: Not Quite Lisp

+(defparameter balance 0)
+
+(defun direction (char) (cond
+                           ((char= char #\()
+                            +1)
+                           ((char= char #\))
+                            -1)
+                        ))
+
 (with-open-file (in "./data/input")
+
  (do ((char (read-char in nil)
             (read-char in nil)))
      ((null char))
-    (print char)))
+    (setf balance (+ balance (direction char)))))
+
+(print balance)