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