From 97df2a89ba36559fe7b759ea2b8431adbe82d455 Mon Sep 17 00:00:00 2001
From: Antonio Farinetti <afarinetti@users.noreply.github.com>
Date: Mon, 18 Nov 2024 21:35:37 -0600
Subject: [PATCH] First pass on apply_rules() function

---
 src/conway_sim.gleam | 74 +++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 70 insertions(+), 4 deletions(-)

diff --git a/src/conway_sim.gleam b/src/conway_sim.gleam
index c76c62c..736f06f 100644
--- a/src/conway_sim.gleam
+++ b/src/conway_sim.gleam
@@ -1,5 +1,8 @@
+import cell
 import gleam/list
+import gleam/option
 import grid
+import operation
 
 pub type ConwaySim {
   ConwaySim(grid: grid.Grid, generation: Int)
@@ -41,10 +44,7 @@ pub fn neighbor_count(this: ConwaySim, row: Int, col: Int) -> Int {
   // filter out neighbors that are not alive
   neighbors
   |> list.filter(fn(pos) { is_valid_position(this, pos) })
-  |> list.filter(fn(pos) {
-    let #(r, c) = pos
-    grid.is_cell_alive(this.grid, r, c)
-  })
+  |> list.filter(fn(pos) { grid.is_cell_alive(this.grid, pos.0, pos.1) })
   |> list.length
 }
 
@@ -52,3 +52,69 @@ fn is_valid_position(this: ConwaySim, pos: #(Int, Int)) -> Bool {
   let #(row, col) = pos
   row >= 0 && row < this.grid.num_rows && col >= 0 && col < this.grid.num_cols
 }
+
+fn apply_rules(
+  this: ConwaySim,
+  row: Int,
+  col: Int,
+) -> option.Option(operation.Operation) {
+  let neighbor_count = neighbor_count(this, row, col)
+  let alive = grid.is_cell_alive(this.grid, row, col)
+
+  // case alive {
+  //   // RULES FOR LIVE CELLS //////////////////////////////////////////
+  //   True -> {
+  //     case neighbor_count {
+  //       // rule 1: any live cell with fewer than two live neighbors dies,
+  //       //          as if caused by under-population.
+  //       c if c < 2 -> option.Some(operation.new(row, col, cell.Dead))
+  //
+  //       // rule 2: any live cell with two or three live neighbors lives on
+  //       //          to the next generation.
+  //       c if c <= 3 -> option.None
+  //
+  //       // rule 3: any live cell with more than three neighbors dies, as if
+  //       //          caused by overcrowding.
+  //       _ -> option.Some(operation.new(row, col, cell.Dead))
+  //     }
+  //   }
+  //   // RULES FOR DEAD CELLS //////////////////////////////////////////
+  //   False -> {
+  //     case neighbor_count {
+  //       // rule 4: any dead cell with exactly three live neighbors becomes
+  //       //          a live cell, as if by reproduction.
+  //       c if c == 3 -> option.Some(operation.new(row, col, cell.Alive))
+  //
+  //       // otherwise
+  //       _ -> option.None
+  //     }
+  //   }
+  // }
+
+  case alive, neighbor_count {
+    // RULES FOR LIVE CELLS ////////////////////////////////////////////////////
+    // rule 1: any live cell with fewer than two live neighbors dies,
+    //          as if caused by under-population.
+    True, c if c < 2 -> option.Some(operation.new(row, col, cell.Dead))
+
+    // rule 2: any live cell with two or three live neighbors lives on
+    //          to the next generation.
+    True, c if c <= 3 -> option.None
+
+    // rule 3: any live cell with more than three neighbors dies, as if
+    //          caused by overcrowding.
+    True, _ -> option.Some(operation.new(row, col, cell.Dead))
+
+    // RULES FOR DEAD CELLS ////////////////////////////////////////////////////
+    // rule 4: any dead cell with exactly three live neighbors becomes
+    //          a live cell, as if by reproduction.
+    False, c if c == 3 -> option.Some(operation.new(row, col, cell.Alive))
+
+    // otherwise
+    False, _ -> option.None
+  }
+}
+
+pub fn step(this: ConwaySim) -> ConwaySim {
+  todo
+}