prep day 23

aoc.asd

@@ -52,6 +52,7 @@
 				  (:file "2024/day20")
 				  (:file "2024/day21")
 				  (:file "2024/day22")
+				  (:file "2024/day23")
 				  )))
 	   :description "Advent of Code challenges and solutions."
 	   :long-description "Solutions for the AOC challenges."
@@ -90,6 +91,7 @@
 				  (:file "2024/day20-test")
 				  (:file "2024/day21-test")
 				  (:file "2024/day22-test")
+				  (:file "2024/day23-test")
 				  )))
 	   :description "Test system for aoc"
 	   :perform (test-op (op c) (symbol-call :parachute :test :aoc/tests)))

src/2024/day24.lisp

@@ -0,0 +1,42 @@
+
+(defpackage :aoc/2024/24
+  (:use :cl :aoc :alexandria :trivia :lla)
+  (:export
+   #:sample-data
+   #:sample-data2
+   #:part1
+   #:part2
+   ))
+
+(in-package :aoc/2024/24)
+
+
+(defun parse-line (line)
+  line)
+
+
+(defun parse-input (lines)
+  (mapcar #'parse-line lines))
+
+(defparameter input-text (test-input 2024 24))
+(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 24 p1))
+    (if p2 (submit-part2 2024 24 p2))))

tests/2024/day24-test.lisp

@@ -0,0 +1,27 @@
+(defpackage :aoc/2024/24/tests
+            (:use :cl :aoc :aoc/tests :aoc/2024/tests :parachute :aoc/2024/24))
+
+(in-package :aoc/2024/24/tests)
+
+(define-test suite-2024-24
+                                        ;:parent suite-2024
+             )
+
+(define-test test-foo
+             :parent suite-2024-24
+             ) 
+
+
+(define-test test-bar
+             :parent suite-2024-24
+             )
+
+
+
+(define-test+run test-part1
+                 :parent suite-2024-24
+                 (is equal nil (part1 sample-data)))
+
+(define-test+run test-part2
+                 :parent suite-2024-24
+                 (is equal nil (part2 sample-data)))