Sudoku: Difference between revisions

Content added Content deleted
(add Tailspin solution)
(→‎{{header|Tailspin}}: clearer code for output)
Line 11,709: Line 11,709:
$ -> parseSudoku -> deduceRemainingDigits -> #
$ -> parseSudoku -> deduceRemainingDigits -> #
<=[]> 'No result found' !
<=[]> 'No result found' !
<> def result: $;
<> $ -> \[i](
[1..7:3 -> $result($..$+2) -> \section('$:1..11 -> '-';$#10;' ! $... ->
'$(1..3)...;|$(4..6)...;|$(7..9)...;$#10;' !
\row( def r: $;
$i -> \(<=3|=6> '-----------$#10;' !\) !
[1..7:3 -> $r($..$+2) -> \triple('|' ! $... ! \triple)] -> '$(2..last)...;$#10;' !
\) -> '$...;' !
\row)
!\section)] -> '$(2..last)...;' !
end solveSudoku
end solveSudoku