day-4.lisp (526B)
1 (defpackage #:aoc-test/day-4 2 (:use #:cl #:lisp-unit2)) 3 (in-package #:aoc-test/day-4) 4 5 (define-test test-day-4 6 () 7 (multiple-value-bind (task-1 task-2) 8 (aoc:run-day 4 "Card 1: 41 48 83 86 17 | 83 86 6 31 17 9 48 53 9 Card 2: 13 32 20 16 61 | 61 30 68 82 17 32 24 19 10 Card 3: 1 21 53 59 44 | 69 82 63 72 16 21 14 1 11 Card 4: 41 92 73 84 69 | 59 84 76 51 58 5 54 83 12 Card 5: 87 83 26 28 32 | 88 30 70 12 93 22 82 36 13 Card 6: 31 18 13 56 72 | 74 77 10 23 35 67 36 11") 14 (assert= 13 task-1) 15 (assert= 30 task-2)))