121 bench filter map reduce

~import std/io

const std = @import("std");

var input_n: u64 = 0;

~pub event read-n {}

~proc read-n|zig {
    var args = std.process.args();
    _ = args.next();
    if (args.next()) |arg| {
        input_n = std.fmt.parseInt(u64, arg, 10) catch 1_000_000;
    } else {
        input_n = 1_000_000;
    }
}

~pub event fmr { n: u64 }
! v { item: u64, acc: u64 } -> u64
| done u64

~proc fmr|zig {
    var acc: u64 = 0;
    for (0..n) |i| {
        acc = v(.{ .item = i, .acc = acc });
    }
    return .{ .done = acc };
}

~read-n()
~fmr(n: input_n)
! v p -> p.acc +% @as(u64, @intFromBool(p.item & 1 == 0)) *% p.item *% p.item
| done r |> std/io:print.ln("result = {{ r:d }}")