Select Code to Download

my $max = 10;
my @values = 1 .. $max;
my @values_mixed = shuffle(@values);
my @top = topNbsAB(5, sub { $a <=> $b }, \@values_mixed);
print join(" ",sort { $a <=> $b } @top),"\n";

1 1 1 1 9

    // Special case -- too few values provided. Just return them.
    if (len+1 <= n) {
...
       PUTBACK;
       XSRETURN(len+1);
    }