(defn count-same [acc [x & rest]] (if (= x (first rest)) (recur (inc acc) rest) acc))
(defn count-out-consecutive [matrix coords direction]
	(->> coords
	     (iterate #(mapv + % direction))
	     (map #(get-in matrix % ::not-found))
	     (count-same 1)))
	    
(println (count-out-consecutive (vec (repeat 3 (vec (repeat 3 0)))) [0 0] [1 1]))