#!/usr/bin/perl
use warnings;
use strict;

use Benchmark qw{ cmpthese };

use List::Util qw{ shuffle };

my @numbers = 0 .. 20;
my @indices = shuffle(grep $_ % 2, 0 .. $#numbers);

my @expect = (0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20);
use constant TEST => 1;

cmpthese(-2, {
    splice => sub {
        my @output = @numbers;
        for my $index (sort { $b <=> $a } @indices){
            splice @output, $index, 1;
        }
        join("\0", @output) eq join("\0", @expect) or die "@output\n@expect" if TEST;
    },
    grep => sub {
        my @output = @numbers[
            grep {
                my $number = $_;
                ! grep $number == $_, @indices
            } 0 .. $#numbers
        ];
        join("\0", @output) eq join("\0", @expect) or die "@output\n@expect" if TEST;
    },
    hash => sub {
        my %ha; @ha{0..$#numbers} = ();
        for my $index (@indices){
            delete $ha{$index};
        }
        my @output = @numbers[ sort { $a <=> $b } keys %ha ];
        join("\0", @output) eq join("\0", @expect) or die "@output\n@expect" if TEST;
    },
    hash_slice => sub {
        my %indices;
        @indices{0 .. $#numbers} = ();
        delete @indices{@indices};
        my @output = @numbers[sort { $a <=> $b } keys %indices];
        join("\0", @output) eq join("\0", @expect) or die "@output\n@expect" if TEST;
    }
});