RosettaCodeData/Task/Greatest-subsequential-sum/Racket/greatest-subsequential-sum-2.rkt

4 lines
66 B
Racket
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
> (max-subseq '(-1 -2 3 5 6 -2 -1 4 -4 2 -1))
'(3 5 6 -2 -1 4)
15