adventofcode-2020/day7/main.hs

26 lines
946 B
Haskell
Raw Normal View History

2020-12-07 19:35:03 +01:00
#! /usr/bin/env -S"ANSWER=42" nix-shell
#! nix-shell -p ghcid
#! nix-shell -p "haskellPackages.ghcWithPackages (p: with p; [shower])"
#! nix-shell -i "ghcid -c 'ghci -Wall' -T main"
{-# LANGUAGE OverloadedStrings #-}
2020-12-07 21:07:42 +01:00
exampleData :: [String]
exampleData =
[ "light red bags contain 1 bright white bag, 2 muted yellow bags."
, "dark orange bags contain 3 bright white bags, 4 muted yellow bags."
, "bright white bags contain 1 shiny gold bag."
, "muted yellow bags contain 2 shiny gold bags, 9 faded blue bags."
, "shiny gold bags contain 1 dark olive bag, 2 vibrant plum bags."
, "dark olive bags contain 3 faded blue bags, 4 dotted black bags."
, "vibrant plum bags contain 5 faded blue bags, 6 dotted black bags."
, "faded blue bags contain no other bags."
, "dotted black bags contain no other bags."
]
2020-12-07 19:35:03 +01:00
main :: IO ()
main = do
2020-12-07 21:07:42 +01:00
_input <- lines <$> readFile "day7/input"
2020-12-07 19:35:03 +01:00
putStrLn "Day 7 - Part 1"
2020-12-07 21:07:42 +01:00
print $ exampleData