Sudoku Solver in Haskell
Branch: master
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
LICENSE
README.md
Sdk.hs

README.md

sdkhs

Sudoku Solver in Haskell

Example usage:

Import the module(Sdk) and use solve function to solve a sudoku puzzle. You can print the solution nicely with printNicely. A sudoku puzzle is represented by a list of lists of integers. Empty positions are represented with 0.

module Main (main) where

import Sdk

puzzle :: [[Int]]
puzzle = [[1, 2, 0, 4, 5, 6, 7, 8, 9],
          [4, 5, 0, 7, 8, 9, 1, 0, 3],
          [7, 8, 9, 1, 2, 3, 4, 5, 6],
          [2, 3, 0, 5, 6, 7, 8, 0, 1],
          [5, 6, 7, 0, 9, 0, 2, 3, 4],
          [0, 9, 1, 0, 3, 4, 5, 0, 0],
          [0, 4, 0, 0, 7, 8, 9, 1, 2],
          [6, 7, 8, 0, 1, 0, 3, 0, 5],
          [0, 1, 0, 0, 4, 5, 6, 7, 8]]

main :: IO ()
main = printNicely $ solve puzzle