mirror of
https://codeberg.org/JasterV/aoc2024-haskell.git
synced 2026-04-26 18:10:05 +00:00
24 lines
511 B
Haskell
24 lines
511 B
Haskell
module Day7Spec (spec) where
|
|
|
|
import Day7 (partOne, partTwo)
|
|
import Test.Hspec
|
|
|
|
spec :: Spec
|
|
spec = do
|
|
describe "PartOne" $ do
|
|
it "works" $ do
|
|
partOne input `shouldBe` Right 3749
|
|
describe "PartTwo" $ do
|
|
it "works" $ do
|
|
partTwo input `shouldBe` Right 11387
|
|
where
|
|
input =
|
|
"190: 10 19\n\
|
|
\3267: 81 40 27\n\
|
|
\83: 17 5\n\
|
|
\156: 15 6\n\
|
|
\7290: 6 8 6 15\n\
|
|
\161011: 16 10 13\n\
|
|
\192: 17 8 14\n\
|
|
\21037: 9 7 18 13\n\
|
|
\292: 11 6 16 20"
|