在 Clojure 中，如何解构映射的所有键？

Question

在 clojure 中，可以像这样解构映射的某些键：

(let [{:keys [cpp js]} {:cpp 88 :js 90}] 
   (println js); 90
   (println cpp); 88
 )

Is there a way to destruct all the key of a map?

也许是这样的：

(let [{:all-the-keys} {:cpp 88 :js 90}] 
   (println js); 90
   (println cpp); 88
 )

Answer 1

事实并非如此，而且这也不是一个好主意。想象一下：

(let [{:all-the-keys} m]
  (foo bar))

foo 和 bar 是全局变量吗？当地人？您应该从 m 中提取密钥吗？如果 m 有时 包含 foo 键，并且 foo 也是一个全局函数，那么这段代码应该做什么？有时调用全局，有时调用m中存储的函数？

忽略技术问题（可以克服），这对于可读性和可预测性来说确实是一场灾难。只需明确您想要拔出哪些钥匙即可；如果您经常想要取出相同的十个键，您可以编写一个简单的宏，例如 (with-person p body) 来简化您的常见情况。

Answer 2

这个问题已经很老了，所以你可能已经忘记了，但是当我尝试做同样的事情时，它出现在谷歌上，所以如果我发布我的解决方案，它可能会帮助其他人。

(defmacro let-map [vars & forms]
  `(eval (list 'let (->> ~vars keys
                         (map (fn [sym#] [(-> sym# name symbol) (~vars sym#)]))
                         (apply concat) vec)
               '~(conj forms 'do))))

这基本上将映射 {:cpp 88 :js 90} 转换为绑定形式 [cpp 88 js 90] 然后构造一个 let 绑定，并执行一些 eval-jitsu 以确保这种情况在运行时发生。

(def test-map {:cpp 88 :js 90})
(let-map test-map
  (println js)
  (println cpp))
;=> 90
;=> 88

Answer 3

您可以编写一个宏来执行此操作（有效地创建迷你 DSL），但我认为这不是一个好主意，原因如下：

• 为了创建正确的编译时文字 js 和 cpp，您需要需要在编译时解构映射。这对于你可以用它做的事情来说是相当有限的（例如，你必须提前指定键，并且它不能在高阶函数中使用）
• 当更简单的方法需要使用宏时，宏通常是一个坏主意完成这项工作（见下文）

我建议在您的情况下使用简单的 doseq循环地图：

(let [my-map {:cpp 88 :js 90}]
  (doseq [[k v] my-map]
    (println v)))

请注意：

• 每个地图条目中提取键 k 和值 v
• 您可以使用上面的解构从我使用的 doseq 而不是 for 因为它是非惰性的，并且在这个示例中您似乎仅将循环用于 println 副作用。
• 相反，如果您想要一个惰性值序列（88 90），那么 for 会比较合适。