imperative foldl and foldr

gistfile1.d

#!/usr/bin/rdmd

import std.stdio;

int sub(int x, int y) {
    return x - y;
}

void main() {
    int init = 0;
    foreach (x; [1,2,3]) {
        init = sub(init, x);
        writeln("x: ", x);
    }
    writeln("init: ",init);

    init = 0;
    foreach (x; [1,2,3].reverse) {
        init = sub(x, init);
        writeln("x: ", x);
    }
    writeln("init: ",init);
}