Sudoku: Difference between revisions
Content added Content deleted
Line 4,041: | Line 4,041: | ||
/// Backtrack recursvely and immutably from index |
/// Backtrack recursvely and immutably from index |
||
let rec backtracker (values:Map< |
let rec backtracker (values:Map<_,_>) = function |
||
| None -> Some values // solved! |
| None -> Some values // solved! |
||
| Some s when values[s] > 0 -> backtracker values (next s) // square not empty |
| Some s when values[s] > 0 -> backtracker values (next s) // square not empty |