Clojure遍历Book列表映射处理无法返回预期JSON列表问题

• 遍历函数选型错误：doseq的设计目标是执行副作用操作（比如打印日志、写文件这类不需要返回值的操作），不会收集遍历过程中的计算结果，固定返回nil，完全不能用来做列表映射转换。做序列元素转换、收集结果的场景应该用map函数，它会依次对每个元素执行转换逻辑，把所有结果组装成新序列返回。
• 无意义的多余括号：map-book函数里把doseq整体包在了两层括号里，Clojure中括号的语义是调用函数——即把括号内第一个元素作为函数，其余元素作为入参执行。这层多余括号没有任何实际作用，正常情况下doseq返回nil时还会触发空指针调用错误。
• 编码时机错误：原逻辑在遍历单个元素时就做JSON编码，就算能正常收集结果，得到的也会是多个JSON字符串组成的列表，不符合预期的对象列表结构。如果需要返回JSON字符串，应当等所有元素转换完成、组装成完整列表后再统一编码。
• 冗余代码：create-response中的merge调用只传入了一个map参数，执行后和原map完全一致，属于无效代码可以直接删除。

另外你拿到函数对象（#object[book_service.book$map_book ...]）的原因，是单元测试中没有正确调用函数：没有传入books参数直接引用了map-book本身，拿到的自然是函数对象而不是执行结果，测试时需要写成(map-book 测试用的books列表)才能拿到执行结果。

如果需要返回Clojure原生数据结构的列表（即你预期的对象列表格式，适合做数据校验、后续逻辑处理）：

(defn create-response [book]
  {"book-name" (.getBookName book)
   "book-page" (.getBookPageCount book)})

(defn map-book [books]
  (let [result-list (into [] (map create-response books))]
    ;; 保留原有的逐行打印逻辑
    (doseq [item result-list]
      (println "data -> " (json/encode item)))
    ;; 返回转换完成的普通列表（用into[]把惰性序列转为持久化向量，避免惰性序列带来的意外问题）
    result-list))

如果需要直接返回整个列表的JSON编码字符串，把返回值改为统一编码即可：

(defn map-book [books]
  (let [result-list (into [] (map create-response books))]
    (doseq [item result-list]
      (println "data -> " (json/encode item)))
    ;; 对完整列表做JSON编码后返回
    (json/encode result-list)))

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