Sudoku: Difference between revisions
Content added Content deleted
Line 4,260: | Line 4,260: | ||
// Core API |
// Core API |
||
let run |
let run n g f = parseGrid >> function None -> n | Some m -> f m |> g |
||
let solver = run "Parse Error" (Option.fold (fun _ t -> t |> prettyPrint) "No Solution") |
let solver = run "Parse Error" (Option.fold (fun _ t -> t |> prettyPrint) "No Solution") |
||
let solveNoSearch: string -> string = solver applyCPS |
let solveNoSearch: string -> string = solver applyCPS |