Как проверить, повторяется ли значение в массиве?

Question

Я выполняю подпрограмму, которая принимает список чисел в качестве аргумента. То, что я хотел бы сделать, это проверить, есть ли повторяющееся значение в этом списке. В случае повторных номеров распечатайте сообщение и остановите программу. Если повторных номеров нет, продолжайте выполнение.

Например:

if (there_is_number_repeated){ 
    print "There is a number repeated";} 
else{ 
    run this code...} 

Я пытался сделать это создать хэш со значениями этого списка, а затем проверить, есть ли значения > 1.

use strict; 
    use warnings; 

sub name_subroutine{ 
    my (@numbers)=@_; 
    my $n=scalar(@numbers); 

    my %table=(); 

    foreach my $i(@numbers){ 
    if (exists $tabla{$i}){ 
     $tabla{$i}+=1;} 
    else{ 
     $tabla{$i} = 1; 
    } 
my @values = values %tabla; 
} 
} 

Это место, где я не знаю, для продолжения. Есть ли способ сделать это любительским способом? Я новичок в Perl.

Спасибо!

Answer 1

Я бы просто сделать:

my %uniq; 
if (grep ++$uniq{$_} > 1, @numbers) { 
    # some numbers are repeated 
} 

В существующем коде (с парой поправок):

my %table=(); 

foreach my $i(@numbers){ 
    if (exists $table{$i}){ 
     $table{$i}+=1;} 
    else{ 
     $table{$i} = 1; 
    } 
} 
my @values = values %table; 

вам не нужно, чтобы проверить, существует; += 1 или ++ установит его в 1, если он не существует. И вы не хотите, чтобы значения (это только отсчеты сколько раз было найдено каждое значение массива), которые вы хотите ключи, а именно те, для которых значение> 1:

my @repeated = grep $table{$_} > 1, keys %table; 

Answer 2

Пробовал и тестировал. Приветствия.