diff --git a/aoc.asd b/aoc.asd index 19708e8..d60ddc2 100644 --- a/aoc.asd +++ b/aoc.asd @@ -36,6 +36,7 @@ (:file "2024/day09") (:file "2024/day10") (:file "2024/day11") + (:file "2024/day12") ))) :description "Advent of Code challenges and solutions." :long-description "Solutions for the AOC challenges." @@ -63,6 +64,7 @@ (:file "2024/day09-test") (:file "2024/day10-test") (:file "2024/day11-test") + (:file "2024/day12-test") ))) :description "Test system for aoc" :perform (test-op (op c) (symbol-call :parachute :test :aoc/tests))) diff --git a/src/2024/day12.lisp b/src/2024/day12.lisp new file mode 100644 index 0000000..7c6e964 --- /dev/null +++ b/src/2024/day12.lisp @@ -0,0 +1,42 @@ + +(defpackage :aoc/2024/12 + (:use :cl :aoc :alexandria :trivia :lla) + (:export + #:sample-data + #:sample-data2 + #:part1 + #:part2 + )) + +(in-package :aoc/2024/12) + + +(defun parse-line (line) + line) + + +(defun parse-input (lines) + (mapcar #'parse-line lines)) + +(defparameter input-text (first (test-input 2024 12))) +(defparameter input-data (parse-input input-text)) + +(defparameter sample-text (aoc:split-lines "")) +(defparameter sample-data + (parse-input sample-text)) + +(defun part1 (data) + nil) + +(defun part2 (data) + nil) + +(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 12 p1)) + (if p2 (submit-part2 2024 12 p2)))) diff --git a/tests/2024/day12-test.lisp b/tests/2024/day12-test.lisp new file mode 100644 index 0000000..9d89646 --- /dev/null +++ b/tests/2024/day12-test.lisp @@ -0,0 +1,27 @@ +(defpackage :aoc/2024/12/tests + (:use :cl :aoc :aoc/tests :aoc/2024/tests :parachute :aoc/2024/12)) + +(in-package :aoc/2024/12/tests) + +(define-test suite-2024-12 + ;:parent suite-2024 + ) + +(define-test test-foo + :parent suite-2024-12 + ) + + +(define-test test-bar + :parent suite-2024-12 + ) + + + +(define-test+run test-part1 + :parent suite-2024-12 + (is equal nil (part1 sample-data))) + +(define-test+run test-part2 + :parent suite-2024-12 + (is equal nil (part2 sample-data)))