24 lines
608 B
Haskell
24 lines
608 B
Haskell
import Data.List.Split (splitOn)
|
|
|
|
type Quad = ((Int, Int), (Int, Int))
|
|
|
|
parseQuad :: String -> Quad
|
|
parseQuad s = (parsePair a, parsePair b) where
|
|
[a,b] = splitOn "," s
|
|
parsePair s = let [x,y] = splitOn "-" s in (read x, read y)
|
|
|
|
part1 :: Quad -> Bool
|
|
part1 ((a,b), (x,y)) = (a <= x && b >= y) || (x <= a && y >= b)
|
|
|
|
part2 :: Quad -> Bool
|
|
part2 ((a,b), (x,y)) = (a <= x && b >= x) || (x <= a && y >= a)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
x <- map parseQuad . lines <$> getContents
|
|
|
|
putStr "part 1: "
|
|
print $ length (filter part1 x)
|
|
|
|
putStr "part 2: "
|
|
print $ length (filter part2 x) |