Clojure，在匹配中使用参数

Question

所以我有一个类似{[1 1 1] "a" [1 1 2] "b"} 等的地图。我有一个类似的函数：

(defn fetch [map x y z]
  (select-keys map (into []  (for [[k v] map
                                   :when (match/match [k]
                                                      [[x y z]] true
                                                      :else false)]
                               k))))

这似乎不起作用。它似乎只有在我硬编码x、y 和z 的值时才有效。有什么建议么？我想要一些可以提供任意数量的参数的东西，它会给我所有匹配的键，但我想不通。

Answer 1

如果你打算

(fetch {[1 1 1] "a" [1 1 2] "b"} 1 1 1)

返回

{[1 1 1] "a"},

那么过滤输入图的整个key seq是极其浪费的：

(conj {} (find {[1 1 1] "a" [1 1 2] "b"} [1 1 1]))

将正确有效地完成工作。

如果您想使用更有趣的标准从地图中选择条目，则可以对其进行过滤并使用into {} 将结果倒入新地图中：

(into {} (filter (fn [[k v]] (even? k)) {0 "a" 1 "b" 2 "c" 3 "d"}))
;= {0 "a", 2 "c"}

for 和:when 实际上是一回事，所以如果你喜欢这种语法，当然可以使用它。你只需要提供一个谓词来做你想做的事。这应该比使用带有过滤密钥序列的select-keys 更高效。

对于给定坐标值的任意地图从地图中选择键，您可以使用

(defn fetch
  "Takes a map `m` keyed by vectors and a map `coords`
  keyed by indices into those vectors.

  Returns a submap of `m` that includes all on only the keys
  which agree with `coords` on the indices mentioned in `coords`."
  [m coords]
  (into {}
    (for [[k :as e] m
          :when (every? #(= (nth k %) (get coords %))
                  (keys coords))]
      e)))

(fetch {[1 1 1] "a" [1 1 2] "b" [1 2 1] "c"} {0 1 1 1})
;= {[1 1 1] "a", [1 1 2] "b"}

至于你的match 表单不起作用：match 是一个绑定表单，所以如果你在模式中引入变量，如果它与模式匹配，它们将绑定到从输入中提取的值，可能会从外部隐藏本地人范围。