Discussion :

[Girzi]

Bonsoir,
je voulais savoir s'il existe une fonction/méthode pour vérifier que tous les élements d'une liste sont différents.

Par exemple

@a = ('1','8','5','9','2','0');

renverrai true

tandis que

@a = ('1','8','5','9','5','0');

renverrais false


Merci pour votre aide !

[djibril]

j'avais ecrit un code qui permet de recuperer les doublons dans un tabeau (confert dans le topic snippet)

Donc tu le recuperes et l'utilise pour tes besoins.

voilà!!!!

[2Eurocents]

Sinon, si la valeur des doublons importe peu, il est très facile d'écrire une fonction qui retourne 0 ou 1 selon l'existence ou non d'un doublon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
sub doublons
{
  my @t = @_;
  my %h;
  foreach (@t) { return 1 if (++$h{$_} > 1); }
  return 0;
}

On utilise un hash dont les clefs sont les éléments du tableau. Chaque élément rencontré incrémente la valeur associée à la clef. Dès qu'un élément est rencontré une deuxième fois (valeur incrémentée > 1), on arrête tout en retournant 1 pour dire qu'il y a des doublons. (N.B. par rapport à la question initiale, il faut inverser les return 1 et return 0 de mon code )

Il y a encore d'autres façons de le faire : avec map, grep, de la récursivité et toutes sortes d'autres fantaisies .