for循环之谜（Clojure）[重复]

Posted 2021-04-10

此问题已经在这里有了答案：

• clojure: for loop contents not invoked1个答案

我是clojure的新手，正在实现Kadane的算法。代码的质量很差，这很好，因为我想先编写不好的代码，然后逐步提高。不知何故，我的for循环未执行。请指导

我尝试过各种打印组合，但失败了，因此我找你

(defn max-contigous-sub-array [list]
  (let [local-sum (atom (first list))
        global-sum (atom (first list))]
    (doseq [x (rest list)]
      (do
        (reset! local-sum (max x (+ @local-sum x)))
        (if (> @local-sum @global-sum)
          (reset! global-sum @local-sum))))
    @global-sum))

答案

clojure中的for函数不是强制性循环，而是用于产生延迟生成的列表推导的函数。对于您的情况，应使用doseq循环。

https://clojuredocs.org/clojure.core/for

https://clojuredocs.org/clojure.core/doseq

之所以从不执行当前循环，是因为您从未对for函数返回的延迟序列执行任何操作，因此永远不会评估延迟序列。