Greatest subsequential sum: Difference between revisions
Content added Content deleted
| Line 1,137: | Line 1,137: | ||
=={{header|Racket}}== |
=={{header|Racket}}== |
||
Linear time version, returns the maximum subsequence and its sum. |
Linear time version, returns the maximum subsequence and its sum. |
||
<lang |
<lang scheme>(define (max-subseq l) |
||
(define-values (_ result _1 max-sum) |
(define-values (_ result _1 max-sum) |
||
(for/fold ([seq '()] [max-seq '()] [sum 0] [max-sum 0]) |
(for/fold ([seq '()] [max-seq '()] [sum 0] [max-sum 0]) |
||