Anonymous user
Sudoku: Difference between revisions
m
→Simple Backtracker
m (→Simple Backtracker: Added my authorship accreditation) |
|||
Line 4,038:
let next s = squares |> Array.tryFindIndex ((=)s) |> function Some i when i + 1 < 81 -> Some squares[i + 1] | _ -> None
/// Backtrack
let rec backtrack s (values:Map<string,int>) =
match s with
| |||