VG
Size: a a a
VG
a
OP
VO
f(@array[$base .. $base+$k]);
?undef
вместо отсутсвующих, а во-вторых сам массив увеличивается.OP
VG
VO
VG
VO
SZ
f(@array[$base .. $base+$k]);
?undef
вместо отсутсвующих, а во-вторых сам массив увеличивается.SZ
use List::Util qw(head tail); my ($base, $k) = (3, 5); say for head $k, tail -$base, 1..10;
P
use List::Util qw(head tail); my ($base, $k) = (3, 5); say for head $k, tail -$base, 1..10;
VO
VO
sub f {для вызовов типа
my ($item, @array) = @_;
....
}
f('xxx', @list);
?OP
OP
OP
OP
VO
VG