mirror of
https://codeberg.org/JasterV/aoc2024-haskell.git
synced 2026-04-26 18:10:05 +00:00
40 lines
684 B
Haskell
40 lines
684 B
Haskell
module Day5Spec (spec) where
|
|
|
|
import Day5 (partOne)
|
|
import Test.Hspec
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
describe "PartOne" $ do
|
|
it "works" $ do
|
|
partOne input `shouldBe` Right 143
|
|
where
|
|
input =
|
|
"47|53\n\
|
|
\97|13\n\
|
|
\97|61\n\
|
|
\97|47\n\
|
|
\75|29\n\
|
|
\61|13\n\
|
|
\75|53\n\
|
|
\29|13\n\
|
|
\97|29\n\
|
|
\53|29\n\
|
|
\61|53\n\
|
|
\97|53\n\
|
|
\61|29\n\
|
|
\47|13\n\
|
|
\75|47\n\
|
|
\97|75\n\
|
|
\47|61\n\
|
|
\75|61\n\
|
|
\47|29\n\
|
|
\75|13\n\
|
|
\53|13\n\
|
|
\\n\
|
|
\75,47,61,53,29\n\
|
|
\97,61,53,29,13\n\
|
|
\75,29,13\n\
|
|
\75,97,47,61,53\n\
|
|
\61,13,29\n\
|
|
\97,13,75,29,47"
|