day-18.lisp (442B)
1 (defpackage #:aoc-test/day-18 2 (:use #:cl #:lisp-unit2)) 3 (in-package #:aoc-test/day-18) 4 5 (define-test test-day-18 6 () 7 (multiple-value-bind (task-1 task-2) 8 (aoc:run-day 18 "R 6 (#70c710) 9 D 5 (#0dc571) 10 L 2 (#5713f0) 11 D 2 (#d2c081) 12 R 2 (#59c680) 13 D 2 (#411b91) 14 L 5 (#8ceee2) 15 U 2 (#caa173) 16 L 1 (#1b58a2) 17 U 2 (#caa171) 18 R 2 (#7807d2) 19 U 3 (#a77fa3) 20 L 2 (#015232) 21 U 2 (#7a21e3)") 22 (assert= 62 task-1) 23 (assert= 952408144115 task-2)))