15 lines
290 B
Haskell
15 lines
290 B
Haskell
module Main (main) where
|
|
|
|
import System.Environment.Blank ( getArgs )
|
|
import Task1 (task1)
|
|
|
|
main :: IO ()
|
|
main = do
|
|
args <- getArgs
|
|
case args of
|
|
["1", file] -> do
|
|
input <- readFile file
|
|
result <- task1 input
|
|
print result
|
|
_ -> error "Usage: <1|2> <input file>"
|