为何Clojure函数random-map-generator未生成100个键值对的映射？

你的函数返回仅6个键值对的核心原因是：键的取值被限制为固定6个关键词，每次循环都是覆盖已有键的值，而非新增键。

具体看代码里的键生成逻辑：

(keyword (nth ["a" "b" "c" "d" "e" "f"] (rand-int 6)))

这段代码只会从:a、:b、:c、:d、:e、:f这6个固定关键词里随机选一个。而Clojure的assoc函数处理map时，若键已存在，会直接覆盖该键的旧值，不会创建新的键值对。所以哪怕循环执行100次，本质只是反复更新这6个键的值，最终map里只会保留这6个键的最新值。

另外补充一个代码规范问题：在函数内部用def定义theatom不合适，def会创建全局变量，应该改用let定义局部原子：

(defn random-map-generator [size]
  (let [theatom (atom {})]
    (dotimes [x size]
      (swap! theatom assoc 
        ;; 给关键词加循环变量后缀，确保每个键唯一
        (keyword (str (nth ["a" "b" "c" "d" "e" "f"] (rand-int 6)) x))
        (rand-int 30)))
    @theatom))

如果想要生成100个键值对的map，需要修改键的生成逻辑，确保每次生成的键唯一，比如给关键词加上循环变量x的后缀，这样每个键都不重复，最终就能得到100个键值对。

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