Data commit

Task/Greatest-subsequential-sum/Racket/greatest-subsequential-sum-1.rkt

@@ -0,0 +1,11 @@
+(define (max-subseq l)
+  (define-values (_ result _1 max-sum)
+    (for/fold ([seq '()] [max-seq '()] [sum 0] [max-sum 0])
+      ([i l])
+      (cond [(> (+ sum i) max-sum)
+             (values (cons i seq) (cons i seq) (+ sum i) (+ sum i))]
+            [(< (+ sum i) 0)
+             (values '() max-seq 0 max-sum)]
+            [else
+             (values (cons i seq) max-seq (+ sum i) max-sum)])))
+  (values (reverse result) max-sum))

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

@@ -0,0 +1,3 @@
+> (max-subseq '(-1 -2 3 5 6 -2 -1 4 -4 2 -1))
+'(3 5 6 -2 -1 4)
+15