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