adventofcode2022

My solutions for Advent of Code 2022
Log | Files | Refs

day24.lisp (522B)

      1 (in-package #:adventofcode2022/test)
      2 
      3 (define-constant +testdata-day24+ "#.######
      4 #>>.<^<#
      5 #.<..<<#
      6 #>v.><>#
      7 #<^v^^>#
      8 ######.#"
      9   :test 'equal)
     10 
     11 (define-constant +testdata-day24-simple+ "#.#####
     12 #.....#
     13 #>....#
     14 #.....#
     15 #...v.#
     16 #.....#
     17 #####.#"
     18   :test 'equal)
     19 
     20 (def-test day24-task1 ()
     21   (is-true
     22    (= 18
     23       (run-task 24 1
     24                 (make-string-input-stream +testdata-day24+)))))
     25 
     26 (def-test day24-task2 ()
     27   (is-true
     28    (= 54
     29       (run-task 24 2
     30                 (make-string-input-stream +testdata-day24+)))))