Làm cách nào tôi có thể in chỉ mọi chỉ mục thứ ba trong Perl hoặc Python?

Question

Làm thế nào tôi có thể thực hiện vòng lặp for() hoặc foreach() trong Python và Perl, tương ứng, chỉ in mọi chỉ mục thứ ba? Tôi cần phải di chuyển mọi chỉ mục thứ ba sang một mảng mới.

Answer 1

Python

print list[::3] # print it 
newlist = list[::3] # copy it 

Perl

for ($i = 0; $i < @list; $i += 3) { 
    print $list[$i]; # print it 
    push @y, $list[$i]; # copy it 
} 

Answer 2

Python:

for x in a[::3]: 
    something(x) 

Answer 3

Trong Perl:

$size = @array; 
for ($i=0; $i<$size; $i+=3) # or start from $i=2, depends what you mean by "every third index" 
{ 
     print "$array[$i] "; 
} 

Answer 4

Perl 5.10 state biến mới có rất tiện dụng ở đây:

my @every_third = grep { state $n = 0; ++$n % 3 == 0 } @list; 

Cũng lưu ý bạn có thể cung cấp một danh sách các yếu tố để cắt:

my @every_third = @list[ 2, 5, 8 ]; # returns 3rd, 5th & 9th items in list 

Bạn có thể tự động tạo danh sách miếng này bằng map (xem Gugod của xuất sắc answer) hoặc chương trình con:

my @every_third = @list[ loop(start => 2, upto => $#list, by => 3 ) ]; 

sub loop { 
    my (%p) = @_; 
    my @list; 

    for (my $i = $p{start} || 0; $i <= $p{upto}; $i += $p{by}) { 
     push @list, $i; 
    } 

    return @list; 
} 

Cập nhật:

Về bình luận runrig của ... đây là "một trong những cách" để làm cho nó hoạt động trong vòng một vòng lặp:

my @every_third = sub { grep { state $n = 0; ++$n % 3 == 0 } @list }->(); 

Answer 5

Perl:

Như với câu trả lời của draegtun, nhưng sử dụng số đếm var:

my $i; 
my @new = grep {not ++$i % 3} @list; 

Answer 6

 
@array = qw(1 2 3 4 5 6 7 8 9); 
print @array[(grep { ($_ + 1) % 3 == 0 } (1..$#array))]; 

Answer 7

Perl:

# The initial array 
my @a = (1..100); 

# Copy it, every 3rd elements 
my @b = @a[ map { 3 * $_ } 0..$#a/3 ]; 

# Print it. space-delimited 
$, = " "; 
say @b; 

Answer 8

Bạn có thể làm một lát trong Perl.

my @in = (1..10); 

# need only 1/3 as many indexes. 
my @index = 1..(@in/3); 

# adjust the indexes. 
$_ = 3 * $_ - 1 for @index; 
# These would also work 
# $_ *= 3, --$_ for @index; 
# --($_ *= 3) for @index 

my @out = @in[@index];