Fits in a third the vertical space, or less.

(defn find-cells
  [a cell-kind]
  (let [dngn (vec a)]
  	  (into {} (for [x (keep-indexed
  	  			  #(if (= %2 cell-kind) %1)
  	  			  dngn)] [x cell-kind]))))