Sudoku: Difference between revisions
Content deleted Content added
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
|