RosettaCodeData/Task/Greatest-subsequential-sum/Clojure/greatest-subsequential-sum-1.clj

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