9 lines
165 B
Haskell
Executable file
9 lines
165 B
Haskell
Executable file
#!/usr/bin/env runghc
|
|
|
|
import Day5
|
|
|
|
main = interact solve
|
|
|
|
solve = show . maxSeatId . map (read :: String -> BoardingPass) . lines
|
|
|
|
maxSeatId = maximum . map seatId
|