5 lines
177 B
Clojure
5 lines
177 B
Clojure
|
(defn max-subseq-sum [coll]
|
||
|
|
(->> (take-while seq (iterate rest coll)) ; tails
|
||
|
|
(mapcat #(reductions conj [] %)) ; inits
|
||
|
|
(apply max-key #(reduce + %)))) ; max sum
|