Start

Author: forki

Source/SudokuSolver/Extraction.fs

@@ -0,0 +1,25 @@
+module Extraction
+
+let original =
+    [[ 1;  2;  3;  4]
+     [ 5;  6;  7;  8]
+     [ 9; 10; 11; 12]
+     [13; 14; 15; 16]]
+
+let extracted_rows =
+    [[ 1;  2;  3;  4]
+     [ 5;  6;  7;  8]
+     [ 9; 10; 11; 12]
+     [13; 14; 15; 16]]
+
+let extracted_cols =
+    [[ 1; 5;  9; 13]
+     [ 2; 6; 10; 14]
+     [ 3; 7; 11; 15]
+     [ 4; 8; 12; 16]]
+
+let extracted_boxes =
+    [[ 1;  2;  5;  6]
+     [ 3;  4;  7;  8]
+     [ 9; 10; 13; 14]
+     [11; 12; 15; 16]]

Source/SudokuSolver/Program.fs

@@ -4,6 +4,12 @@
      [0; 3; 0; 0]
      [2; 0; 0; 0]]
 
+let field1_solved =
+    [[1; 2; 3; 4]
+     [3; 4; 1; 2]
+     [4; 3; 2; 1]
+     [2; 1; 4; 3]]
+
 let field2 =
     [[0; 0; 8;  3; 0; 0;  6; 0; 0]
      [0; 0; 4;  0; 0; 0;  0; 1; 0]
@@ -15,4 +21,7 @@ let field2 =
 
      [0; 0; 0;  9; 1; 0;  0; 0; 5]
      [0; 0; 3;  0; 5; 0;  0; 0; 2]
-     [0; 5; 0;  0; 0; 0;  0; 7; 4]]
+     [0; 5; 0;  0; 0; 0;  0; 7; 4]]
+
+System.Console.ReadLine() |> ignore
+

Source/SudokuSolver/SudokuSolver.fsproj

@@ -42,6 +42,7 @@
     <Reference Include="System.Numerics" />
   </ItemGroup>
   <ItemGroup>
+    <Compile Include="Extraction.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>
   <Import Project="$(MSBuildExtensionsPath32)\FSharp\1.0\Microsoft.FSharp.Targets" Condition="!Exists('$(MSBuildBinPath)\Microsoft.Build.Tasks.v4.0.dll')" />