Anonymous user
Sudoku: Difference between revisions
→Backtracking
(→{{header|F_Sharp|F#}}: Added F# Constraint Propagation (Norvig) Solution) |
|||
Line 4,040:
let next s = squares |> Array.tryFindIndex ((=)s) |> function Some i when i + 1 < 81 -> Some squares[i + 1] | _ -> None
/// Backtrack
let rec backtracker (values:Map<_,_>) = function
| None -> Some values // solved!
Line 4,097:
Press any key to exit
</pre>
===Constraint Propagation (Norvig)===
<!-- By Martin Freedman, 27/11/2021 -->
| |||