pti/aoc-cl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

prep day 23

Browse source
This commit is contained in:
Peter Tillemans 2024-12-23 17:26:56 +01:00
parent 93db30046a
commit c1fbb9fad4
3 changed files with 163 additions and 92 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

186
aoc.asd
View file

@ -1,95 +1,97 @@
(defsystem "aoc" (defsystem "aoc"
:long-name "Advent of Code" :long-name "Advent of Code"
:version "0.1.0" :version "0.1.0"
:author "Peter Tillemans" :author "Peter Tillemans"
:maintainer "Peter Tillemans" :maintainer "Peter Tillemans"
:mailto "pti@snamellit.com" :mailto "pti@snamellit.com"
:license "MIT" :license "MIT"
:homepage "https://forge.snamellit.com/pti/aoc-cl" :homepage "https://forge.snamellit.com/pti/aoc-cl"
:bug-tracker "https://forge.snamellit.com/pti/aoc-cl/issues" :bug-tracker "https://forge.snamellit.com/pti/aoc-cl/issues"
:source-control "https://forge.snamellit.com/pti/aoc-cl" :source-control "https://forge.snamellit.com/pti/aoc-cl"
:depends-on (#:dexador :depends-on (#:dexador
#:cl-cookie #:cl-cookie
#:plump #:plump
#:lquery #:lquery
#:3d-vectors #:3d-vectors
#:array-operations #:array-operations
#:lla #:lla
#:queues.simple-queue #:queues.simple-queue
#:queues.priority-queue #:queues.priority-queue
#:bt-semaphore ; threads higher level lib #:bt-semaphore ; threads higher level lib
#:trivia ; community standard pattern matching #:trivia ; community standard pattern matching
#:transducers #:transducers
#:smug #:smug
#:fset #:fset
#:arrow-macros #:arrow-macros
) )
:components ((:module "src" :components ((:module "src"
:components :components
((:file "main") ((:file "main")
(:file "maze") (:file "maze")
(:file "2018/day06") (:file "2018/day06")
(:file "2018/day07") (:file "2018/day07")
(:file "2024/day01") (:file "2024/day01")
(:file "2024/day02") (:file "2024/day02")
(:file "2024/day03") (:file "2024/day03")
(:file "2024/day04") (:file "2024/day04")
(:file "2024/day05") (:file "2024/day05")
(:file "2024/day06") (:file "2024/day06")
(:file "2024/day07") (:file "2024/day07")
(:file "2024/day08") (:file "2024/day08")
(:file "2024/day09") (:file "2024/day09")
(:file "2024/day10") (:file "2024/day10")
(:file "2024/day11") (:file "2024/day11")
(:file "2024/day12") (:file "2024/day12")
(:file "2024/day13") (:file "2024/day13")
(:file "2024/day14") (:file "2024/day14")
(:file "2024/day15") (:file "2024/day15")
(:file "2024/day16") (:file "2024/day16")
(:file "2024/day17") (:file "2024/day17")
(:file "2024/day18") (:file "2024/day18")
(:file "2024/day19") (:file "2024/day19")
(:file "2024/day20") (:file "2024/day20")
(:file "2024/day21") (:file "2024/day21")
(:file "2024/day22") (:file "2024/day22")
))) (:file "2024/day23")
:description "Advent of Code challenges and solutions." )))
:long-description "Solutions for the AOC challenges." :description "Advent of Code challenges and solutions."
:in-order-to ((test-op (test-op "aoc/tests")))) :long-description "Solutions for the AOC challenges."
:in-order-to ((test-op (test-op "aoc/tests"))))
(defsystem "aoc/tests" (defsystem "aoc/tests"
:author "Peter Tillemans" :author "Peter Tillemans"
:license "GPL" :license "GPL"
:depends-on ("aoc" :depends-on ("aoc"
#:parachute) #:parachute)
:components ((:module "tests" :components ((:module "tests"
:components :components
((:file "main") ((:file "main")
(:file "2018/day06-test") (:file "2018/day06-test")
(:file "2018/day07-test") (:file "2018/day07-test")
(:file "2024/main") (:file "2024/main")
(:file "2024/day01-test") (:file "2024/day01-test")
(:file "2024/day02-test") (:file "2024/day02-test")
(:file "2024/day03-test") (:file "2024/day03-test")
(:file "2024/day04-test") (:file "2024/day04-test")
(:file "2024/day05-test") (:file "2024/day05-test")
(:file "2024/day06-test") (:file "2024/day06-test")
(:file "2024/day07-test") (:file "2024/day07-test")
(:file "2024/day08-test") (:file "2024/day08-test")
(:file "2024/day09-test") (:file "2024/day09-test")
(:file "2024/day10-test") (:file "2024/day10-test")
(:file "2024/day11-test") (:file "2024/day11-test")
(:file "2024/day12-test") (:file "2024/day12-test")
(:file "2024/day13-test") (:file "2024/day13-test")
(:file "2024/day14-test") (:file "2024/day14-test")
(:file "2024/day15-test") (:file "2024/day15-test")
(:file "2024/day16-test") (:file "2024/day16-test")
(:file "2024/day17-test") (:file "2024/day17-test")
(:file "2024/day18-test") (:file "2024/day18-test")
(:file "2024/day19-test") (:file "2024/day19-test")
(:file "2024/day20-test") (:file "2024/day20-test")
(:file "2024/day21-test") (:file "2024/day21-test")
(:file "2024/day22-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))) :description "Test system for aoc"
:perform (test-op (op c) (symbol-call :parachute :test :aoc/tests)))

42
src/2024/day24.lisp Normal file
View file

@ -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))))

27
tests/2024/day24-test.lisp Normal file
View file

@ -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)))