/usr/local/CPAN/Perl6ish/Perl6ish/Array.pm

• package Perl6ish::Array
  • xx
  • min
  • max
  • uniq
  • elems
• EOF

use strict;
package Perl6ish::Array;
use List::Util ();

sub xx {
    my ($self, $n) = @_;
    my @ret = ();
    for(1..$n) {
        push @ret, @{$self}
    }
    return \@ret;
}

sub min {
    my ($self) = @_;
    List::Util::min(@$self);
}

sub max {
    my ($self) = @_;
    List::Util::max(@$self);
}

sub uniq {
    my ($self) = @_;
}

sub elems {
    my ($self) = @_;
    0+@$self;
}

1;