Add top-level lisp file

4 files changed, 0 insertions, 14 deletions

diff --git a/src/01.lisp b/src/01.lisp
index 7f36bf1..36be5d6 100644
--- a/src/01.lisp
+++ b/src/01.lisp
@@ -1,5 +1,3 @@
-(load "../src/common.lisp")
-
 (defun 01/parse-input-direct (input)
   (mapcar 'parse-integer input))
 
diff --git a/src/02.lisp b/src/02.lisp
index 2eeb799..25d3e4f 100644
--- a/src/02.lisp
+++ b/src/02.lisp
@@ -1,7 +1,3 @@
-(load "../src/common.lisp")
-(ql:quickload 'uiop :silent t)
-(ql:quickload 'cl-ppcre :silent t)
-
 ;; Turn the input file into whatever form you will use for both parts
 ;; (get-file-lines) and (get-file-string) will be useful
 (defun 02/parse-input-direct (input)
@@ -28,6 +24,3 @@
         (up (decf a (cdr i)))
         (down (incf a (cdr i)))))
     (* h v)))
-
-;;(time (format t "part 2: ~a~%" (part-a (parse-input "../inputs/02.txt"))))
-;;(time (format t "part 2: ~a~%" (part-b (parse-input "../inputs/02.txt"))))
diff --git a/src/03.lisp b/src/03.lisp
index b1727fc..a9cd314 100644
--- a/src/03.lisp
+++ b/src/03.lisp
@@ -54,6 +54,3 @@
 (defun 03/part-b (parsed-input)
   (* (03/to-dec (03/recursive-b #'03/find-most-common parsed-input nil))
      (03/to-dec (03/recursive-b #'03/find-least-common parsed-input nil))))
-
-;;(time (format t "part 1: ~a~%" (03/part-a (03/parse-input "../inputs/03.txt"))))
-;;(time (format t "part 2: ~a~%" (03/part-b (03/parse-input "../inputs/03.txt"))))
diff --git a/src/common.lisp b/src/common.lisp
index 998db58..c59ea79 100644
--- a/src/common.lisp
+++ b/src/common.lisp
@@ -1,4 +1,2 @@
-(ql:quickload "uiop")
-
 (defun get-file-lines (name)
   (uiop:read-file-lines name))