如何在Clojure中遍历复杂的映射并删除基于模式的键？

(ns your-namespace
  (:require [clojure.walk :as walk]))

(defn remove-keys-by-pattern [data pattern]
  (walk/postwalk
    (fn [x]
      (if (and (map? x) (pattern x))
        (dissoc x (pattern x))
        x))
    data))

(defn starts-with-foo? [key]
  (and (string? key) (re-find #"^foo" key)))

(def data {:foo 1 :bar {:foo 2 :baz 3} :qux {:quux {:foo 4 :bar 5}}})
(remove-keys-by-pattern data starts-with-foo?)