From d6312a68655a075748073bb7fc486d814a55ea9c Mon Sep 17 00:00:00 2001
From: Peter Tillemans <pti@snamellit.com>
Date: Mon, 16 Dec 2024 06:04:44 +0100
Subject: [PATCH] start day 16

---
 src/2024/day16.lisp | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 src/2024/day16.lisp

diff --git a/src/2024/day16.lisp b/src/2024/day16.lisp
new file mode 100644
index 0000000..0293da4
--- /dev/null
+++ b/src/2024/day16.lisp
@@ -0,0 +1,42 @@
+
+(defpackage :aoc/2024/16
+  (:use :cl :aoc :alexandria :trivia :lla)
+  (:export
+   #:sample-data
+   #:sample-data2
+   #:part1
+   #:part2
+   ))
+
+(in-package :aoc/2024/16)
+
+
+(defun parse-line (line)
+  line)
+
+
+(defun parse-input (lines)
+  (mapcar #'parse-line lines))
+
+(defparameter input-text (test-input 2024 16))
+(defparameter input-data (parse-input input-text))
+
+(defparameter sample-text (aoc:split-lines ""))
+(defparameter sample-data 
+              (parse-input sample-text))
+
+(defun part1 (data)
+  (length data))
+
+(defun part2 (data)
+  (length data))
+
+(defun solve-day ()
+  (format t "part1: ~A~%" (part1 input-data))
+  (format t "part2: ~A~%" (part2 input-data)))
+
+(defun submit ()
+  (let ((p1 (part1 input-data))
+        (p2 (part2 input-data)))
+    (if p1 (submit-part1 2024 16 p1))
+    (if p2 (submit-part2 2024 16 p2))))