13 lines
289 B
Haskell
13 lines
289 B
Haskell
|
module Main where
|
||
|
|
|
||
|
|
import Types
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = do
|
||
|
|
putStrLn "Reading:"
|
||
|
|
print (read test :: Sudoku)
|
||
|
|
putStrLn "Pretty Printing:"
|
||
|
|
putStrLn . pretty $ (read test :: Sudoku)
|
||
|
|
|
||
|
|
test :: String
|
||
|
|
test = "070000043040009610800634900094052000358460020000800530080070091902100005007040802"
|