Anonymous user
Greatest subsequential sum: Difference between revisions
→{{header|Racket}}
No edit summary |
|||
Line 1,143:
(cond [(> (+ sum i) max-sum)
(values (cons i seq) (cons i seq) (+ sum i) (+ sum i))]
[(< (
(values '() max-seq 0 max-sum)]
[else
| |||