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