Sudoku is a project mainly written in Clojure, it's free.
A naive Sudoku solver implemented in Clojure
A naive Sudoku puzzle solver written in Clojure.
This solver implements a trivial strategy consisting of elimination and trial-and-error.
(require '[ray1729.clojure.sudoku.core :as sudoku])
(def g (sudoku/parse-grid "400000805030000000000700000020000060000080400000010000000603070500200000104000000"))
(sudoku/solved? g) ;;=> false
(sudoku/print-grid g) ;; ...4..... 1....67.9 12...67.9 | 1.3.....9 .23..6..9 12...6..9 | .......8. 123.....9 ....5.... ;; .2...6789 ..3...... 12..56789 | 1..45..89 .2.456..9 12.456.89 | 12...67.9 12.4....9 12.4.67.9 ;; .2...6.89 1...56.89 12..56.89 | ......7.. .23456..9 12.456.89 | 123..6..9 1234....9 1234.6..9 ;; ------------------------------+-------------------------------+------------------------------ ;; ..3...789 .2....... 1.3.5.789 | ..345...9 ..345.7.9 ...45.7.9 | 1.3.5.7.9 .....6... 1.3...789 ;; ..3..67.9 1...567.9 1.3.567.9 | ..3.5...9 .......8. .2..567.9 | ...4..... 123.5...9 123...7.9 ;; ..3..6789 ...456789 ..3.56789 | ..345...9 1........ .2.4567.9 | .23.5.7.9 .23.5..89 .23...789 ;; ------------------------------+-------------------------------+------------------------------ ;; .2.....89 .......89 .2.....89 | .....6... ...45...9 ..3...... | 12..5...9 ......7.. 12.4...89 ;; ....5.... .....6789 ..3..6789 | .2....... ...4..7.9 1..4..789 | 1.3..6..9 1.34...89 1.34.6.89 ;; 1........ .....6789 ...4..... | ....5..89 ....5.7.9 ....5.789 | .23.56..9 .23.5..89 .23..6.89
(def s (sudoku/solve g))
(sudoku/solved? s) ;;=> true
(sudoku/print-grid s) ;; ...4..... 1........ ......7.. | ..3...... .....6... ........9 | .......8. .2....... ....5.... ;; .....6... ..3...... .2....... | 1........ ....5.... .......8. | ........9 ...4..... ......7.. ;; ........9 ....5.... .......8. | ......7.. .2....... ...4..... | ..3...... 1........ .....6... ;; ------------------------------+-------------------------------+------------------------------ ;; .......8. .2....... ....5.... | ...4..... ..3...... ......7.. | 1........ .....6... ........9 ;; ......7.. ........9 1........ | ....5.... .......8. .....6... | ...4..... ..3...... .2....... ;; ..3...... ...4..... .....6... | ........9 1........ .2....... | ......7.. ....5.... .......8. ;; ------------------------------+-------------------------------+------------------------------ ;; .2....... .......8. ........9 | .....6... ...4..... ..3...... | ....5.... ......7.. 1........ ;; ....5.... ......7.. ..3...... | .2....... ........9 1........ | .....6... .......8. ...4..... ;; 1........ .....6... ...4..... | .......8. ......7.. ....5.... | .2....... ........9 ..3......
FIXME: write
This code inspired by: http://norvig.com/sudoku.html
All you want to know about Sudoku: http://www.sudokuwiki.org/
Copyright (C) 2010, Ray Miller [email protected].
THE ACCOMPANYING PROGRAM IS PROVIDED UNDER THE TERMS OF THIS ECLIPSE PUBLIC LICENSE, http://www.eclipse.org/org/documents/epl-v10.php.
ANY USE, REPRODUCTION OR DISTRIBUTION OF THE PROGRAM CONSTITUTES RECIPIENT’S ACCEPTANCE OF THIS AGREEMENT.