11 lines
272 B
Haskell
11 lines
272 B
Haskell
import Common (parseFile, parsePackets, sumPacketVersions)
|
|
import System.Environment (getArgs)
|
|
|
|
main = do
|
|
args <- getArgs
|
|
intList <- parseFile $ head args
|
|
|
|
let packets = parsePackets intList []
|
|
let results = maybe 0 (`sumPacketVersions` 0) packets
|
|
print results
|