Sudoku: Difference between revisions
Content added Content deleted
(→Tcl: Added implementation) |
m (→{{header|Tcl}}: Explain origin and logger) |
||
Line 83: | Line 83: | ||
=={{header|Tcl}}== |
=={{header|Tcl}}== |
||
Adapted from [http://wiki.tcl.tk/19934 a page on the Tcler's Wiki] to use a standard object system. |
|||
<br> |
|||
{{works with|Tcl|8.6}} |
{{works with|Tcl|8.6}} |
||
<lang tcl>package require Tcl 8.6 |
<lang tcl>package require Tcl 8.6 |
||
Line 372: | Line 374: | ||
|8 2 6|4 1 9|7 3 5| |
|8 2 6|4 1 9|7 3 5| |
||
+-----+-----+-----+</pre> |
+-----+-----+-----+</pre> |
||
If we'd added a logger method like this: |
If we'd added a logger method (after creating the <code>sudoku</code> object but before running the solver) like this: |
||
<lang tcl>oo::objdefine sudoku method Log msg {puts $msg}</lang> |
<lang tcl>oo::objdefine sudoku method Log msg {puts $msg}</lang> |
||
Then this additional logging output would have been produced: |
Then this additional logging output would have been produced prior to the result being printed: |
||
<pre>::RuleOnlyChoice solved ::sudoku at 8,0 for 1 |
<pre>::RuleOnlyChoice solved ::sudoku at 8,0 for 1 |
||
::RuleColumnChoice solved ::sudoku at 1,1 for 6 |
::RuleColumnChoice solved ::sudoku at 1,1 for 6 |