 
 (defn- neighbors-coordinates
   [[x y]]
-  (map (fn [[dx dy]] [(+ x dx) (+ y dy)]) cst/directions))
+  (for [[dx dy] cst/directions] [(+ x dx) (+ y dy)]))
 
 (defn- neighbouring-walls
   [board point]

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


;; ----------------------------------------------------------------------------

(ns triboard.ai.scoring
  (:require
    [triboard.logic.constants :as cst]
    [triboard.logic.board :as board]
    ))
