day19.lisp (721B)
1 (in-package #:adventofcode2022/test) 2 3 (define-constant +testdata-day19+ "Blueprint 1: Each ore robot costs 4 ore. Each clay robot costs 2 ore. Each obsidian robot costs 3 ore and 14 clay. Each geode robot costs 2 ore and 7 obsidian. 4 Blueprint 2: Each ore robot costs 2 ore. Each clay robot costs 3 ore. Each obsidian robot costs 3 ore and 8 clay. Each geode robot costs 3 ore and 12 obsidian." 5 :test 'equal) 6 7 (def-test day19-task1 () 8 (is-true 9 (= 33 10 (run-task 19 1 11 (make-string-input-stream +testdata-day19+))))) 12 13 (def-test day19-task2 () 14 (is-true 15 (= 2604 ;; no idea if this is correct, but my input is 16 (run-task 19 2 17 (make-string-input-stream +testdata-day19+)))))