Data commit

Task/Greatest-subsequential-sum/Raven/greatest-subsequential-sum.raven

@@ -0,0 +1,18 @@
+[ -1 -2 3 5 6 -2 -1 4 -4 2 -1 ] as $seq
+
+1 31 shl as $max
+
+0   $seq length   1 range each as $i
+    0 as $sum
+    $i   $seq length  1 range each as $j
+        $seq $j get   $sum +  as $sum
+        $sum $max > if
+            $sum as $max
+            $i as $i1
+            $j as $j1
+
+"Sum: " print
+$i1 $j1 1 range each
+    #dup "$seq[%d]\n" print
+    $seq swap get "%d," print
+$max   $seq $j1 get   "%d  =  %d\n" print