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

Compare commits

base: pti:739ee1ba536692b0220f7dde968f914f3ad8a2ef
Branches Tags
pti:main
..
compare: pti:c1fbb9fad499bd0d31992fc80f82f16fe90f7d6a
Branches Tags
pti:main

2 commits
739ee1ba53 ... c1fbb9fad4

Author SHA1 Message Date
Peter Tillemans
c1fbb9fad4 prep day 23 2024-12-23 17:26:56 +01:00
Peter Tillemans
93db30046a solved day21 part 2. 2024-12-23 14:15:25 +01:00
4 changed files with 188 additions and 100 deletions
Show stats Expand all files Collapse all files

186
aoc.asd
View file

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

33
src/2024/day21.lisp
View file

@ -262,6 +262,11 @@
sum (let ((ll (gethash (list layer ki kf) leg-lengths)))
ll)))
(defun press-move (d pc mc)
(loop
for i from 1 to (abs d)
collect (if (plusp d) pc mc)))
(defun fill-leg-table (n-robots)
(setf leg-lengths (make-hash-table :test #'equal))
@ -298,19 +303,15 @@
do (let* (
(dx (- xf xi))
(dy (- yf yi))
(hp (loop
for x from 0 below (abs dx)
collect (if (plusp dx) #\> #\<)))
(vp (loop
for y from 0 below (abs dy)
collect (if (minusp dy) #\^ #\v)))
(hp (press-move dx #\> #\<))
(vp (press-move dy #\v #\^))
(hf (coerce (append hp vp '(#\A)) 'string))
(h-first (if (equal (cons xf yi) space-pos)
999
99999999999
(fewest-presses (1- layer) hf)))
(vf (coerce (append vp hp '(#\A)) 'string))
(v-first (if (equal (cons xi yf) space-pos)
999
99999999999
(fewest-presses (1- layer) vf))))
;;(format t "h ~A ~A ~A ~A~%" xi yf hf h-first)
;;(format t "v ~A ~A ~A ~A~%" xf yi vf v-first)
@ -322,6 +323,13 @@
))
)
(defun print-leg-lengths (stream)
(loop
for k being the hash-keys in leg-lengths
for v being the hash-values in leg-lengths
do (format stream "~2,'0D,~A,~A,~A~%" (first k) (second k) (third k) v)))
(defun complexity (code n)
(let ((l (fewest-presses n code))
(v (parse-integer (ppcre:scan-to-strings "\\d+" code))))
@ -339,6 +347,15 @@
do (format t "~15A~%" (fewest-presses n code))
)))
(defun write-leg-lengths-to-file (filename)
(with-open-file (str filename
:direction :output
:if-exists :supersede
:if-does-not-exist :create)
(print-leg-lengths str)))
(defun part1 (data)
(fill-leg-table 3)

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