reduce.nt

module reduce;

template reduce(T) <<EOF
  auto reduce(T t) {
    return new delegate auto(type-of-elem t[0] cur) {
      while auto var <- t[0] {
        cur = t[1](cur, var);
      }
      return cur;
    };
  }
EOF

void main() {
  for int i <- cat(0..5, 10..15) writeln "$i";
  auto res = reduce (cat(0..5, 10..15), delegate int(int a, b) return a+b;) 0;
  writeln " => $res";
}