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

fmt

Browse source
This commit is contained in:
Alan Daniels 2025-12-08 22:04:58 +11:00
parent 88fa4fed05
commit d317b6ca54
1 changed files with 2 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

7
03b.lisp
View file

@ -23,15 +23,12 @@
when (integerp *candidate*) when (integerp *candidate*)
do (return *candidate*) do (return *candidate*)
do (loop for branch in (reverse *candidate*) do (loop for branch in (reverse *candidate*)
do (cl-heap:enqueue *queue* (cdr branch) (car branch))) do (cl-heap:enqueue *queue* (cdr branch) (car branch)))))
)
)
(bank-max-joltage "234234234234278" 2) (bank-max-joltage "234234234234278" 2)
(bank-max-joltage "234234234234278" 12) (bank-max-joltage "234234234234278" 12)
(defun bank-max-joltage12 (bank) (defun bank-max-joltage12 (bank)
(bank-max-joltage bank 12) (bank-max-joltage bank 12))
)
(defun array-total-joltage (bank-list depth) (defun array-total-joltage (bank-list depth)
(reduce #'+ (reduce #'+
(mapcar #'bank-max-joltage12 bank-list))) (mapcar #'bank-max-joltage12 bank-list)))