p6.p6

use MONKEY;
augment class List {
    multi method maxpairs3(Any:D:) {
        my @found;
        for self.pairs {
            my $value := .value;
            state $max = $value;
            nqp::if(
                nqp::iseq_i( (my $cmp := $value cmp $max), 1 ),
                nqp::stmts((@found = $_), ($max = $value)),
                nqp::if(
                    nqp::iseq_i($cmp, 0),
                    @found.push: $_
                )
            )
        }
        Seq.new(@found.iterator)
    }

    method maxpairs2 {
        my @found;
        for self.pairs {
            my $value := .value;
            state $max = $value;
            nqp::if(
                nqp::iseq_i( (my $cmp := $value cmp $max), 1 ),
                nqp::stmts((@found = $_), ($max = $value)),
                nqp::if(
                    nqp::iseq_i($cmp, 0),
                    @found.push: $_;
                )
            )
        }
        Seq.new(@found.iterator)
    }
}

dd (<a b c>, 4, 5, 6).maxpairs2;
dd (<a b c>, 4, 5, 6).maxpairs3;