Как тихо в категории 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
По дате
По рейтингу
Нет в России задач для этого языка. Тем более, среди вопрошающих на Ответах. А сам язык вполне себе развивается: последнее обновление 3 месяца назад было.
Да, язык Perl умер ещё в младенчестве, это его хобби умирать. Потому что, он смотря свысока на недопрограммистов на других языках заглядывающих в него изподтишка, может себе это позволить, оставаясь живее всех живых.