import Sudoku.Solver (solve) import System.Environment(getArgs) main :: IO() main = print . map solve =<< getArgs module Sudoku.Solver where import qualified Data.Map as Map import Data.Function (on, fix) import Data.List( (\\), groupBy, partition ) -- | 盤面 import Sudoku.Board( Board, readBoard, showBoard, uncertain, varid, update, updateBy ) -- | 座標 import Sudoku.Coord( Coord, constraints, coords