Functional Refactor

.gitignore

@@ -3,4 +3,6 @@ obj/
 /packages/
 riderModule.iml
 /_ReSharper.Caches/
-.idea
+.idea
+.ionide
+.fake

GameOfLife.sln

@@ -1,6 +1,6 @@
 
 Microsoft Visual Studio Solution File, Format Version 12.00
-Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "GameOfLife", "GameOfLife\GameOfLife.csproj", "{980E6F7A-195D-4F06-9398-B07DD274D20A}"
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "GameOfLife", "GameOfLife\GameOfLife.fsproj", "{980E6F7A-195D-4F06-9398-B07DD274D20A}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution

GameOfLife/GameOfLife.csproj → GameOfLife/GameOfLife.fsproj

@@ -4,5 +4,8 @@
         <OutputType>Exe</OutputType>
         <TargetFramework>netcoreapp3.1</TargetFramework>
     </PropertyGroup>
+    <ItemGroup>
+        <Compile Include="Program.fs" />
+    </ItemGroup>
 
 </Project>

GameOfLife/Program.fs

@@ -0,0 +1,59 @@
+module GameOfLife.Program
+open System
+open System.Threading
+
+let rows = 15
+let columns = 15
+let timer = 500
+
+type Status = ``💀`` = 0 | ``😁`` = 1
+type RNG = Security.Cryptography.RandomNumberGenerator
+
+let private nextGeneration (grid: Status [,]) =
+    grid
+    |> Array2D.mapi (fun r c ->
+        let aliveNeighbors =
+            (seq { -1 .. 1 }, seq { -1 .. 1 })
+            ||> Seq.allPairs
+            |> Seq.choose (function | (0, 0) -> None | x -> Some x) //skip center
+            |> Seq.map (fun (x, y) ->  x + r, y + c)
+            |> Seq.filter (fun (x, y) -> x < rows && y < columns && x >= 0 && y >= 0)
+            |> Seq.sumBy (fun (x, y) -> int grid.[x, y])
+        function
+        // Cell is lonely and dies OR Cell dies due to over population
+        | Status.``😁`` when aliveNeighbors < 2 || aliveNeighbors > 3 -> Status.``💀``
+        // A new cell is born
+        | Status.``💀`` when aliveNeighbors = 3 -> Status.``😁``
+        // stays the same
+        | unchanged -> unchanged)
+
+let private stringify (grid: Status [,]) =
+    grid
+    |> Array2D.mapi (fun _ y -> if y = columns - 1 then sprintf "%A\n" else string)
+    |> Seq.cast<string>
+    |> String.concat String.Empty
+
+[<EntryPoint>]
+let main _ =
+    let cts = new CancellationTokenSource()
+    Console.CancelKeyPress.Add(fun _ -> cts.Cancel(); Console.WriteLine "\n👋 Ending simulation.")
+    //Define our async work - cold
+    let work = async {
+            // randomly initialize our grid
+            let mutable grid =
+                Array2D.init rows columns (fun _ _ -> RNG.GetInt32(0, 2) |> enum)
+            while true do
+                // Displaying the grid
+                Console.SetCursorPosition(0, 0)
+                grid |> stringify |> Console.Write
+                grid <- nextGeneration grid
+                do! Async.Sleep timer
+        }
+    // let's give our console
+    // a good scrubbing
+    Console.Clear()
+    Console.BackgroundColor <- ConsoleColor.Black
+    Console.CursorVisible <- false
+    //Do The thing
+    Async.RunSynchronously(work, cancellationToken = cts.Token)
+    0