Sudoku: Difference between revisions
Content deleted Content added
→Tcl: Added implementation |
m →{{header|Tcl}}: Explain origin and logger |
||
Line 83:
=={{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}}
<lang tcl>package require Tcl 8.6
Line 372 ⟶ 374:
|8 2 6|4 1 9|7 3 5|
+-----+-----+-----+</pre>
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>
Then this additional logging output would have been produced prior to the result being printed:
<pre>::RuleOnlyChoice solved ::sudoku at 8,0 for 1
::RuleColumnChoice solved ::sudoku at 1,1 for 6
| |||