LINUX.ORG.RU

История изменений

Исправление 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]