13 lines
300 B
Haskell
13 lines
300 B
Haskell
module Main where
|
|
|
|
import Common (parseFile, parseRootPacket, sumPacketVersions)
|
|
import System.Environment (getArgs)
|
|
|
|
main = do
|
|
args <- getArgs
|
|
intList <- parseFile $ head args
|
|
|
|
let rootPacket = parseRootPacket intList
|
|
let results = maybe 0 (`sumPacketVersions` 0) rootPacket
|
|
print results
|