#!/usr/bin/perl

use List::MoreUtils;
use Perl6::Junction;
use strict;
use warnings;

use Benchmark qw( cmpthese );

my @list = ('1')x10;

sub equal_pm {@_ < 2 || $_[0] eq $_[1] && equal_pm(@_[1..$#_])}

sub equal_i {
    return 1 if @_ < 2;
    return 0 if $_[0] ne $_[1];
    shift;
    goto(&equal_i);
}

sub equal_i2 {
    while (@_ >= 2) {
        return 0 if $_[0] ne $_[1];
        shift;
    }
    return 1;
}

sub equal_ti {
    return 1 if (Perl6::Junction::all(@_) eq $_[0]);
    return 0;
}

sub equal_fr {
    my $first = shift;
    for(@_) {
        return 0 unless $_ eq $first;
    }
    return 1;
}

sub equal_pw {
    return 1 if (List::MoreUtils::all { $_ eq $_[0] } @_);
    return 0;
}

sub equal_zx {
    my %hash;
    @hash{@_} = ();
    !(1 - keys %hash);
}

cmpthese(-3, {
              pm => sub { my $rv = equal_pm(@list) ?1:0; 1; },
              i1 => sub { my $rv = equal_i (@list) ?1:0; 1; },
              i2 => sub { my $rv = equal_i2(@list) ?1:0; 1; },
              pw => sub { my $rv = equal_pw(@list) ?1:0; 1; },
              ti => sub { my $rv = equal_ti(@list) ?1:0; 1; },
              fr => sub { my $rv = equal_fr(@list) ?1:0; 1; },
              zx => sub { my $rv = equal_zx(@list) ?1:0; 1; },
                        });