1
module SudokuSolver.Main
3 module Solver = Version1
10 use fs = new FileStream ("../../../sudokus/mm_22.txt", FileMode.Open, FileAccess.Read)
11 use sr = new StreamReader (fs)
13 while sr.Peek () <> -1 do
14 let b = Solver.Board sr
15 b.Show System.Console.Out
19 let timer = System.Diagnostics.Stopwatch ()
23 then b.Show System.Console.Out
24 else printfn "No solution"
27 printfn "Time: %A ms" timer.ElapsedMilliseconds