Greatest subsequential sum: Difference between revisions

Line 1,137:
=={{header|Racket}}==
Linear time version, returns the maximum subsequence and its sum.
<lang Racketscheme>(define (max-subseq l)
(define-values (_ result _1 max-sum)
(for/fold ([seq '()] [max-seq '()] [sum 0] [max-sum 0])
Anonymous user