enemy.clj

(defn find-enemy [board point color size]
  (let [color (if (= white color) black white)
        neighbors (find-neighbors point size)]
    (set (reduce
          #(if (ally? %2)
             (merge %1 (find-ally board %2 color size))
             %1)
          () neighbors))))