Sudoku: Difference between revisions

m
Line 4,260:
 
// Core API
let run errorn stringFg applyFf = parseGrid >> function None -> errorn | Some m -> applyFf m |> stringF g
let solver = run "Parse Error" (Option.fold (fun _ t -> t |> prettyPrint) "No Solution")
let solveNoSearch: string -> string = solver applyCPS