day-5.lisp (572B)
1 (defpackage #:aoc-test/day-5 2 (:use #:cl #:lisp-unit2)) 3 (in-package #:aoc-test/day-5) 4 5 (define-test test-day-5 6 () 7 (multiple-value-bind (task-1 task-2) 8 (aoc:run-day 5 "seeds: 79 14 55 13 9 10 seed-to-soil map: 11 50 98 2 12 52 50 48 13 14 soil-to-fertilizer map: 15 0 15 37 16 37 52 2 17 39 0 15 18 19 fertilizer-to-water map: 20 49 53 8 21 0 11 42 22 42 0 7 23 57 7 4 24 25 water-to-light map: 26 88 18 7 27 18 25 70 28 29 light-to-temperature map: 30 45 77 23 31 81 45 19 32 68 64 13 33 34 temperature-to-humidity map: 35 0 69 1 36 1 0 69 37 38 humidity-to-location map: 39 60 56 37 40 56 93 4") 41 (assert= 35 task-1) 42 (assert= 46 task-2)))