読者です 読者をやめる 読者になる 読者になる

Perl日記

PerlとかRubyとかPHPとかPythonとか

配列の添え字が偶数の要素だけ取り出す

$array[0], $array[2], $array[4]...

my @array = 0 .. 99;
my @even = even_elemnt(@array);

sub even_element {
  my $i = 0;
  return grep ++$i % 2, @_;
}

Test.

use Test::More;
my @array = 0 .. 99;
my @even = even_element(@array);

for my $elm (@even) {
  ok !($elm % 2);
}

done_testing;