我想为每次调用递归函数创建几个项目，并将所有内容收集到一个列表中。也就是说，我想做这样的事情：
(defn myfunc [x]
(loop [x x retur '()]
(when condition1
(let [templist '()]
(if condition2 (def templist (conj templist {:somekey someval})))
(if condition3 (def templist (conj templist {:somekey someval})))
(recur (+ x 1) (concat retur templist))))))
问题是在 Clojure 中我无法重新绑定 let。我想避免使用全局变量。
【问题讨论】：
核心中的一些函数使用这种通过let 链接相同符号的模式来有条件地建立一个值。我必须将 contition1 更改为不会永远循环的示例，并将 when 更改为 if，以便它可以在循环结束时返回一个值。
(defn myfunc [x someval1 someval2 condition1 condition2 condition3]
(loop [x x retur '()]
(if (condition1 x)
(let [templist '()
templist (if condition2 (conj templist {:somekey1 someval1}) templist)
templist (if condition3 (conj templist {:somekey2 someval2}) templist)]
(recur (+ x 1) (concat retur templist)))
retur)))
然后可以测试：
user> (myfunc 0 1 2 #(< % 5) true true)
({:somekey2 2} {:somekey1 1} {:somekey2 2} {:somekey1 1} {:somekey2 2}
{:somekey1 1} {:somekey2 2} {:somekey1 1} {:somekey2 2} {:somekey1 1})
user> (myfunc 0 1 2 #(< % 5) true false)
({:somekey1 1} {:somekey1 1} {:somekey1 1} {:somekey1 1} {:somekey1 1})
let 的想法是，如果条件为真，则让每个阶段更改值，如果条件为假，则将其原样返回。这种模式使函数式代码具有命令式外观，有助于清楚地说明值是如何构造的，尽管在使用它将命令式逻辑“转换”为函数式程序时也可能太过分了。
【讨论】：
每当我需要执行一些面向步骤的操作时，我更喜欢使用线程宏->。
(defn myfunc [x]
(loop [x x retur '()]
(when condition1
(let [r (-> '()
(#(if condition2 (conj % {:somekey 1}) %))
(#(if condition3 (conj % {:somekey 2}) %)))]
(recur (+ x 1) (concat retur r))))))
【讨论】：
myfunc 的结果将始终为nil。我猜when 在这里不合适。
您尝试使用通过分配链获取结果的命令式模式。取而代之的是，您可以尝试以更具声明性的方式解决您的问题，这对于作为函数式语言的 clojure 来说更为惯用。例如
(defn myfunc [x]
(loop [x x retur '()]
(if condition1
(recur (inc x) (concat retur
(when condition2 [{:somekey1 someval1}])
(when condition3 [{:somekey2 someval2}])))
retur)))
【讨论】：