currying with named anywhere

gistfile1.txt

sub infix:<.%>(&func, Capture \args) {
    my $r = &func;
    my @args = |args.Array;
    my %named = |args.Hash;

    my $capture;
    my $start = 0;
    loop {
        my @named = $r.signature.params.grep(*.named).map(*.name.substr: 1);
        my %pars = %named{ @named }:p:delete;

        my $end = +@args;

        repeat { $capture = @args[$start..--$end].Capture } until $r.cando: $capture;

        $r = $r(|$capture, |%pars);

        $start = $end + 1;

        last if $start == @args || $r !~~ Callable;
    }

    $r;
}

my &func = -> $a { -> $b { $a + $b } };
my &func2 = -> $a, :$b { -> $c, $d = 0 { $a + ($b // 0) + $c + $d } };

say &func.%\(1, 2); # 3
say &func2.%\(1, :b(2), 3); # 6
say &func2.%\(1, 3, :2b); # 6