如何在Clojure中从嵌套Map生成列表？优化原子式实现咨询

嘿，能看到你在琢磨Clojure的地道写法太棒了！你当前用额外atom存储结果的方式确实能实现需求，但Clojure的核心风格是优先纯函数、避免不必要的可变状态，我们可以用更简洁且符合函数式理念的方式来改写。

先明确需求：给定存储社交关系的atom，当传入:james时，要遍历他的好友，把每个好友的好友收集成一个列表，最终得到(:james :daisy :james :james :lucy)。

地道的纯函数实现 #

我们可以完全去掉用于存储结果的可变atom，用Clojure内置的序列函数来完成：

;; 原有的社交关系atom
(def test (atom {:james {:friends [:lucy :john :daisy]},
                 :lucy {:friends [:james :daisy]},
                 :daisy {:friends [:james :lucy]},
                 :john {:friends [:james]}}))

;; 纯函数：从社交图谱中获取指定用户的好友列表
(defn get-friends [social-graph user]
  (get-in social-graph [user :friends]))

;; 核心逻辑：获取指定用户的"好友的好友"列表
(defn get-friends-of-friends [social-graph user]
  (mapcat #(get-friends social-graph %)
          (get-friends social-graph user)))

;; 调用示例：基于当前atom的状态计算结果
(get-friends-of-friends @test :james)
;; => (:james :daisy :james :james :lucy)

为什么这个写法更地道？ #

• 无副作用纯函数：所有逻辑都不依赖或修改可变状态，输入相同参数永远得到相同输出，代码更容易测试、推理和复用。
• 惯用序列函数：mapcat是Clojure中处理"遍历集合并拼接子结果"场景的标准工具，比手动创建空集合再逐个concat要简洁得多。
• 解耦全局状态：函数接收social-graph作为参数，而不是直接依赖全局的test atom，这让函数可以独立于任何特定的状态容器使用，灵活性更强。

如果需要基于atom的实时状态计算，只需要在调用时传入@test（获取当前快照）即可，和你原代码的行为完全一致，但避免了额外的可变状态。

内容的提问来源于stack exchange，提问作者André