1 (in-package #:adventofcode2020)
3 (defun simple-fuel (mass)
7 (defun complex-fuel (mass)
8 (loop with m = (simple-fuel mass)
10 do (setf m (simple-fuel m))))
13 (let ((modules (int-list-from input)))
14 (part1 (reduce #'+ (mapcar #'simple-fuel modules)))
15 (part2 (reduce #'+ (mapcar #'complex-fuel modules)))))
23 (mapcar #'simple-fuel '(12 14 1969 100756)))))
28 (mapcar #'complex-fuel '(14 1969 100756)))))