12 lines
249 B
Haskell
12 lines
249 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
module Main where
|
|
|
|
import Sudoku
|
|
import System.Environment (getArgs)
|
|
|
|
|
|
main :: IO ()
|
|
main = getArgs >>= \case
|
|
[filename] -> readFile filename >>= print . solve . parseStringToGrid
|
|
_ -> error "Usage: Estinen filename"
|