 (defn- all-weights
   [board]
   (into {}
-    (map (fn [point] [point (cell-weight board point)]))
-    cst/all-positions))
+    (for [point cst/all-positions]
+      [point (cell-weight board point)]
+      )))
 
 
 ;; ----------------------------------------------------------------------------

(ns triboard.ai.scoring
  (:require
    [cljs.spec :as s :include-macros true]
    [triboard.logic.constants :as cst]
    [triboard.logic.board :as board]
    ))


(defn- neighbors-coordinates
  [[x y]]
  (for [[dx dy] cst/directions] [(+ x dx) (+ y dy)]))

(defn- neighbouring-walls
  [board point]
