count-out-consecutive-short

(defn count-out-consecutive
  [matrix coords turn-vec]
  (let [value (get-in matrix coords)]
    (#(if (= (get-in matrix %) value)
        (recur (vec (map + % turn-vec)) (inc %2))
        %2
      )
      coords  ; dynamicly changing coords
      0  ; counter
)))