Top.Mail.Ru
Ответы

Как тихо в категории Perl... Словно в Эдемском саду. А я ведь в прошлом даже умел калякать на этом языке... Печаль?

1234567891011121314151617181920212223242526272829303132
 #!/usr/bin/perl -W 
@arr = qw(5 8 4 3 9 5 1 6 3 5 2 8 7 4 5 3 0 5 6 6); 
@b = qw(); 
print @arr; 
for ($i = 0; $i < @arr; $i++){ 
for ($j = 0; $j < @arr; $j++){ 
next if $i == $j; 
if ($arr[$i] == $arr[$j]) { 
push @b, $arr[$i]; 
$n = $arr[$i]; 
} 
for ($k = 0; $k < @arr; $k++) { 
if ($arr[$k] == $n) { 
splice @arr, $k, 1; 
} 
} 
} 
} 
print "\n"; 
print "Not repeat"; 
print "\n"; 
print @arr; 
print "\n"; 
print "Repeat"; 
print "\n"; 
print @b; 
_______ 
58439516352874530566 
Not repeat 
9127 
Repeat 
58364 
По дате
По рейтингу
Аватар пользователя
Новичок
9мес

Нет в России задач для этого языка. Тем более, среди вопрошающих на Ответах. А сам язык вполне себе развивается: последнее обновление 3 месяца назад было.

Аватар пользователя
9мес

Да, язык Perl умер ещё в младенчестве, это его хобби умирать. Потому что, он смотря свысока на недопрограммистов на других языках заглядывающих в него изподтишка, может себе это позволить, оставаясь живее всех живых.