adventofcode2022

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

day05.lisp (518B)

      1 (in-package #:adventofcode2022/test)
      2 
      3 (define-constant +testdata-day05+ "    [D]    
      4 [N] [C]    
      5 [Z] [M] [P]
      6  1   2   3 
      7 
      8 move 1 from 2 to 1
      9 move 3 from 1 to 3
     10 move 2 from 2 to 1
     11 move 1 from 1 to 2"
     12   :test 'equal)
     13 
     14 (def-test day05-task1 ()
     15   (is-true
     16    (string= "CMZ"
     17             (run-task 5 1
     18                       (make-string-input-stream +testdata-day05+)))))
     19 
     20 (def-test day05-task2 ()
     21   (is-true
     22    (string= "MCD"
     23             (run-task 5 2
     24                       (make-string-input-stream +testdata-day05+)))))
     25