1 b80049b6 2024-12-16 lh (defpackage #:aoc-test/day-16
2 b80049b6 2024-12-16 lh (:use #:cl #:lisp-unit2)
3 b80049b6 2024-12-16 lh (:import-from #:aoc/day-16))
4 b80049b6 2024-12-16 lh (in-package #:aoc-test/day-16)
6 b80049b6 2024-12-16 lh (define-test test-day-16
8 b80049b6 2024-12-16 lh (multiple-value-bind (task-1 task-2)
9 b80049b6 2024-12-16 lh (aoc:run-day 16 "###############
10 b80049b6 2024-12-16 lh #.......#....E#
11 b80049b6 2024-12-16 lh #.#.###.#.###.#
12 b80049b6 2024-12-16 lh #.....#.#...#.#
13 b80049b6 2024-12-16 lh #.###.#####.#.#
14 b80049b6 2024-12-16 lh #.#.#.......#.#
15 b80049b6 2024-12-16 lh #.#.#####.###.#
16 b80049b6 2024-12-16 lh #...........#.#
17 b80049b6 2024-12-16 lh ###.#.#####.#.#
18 b80049b6 2024-12-16 lh #...#.....#.#.#
19 b80049b6 2024-12-16 lh #.#.#.###.#.#.#
20 b80049b6 2024-12-16 lh #.....#...#.#.#
21 b80049b6 2024-12-16 lh #.###.#.#.#.#.#
22 b80049b6 2024-12-16 lh #S..#.....#...#
23 b80049b6 2024-12-16 lh ###############")
24 b80049b6 2024-12-16 lh (assert= 7036 task-1)
25 b80049b6 2024-12-16 lh (assert= 45 task-2))
26 b80049b6 2024-12-16 lh (multiple-value-bind (task-1 task-2)
27 b80049b6 2024-12-16 lh (aoc:run-day 16 "#################
28 b80049b6 2024-12-16 lh #...#...#...#..E#
29 b80049b6 2024-12-16 lh #.#.#.#.#.#.#.#.#
30 b80049b6 2024-12-16 lh #.#.#.#...#...#.#
31 b80049b6 2024-12-16 lh #.#.#.#.###.#.#.#
32 b80049b6 2024-12-16 lh #...#.#.#.....#.#
33 b80049b6 2024-12-16 lh #.#.#.#.#.#####.#
34 b80049b6 2024-12-16 lh #.#...#.#.#.....#
35 b80049b6 2024-12-16 lh #.#.#####.#.###.#
36 b80049b6 2024-12-16 lh #.#.#.......#...#
37 b80049b6 2024-12-16 lh #.#.###.#####.###
38 b80049b6 2024-12-16 lh #.#.#...#.....#.#
39 b80049b6 2024-12-16 lh #.#.#.#####.###.#
40 b80049b6 2024-12-16 lh #.#.#.........#.#
41 b80049b6 2024-12-16 lh #.#.#.#########.#
42 b80049b6 2024-12-16 lh #S#.............#
43 b80049b6 2024-12-16 lh #################")
44 b80049b6 2024-12-16 lh (assert= 11048 task-1)
45 b80049b6 2024-12-16 lh (assert= 64 task-2)))
