#!/os/dist/bin/perl -w

use Benchmark;

my @array = 0..10000;

my @idxsToRemove = ();
push @idxsToRemove, int( rand( 10000 ) ) for ( 0 .. 100 );

my %toRemoveIdx;
@toRemoveIdx{@idxsToRemove} = (1)x@idxsToRemove;

sub Tye {
    my @subarray = @array;

    @subarray = map { $toRemoveIdx{$_} ? () : $subarray[$_] } 0..$#subarray;
}

sub btrott {
    my @subarray = @array;

    splice @subarray, $_, 1 for sort { $b <=> $a } @idxsToRemove;
}
imethese( shift @ARGV || -5, 
           {
               'Tye' => \&Tye,
               'btrott' => \&btrott,
            }
         );


##</code><code>##

 Benchmark: running Tye, btrott, mikfire, each for at least 5 CPU seconds...
       Tye:  7 wallclock secs ( 5.98 usr +  0.00 sys =  5.98 CPU) @  7.19/s (n=43)
    btrott:  6 wallclock secs ( 5.38 usr +  0.00 sys =  5.38 CPU) @ 63.01/s (n=339)