Sudoku: Difference between revisions

| Some values -> values |> Map.toSeq |> Seq.map (snd>>string) |> String.concat ""

| _ -> error

/// Using depth-first search and propagation, try all possible values.

let rec search (values:Map<_,_>) =

/// Solve Sudoku using Constraint Propagation

let solve grid = grid |> applyCPS >>= search |> prettyPrint</lang>

open SudokuCPS

 

 

Press any key to exit</pre>

===The Function SLPsolve===

<lang fsharp>