remove keys

remove keys

(defn remove-keys [m keys]
  (if (seq keys)
    (recur (dissoc m (first keys)) (rest keys))
    m))
    
(let [test-img-map   {:row1-col1 0
                      :row1-col2 0
                      :row1-col3 0
                      :row2-col1 0
                      :row2-col2 0
                      :row2-col3 0
                      :row2-col4 0
                      :row3-col1 0
                      :row3-col2 0}
      keys-to-remove (->> (keys test-img-map)
                          (map str)
                          (filter #(str/starts-with? % ":row2"))
                          (map #(subs % 1))
                          (map keyword))]
  (remove-keys test-img-map keys-to-remove))
  =>>{:row3-col2 0, :row3-col1 0, :row1-col3 0, :row1-col2 0, :row1-col1 0}