   {:pre [(coord? point)]}
   [board point]
   (let [neighbors (coord-neighbors point)
-        walls (filter #(= :wall (get-in board % :wall)) neighbors)]
-    (+ 1 (* (count walls) 0.25))))
+        walls (filter #(= :wall (get-in board % :wall)) neighbors)
+        count-wall (count walls)]
+    (+ 1 (* count-wall count-wall 0.25))))
 
 (defn with-cells-strength
   "Adds to a given game the strength of each of its cells"


(defn scores? [s]
  (and
    (<= 0 (reduce + (vals s)) 164)
    (every? s players)))



(def init-block-count 12) ;; Init blocks for red, blue, green, gray
(def players [:blue :red :green])
(def directions [[-1 0] [1 0] [0 -1] [0 1] [-1 1] [1 1] [-1 -1] [1 -1]])
(def max-score (- (* 16 11) 12))

;; -----------------------------------------
;; EXTRINSIC TYPES
