Anonymous user
Sudoku: Difference between revisions
m
→Immutable Backtracker
Line 4,041:
/// Backtrack recursvely and immutably from index
let rec backtracker (values:Map<
| None -> Some values // solved!
| Some s when values[s] > 0 -> backtracker values (next s) // square not empty
|