1 (in-package #:adventofcode2020)
3 (defun calculate-expenses (&rest reports)
4 (let ((prod (apply #'cartesian-product reports)))
5 (loop for tuple in prod
6 when (= (apply #'+ tuple) 2020)
7 return (apply #'* tuple))))
10 (let ((report (int-list-from input)))
11 (part1 (calculate-expenses report report))
12 (part2 (calculate-expenses report report report))))
20 (let ((report '(1721 979 366 299 675 1456)))
21 (calculate-expenses report report)))))
23 (test complex-expenses
26 (let ((report '(1721 979 366 299 675 1456)))
27 (calculate-expenses report report report)))))