小编use*_*063的帖子

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