advent-of-code-2024

My solutions to AoC 2024
Log | Files | Refs

day-18.lisp (444B)

      1 (defpackage #:aoc-test/day-18
      2   (:use #:cl #:lisp-unit2 #:aoc/day-18))
      3 (in-package #:aoc-test/day-18)
      4 
      5 (define-test test-day-18
      6     ()
      7   (let ((*width* 7)
      8         (*height* 7)
      9         (*bytes-falling* 12))
     10     (multiple-value-bind (task-1 task-2)
     11         (aoc:run-day 18 "5,4
     12 4,2
     13 4,5
     14 3,0
     15 2,1
     16 6,3
     17 2,4
     18 1,5
     19 0,6
     20 3,3
     21 2,6
     22 5,1
     23 1,2
     24 5,5
     25 2,5
     26 6,5
     27 1,4
     28 0,4
     29 6,4
     30 1,1
     31 6,1
     32 1,0
     33 0,5
     34 1,6
     35 2,0")
     36       (assert= 22 task-1)
     37       (assert-string-equal "6,1" task-2))))