RosettaCodeData/Task/Nonogram-solver/F-Sharp/nonogram-solver-3.fs
2023-07-01 13:44:08 -04:00

2 lines
172 B
FSharp

let n,i,g,e,l = N.presolve rFile.Value
if l then i |> Array.iter (fun n -> n |> Array.iter (fun n -> printf "%s" (N.toStr n));printfn "") else printfn "No unique solution"