Bounds checking on moves

Author: eriksvedang

src/gomoku/core.clj

@@ -31,7 +31,8 @@
   (>= (count @board-state) (* cells-horizontal cells-vertical)))
 
 (defn make-move! [player move-pos]
-  (if (gameplay/is-cell-occupied? @board-state move-pos)
+  (if (or (gameplay/is-cell-occupied? @board-state move-pos)
+          (gameplay/is-cell-outside-bounds? move-pos cells-horizontal cells-vertical))
     (println "Can't place move for player " player " on " move-pos)
     (swap! board-state conj (gameplay/create-move player move-pos))))
 

src/gomoku/gameplay.clj

@@ -11,6 +11,12 @@
   (some true? (for [cell board]
                 (= (:pos cell) pos))))
 
+(defn is-cell-outside-bounds? [[x y] w h]
+  (not (and (<= x 0)
+            (<= y 0)
+            (< x w)
+            (< y h))))
+
 (defn get-moves-for-player [board player]
   (filter #(= player (:player %)) board))