day-25.lisp (820B)
1 (defpackage #:aoc-test/day-25 2 (:use #:cl #:lisp-unit2) 3 (:import-from #:aoc/day-25)) 4 (in-package #:aoc-test/day-25) 5 6 (define-test test-day-25 7 () 8 (assert-eq nil (aoc/day-25:key-fits-p '(0 5 3 4 3) '(5 0 2 1 3) 5)) 9 (assert-eq nil (aoc/day-25:key-fits-p '(0 5 3 4 3) '(4 3 4 0 2) 5)) 10 (assert-eq t (aoc/day-25:key-fits-p '(0 5 3 4 3) '(3 0 2 0 1) 5)) 11 (assert-eq nil (aoc/day-25:key-fits-p '(1 2 0 5 3) '(5 0 2 1 3) 5)) 12 (assert-eq t (aoc/day-25:key-fits-p '(1 2 0 5 3) '(4 3 4 0 2) 5)) 13 (assert-eq t (aoc/day-25:key-fits-p '(1 2 0 5 3) '(3 0 2 0 1) 5)) 14 (assert= 3 (aoc:run-day 25 "##### 15 .#### 16 .#### 17 .#### 18 .#.#. 19 .#... 20 ..... 21 22 ##### 23 ##.## 24 .#.## 25 ...## 26 ...#. 27 ...#. 28 ..... 29 30 ..... 31 #.... 32 #.... 33 #...# 34 #.#.# 35 #.### 36 ##### 37 38 ..... 39 ..... 40 #.#.. 41 ###.. 42 ###.# 43 ###.# 44 ##### 45 46 ..... 47 ..... 48 ..... 49 #.... 50 #.#.. 51 #.#.# 52 #####")))