adventofcode2022

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

day06.lisp (773B)

      1 (in-package #:adventofcode2022/test)
      2 
      3 (define-constant +testdata-day06+
      4     (list (list "mjqjpqmgbljsphdztnvjfqwrcgsmlb" 7 19)
      5           (list "bvwbjplbgvbhsrlpgdmjqwftvncz" 5 23)
      6           (list "nppdvjthqldpwncqszvftbrmjlhg" 6 23)
      7           (list "nznrnfrfntjfmvfwmzdfjlvtqnbhcprsg" 10 29)
      8           (list "zcfzfwzzqfrljwzlrfnpqdbhtmscgvjw" 11 26))
      9   :test 'equal)
     10 
     11 (def-test day06-task1 ()
     12   (loop for (data m-1 m-2) in +testdata-day06+
     13         do (is-true
     14             (= m-1
     15                (run-task 6 1
     16                          (make-string-input-stream data))))))
     17 
     18 (def-test day06-task2 ()
     19   (loop for (data m-1 m-2) in +testdata-day06+
     20         do (is-true
     21             (= m-2
     22                (run-task 6 2
     23                          (make-string-input-stream data))))))