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