Whatever support for positional currying

assuming.p6

#!/usr/bin/env perl6

sub assuming ($r, |curried) {
    if my @holes := (^curried).grep: { curried[$_] ~~ Whatever } {
        my $last-hole = @holes[*-1];
        my @mixed;
        @mixed[$_] := curried[$_] for 0 .. $last-hole;
        my @curried := curried[$last-hole ^.. *];
        return sub CURRIED (|direct) {
            @mixed[@holes[$_]] := direct[$_] for ^@holes;
            $r(|@mixed, |@curried, |@(direct[+@holes .. *]), |%(curried), |%(direct));
        }
    }

    return sub CURRIED (|direct) {
        $r(|curried, |direct)
    }
}

assuming(&say, *, 2, *, 4)(1, 3);
assuming(&foo, 1..3, *, [7,8,9])( (4,5,6) );

assuming(assuming(&say, *, *, 3), *, 2)(1);

sub foo {
    .perl.say for $^a, $^b, $^c;
}