История изменений
Исправление joy4eg, (текущая версия) :
my @vector = qw(a b c d e f);
sub vec_drop {
@vector = grep { $_ ne $_[0] } @vector;
}
vec_drop("a"); # => b c d e f
vec_drop("e"); # => b c d f
vec_drop($vector[int rand $#vector]);
Исправление joy4eg, :
sub vec_drop {
@vector = grep { $_ ne $_[0] } @vector;
}
vec_drop("a"); # => b c d e f
vec_drop("e"); # => b c d f
vec_drop($vector[int rand $#vector]);
Исходная версия joy4eg, :
[code=perl]
sub vec_drop {
@vector = grep { $_ ne $_[0] } @vector;
}
vec_drop(«a»); # => b c d e f
vec_drop(«e»); # => b c d f
vec_drop($vector[int rand $#vector]);
[/code]