From d317b6ca5417fee0a322e877993bfc505eb1ee7d Mon Sep 17 00:00:00 2001 From: Alan Daniels Date: Mon, 8 Dec 2025 22:04:58 +1100 Subject: [PATCH] fmt --- 03b.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/03b.lisp b/03b.lisp index c9cab7b..d458139 100644 --- a/03b.lisp +++ b/03b.lisp @@ -23,15 +23,12 @@ when (integerp *candidate*) do (return *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" 12) (defun bank-max-joltage12 (bank) - (bank-max-joltage bank 12) - ) + (bank-max-joltage bank 12)) (defun array-total-joltage (bank-list depth) (reduce #'+ (mapcar #'bank-max-joltage12 bank-list)))