mpo/adventofcode-2020
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Day 5 - Part 2

Browse source
This commit is contained in:
Martin Potier 2020-12-07 12:11:12 +02:00
parent 640efa334b
commit 19975730a5
No known key found for this signature in database
GPG key ID: D4DD957DBA4AD89E
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
day5/main.hs
View file

@ -6,6 +6,7 @@
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings #-}
-- import Debug.Trace (trace) -- import Debug.Trace (trace)
import Data.List (sort)
binaryPartitionWalker :: String -> Int -> Int -> (String, Int, Int) binaryPartitionWalker :: String -> Int -> Int -> (String, Int, Int)
binaryPartitionWalker ('F':s) begin end = binaryPartitionWalker ('F':s) begin end =
@ -29,6 +30,9 @@ seatID str = row * 8 + seat
solvePart1 :: [String] -> Int solvePart1 :: [String] -> Int
solvePart1 = maximum . (map seatID) solvePart1 = maximum . (map seatID)
solvePart2 :: [String] -> Int
solvePart2 = fst . head . (filter (\(x,y) -> x /= y)) . (zip [13..]) . sort . (map seatID)
main :: IO () main :: IO ()
main = do main = do
putStrLn "Day 5 - Part 1" putStrLn "Day 5 - Part 1"
@ -36,6 +40,8 @@ main = do
print $ seatID "BFFFBBFRRR" print $ seatID "BFFFBBFRRR"
print $ seatID "FFFBBBFRRR" print $ seatID "FFFBBBFRRR"
print $ seatID "BBFFBBFRLL" print $ seatID "BBFFBBFRLL"
putStrLn $ "Solution of part 1"
input <- lines <$> readFile "day5/input" input <- lines <$> readFile "day5/input"
putStrLn $ "Solution of part 1"
print $ solvePart1 input print $ solvePart1 input
putStrLn $ "Solution of part 2"
print $ solvePart2 input