update

Task/Greatest-subsequential-sum/D/greatest-subsequential-sum-1.d

@@ -0,0 +1,30 @@
+import std.stdio;
+
+inout(T[]) maxSubseq(T)(inout T[] sequence) pure nothrow {
+    int maxSum, thisSum, i, start, end = -1;
+
+    foreach (j, x; sequence) {
+        thisSum += x;
+        if (thisSum < 0) {
+            i = j + 1;
+            thisSum = 0;
+        } else if (thisSum > maxSum) {
+            maxSum = thisSum;
+            start = i;
+            end   = j;
+        }
+    }
+
+    if (start <= end && start >= 0 && end >= 0)
+        return sequence[start .. end + 1];
+    else
+        return [];
+}
+
+void main() {
+    const a1 = [-1, -2, 3, 5, 6, -2, -1, 4, -4, 2, -1];
+    writeln("Maximal subsequence: ", maxSubseq(a1));
+
+    const a2 = [-1, -2, -3, -5, -6, -2, -1, -4, -4, -2, -1];
+    writeln("Maximal subsequence: ", maxSubseq(a2));
+}

Task/Greatest-subsequential-sum/D/greatest-subsequential-sum-2.d

@@ -0,0 +1,37 @@
+import std.stdio, std.algorithm, std.range, std.typecons;
+
+mixin template InitsTails(T) {
+    T[] data;
+    size_t pos;
+    @property bool empty() { return pos > data.length; }
+    void popFront() { pos++; }
+}
+
+struct Inits(T) {
+    mixin InitsTails!T;
+    @property T[] front() { return data[0 .. pos]; }
+}
+
+auto inits(T)(T[] seq) { return seq.Inits!T; }
+
+struct Tails(T) {
+    mixin InitsTails!T;
+    @property T[] front() { return data[pos .. $]; }
+}
+
+auto tails(T)(T[] seq) { return seq.Tails!T; }
+
+auto maxSubseq(T)(T[] seq) /*pure nothrow*/ {
+    //return seq.tails.map!inits.join.reduce!(max!q{ a.sum });
+    return seq
+           .tails
+           .map!inits
+           .join
+           .map!q{ tuple(reduce!q{a + b}(0, a), a) }
+           .reduce!max[1];
+}
+
+void main() {
+    [-1, -2, 3, 5, 6, -2, -1, 4, -4, 2, -1].maxSubseq.writeln;
+    [-1, -2, -3, -5, -6, -2, -1, -4, -4, -2, -1].maxSubseq.writeln;
+}

Task/Greatest-subsequential-sum/Haskell/greatest-subsequential-sum-2.hs

@@ -1,7 +1,6 @@
-maxsubseq = mss_ (0,[]) (0,[]) where
-	mss_ _ x [] = x
-	mss_ here sofar (x:xs) = mss a b xs where
-		a = max (0,[]) (fst here + x, snd here ++ [x])
+maxsubseq = snd . foldl f ((0,[]),(0,[])) where
+	f ((h1,h2),sofar) x = (a,b) where
+		a = max (0,[]) (h1 + x, h2 ++ [x])
 		b = max sofar a
 
 main = print $ maxsubseq [-1, -2, 3, 5, 6, -2, -1, 4, -4, 2, -1]

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