From d4d60939353e01ee79d042a6ae1df5ebee904d80 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sat, 5 Dec 2020 15:34:00 +0100 Subject: Day 5 --- 2020/5.hs | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) create mode 100644 2020/5.hs (limited to '2020/5.hs') diff --git a/2020/5.hs b/2020/5.hs new file mode 100644 index 0000000..51c9bca --- /dev/null +++ b/2020/5.hs @@ -0,0 +1,17 @@ +{-# LANGUAGE LambdaCase #-} +module Main (main) where + +import Data.List (sort) +import Numeric (readInt) + +import Input + + +parse :: String -> Int +parse = fst . head . readInt 2 (`elem` "FBLR") (\case 'F' -> 0 ; 'B' -> 1 ; 'L' -> 0 ; 'R' -> 1 ; _ -> undefined) + +main :: IO () +main = do + input <- map parse <$> getInput 5 + print (maximum input) + print (fst (head (filter ((== 2) . snd) (zipWith (\a b -> (a+1, b-a)) (sort input) (tail (sort input)))))) -- cgit v1.2.3-70-g09d2