advent-of-code-2024

My solutions to AoC 2024
Log | Files | Refs

day-4.lisp (370B)

      1 (defpackage #:aoc-test/day-4
      2   (:use #:cl #:lisp-unit2)
      3   (:import-from #:aoc/day-4))
      4 (in-package #:aoc-test/day-4)
      5 
      6 (define-test test-day-4
      7     ()
      8   (multiple-value-bind (task-1 task-2)
      9       (aoc:run-day 4 "MMMSXXMASM
     10 MSAMXMSMSA
     11 AMXSXMAAMM
     12 MSAMASMSMX
     13 XMASAMXAMM
     14 XXAMMXXAMA
     15 SMSMSASXSS
     16 SAXAMASAAA
     17 MAMMMXMMMM
     18 MXMXAXMASX")
     19     (assert= 18 task-1)
     20     (assert= 9 task-2)))