Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 11 lines (9 sloc) 0.217 kb
90a5962 @simonmar add Par monad sudoku examples
authored
1 import Sudoku
2 import Control.Exception
3 import System.Environment
4 import Data.Maybe
5
6 main :: IO ()
7 main = do
8 [f] <- getArgs
9 grids <- fmap lines $ readFile f
10 print (length (filter isJust (map solve grids)))
Something went wrong with that request. Please try again.