for 循环之谜（Clojure）

Question

我是 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))

Answer 1

forclojure 中的函数不是命令式循环，而是用于生成延迟生成的列表推导式的函数。对于您的情况，您应该使用doseq循环。

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

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

您当前的循环永远不会被执行的原因是因为您从未对for函数返回的惰性序列执行任何操作，因此永远不会评估惰性序列。