Différences entre 2 listes

Bonjour,

Je veux faire quelque chose qui parait simple mais je m'arrache un peu les cheuveux, je pense qu'il y a moyen de le faire assez simplement avec un hash mais je n'y arrive pas.

J'ai une liste @reference qui contient les références, et une liste @match contenant plusieurs nombres (avec des doublons).

J'aimerai juste obtenir une liste des références qui ne sont pas trouvés dans @match

@ref = (1..10);
@match(1,2,4,5,8,9,10);

ce que j'aimerai trouver :
@diff = (3,6,7);

Il me semble l'avoir déjà vu quelque chose comme ça sur le forum mais je n'ai pas réussi à retrouver :'(

Quelqu'un connait-il la solution SVP ?

Merci

Je te conseillerai de passer par un hash :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

#!/usr/local/bin/perl -w   ## MODULES use strict; use warnings;   ## VARIABLES # Scalaires my $element;   # Tableaux my @union = (); my @intersection = (); my @difference = ();   my @array1 = (1..10); my @array2 = (1,2,4,5,8,9,10);   # Hash my %count = ();     ## PROGRAMME PRINCIPAL   foreach $element (@array1, @array2) { $count{$element}++ } foreach $element (keys %count) { push @union, $element; push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element; }   foreach my $tmp1 (@difference) { print $tmp1."\n"; }

---

Les différences entre tes deux listes se trouvent dans @difference

@++ ;)

Il existe des modules qui font ce que tu veux rapidement, proprement et facilement. Pas besoin de réinventer la roue.
Regarde le module List::Compare

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

#!/usr/bin/perl use warnings; use strict;   use List::Compare;   my @ref = (1..10); my @match = (1,2,4,5,8,9,10); my $lc = List::Compare->new(\@ref, \@match);   my @Lonly = $lc->get_unique; print "Ton resultat : @Lonly\n";

---

Citation:

---

Ton resultat : 3 6 7

---

Merci beaucoup à vous, c'est bien ça que je voulais :)

Je préfère éviter d'utiliser les modules car je ne sais pas où vas être lancé mon script par la suite.

Si tu le fais à la main, va au plus simple :

Code:

---

1 2 3 4 5

my @ref = 1..10; my @match = (1,2,4,5,8,9,10);   my %match = map { $_ => 1} @match; my @filtered = grep { ! $match{$_} } @ref;

---

Peut-être que mettre ce petit bout de code dans la faq pourrait être sympa vu qu'il est indenté sans module et donc une alternative au CPAN :zoubi:

@++

Citation:

---

Envoyé par philouelgeek

Peut-être que mettre ce petit bout de code dans la faq pourrait être sympa vu qu'il est indenté sans module et donc une alternative au CPAN :zoubi:

@++

---

Je le rajouterais dans les sources si j'y pense. Mais c'est à vous de faire des propositions ici. Tant que vous les forumeurs ne participaient pas à l'enrichissement, difficile de connaitre tous vos besoins et de faire évoluer la rubrique perl.

Après fouille chez les moines j'ai trouvé ca :

Code:

---

my @C = grep { my $x = $_; not grep { $x =~ /\Q$_/i } @B } @A;

---

@+
Mr6

Mais cette solution est assez gourmande du point de vue complexité algorithmique ;)

Je me la note pour les prochaines réunions cette réponse :mrgreen:

@+
Mr6

:question: :question: :question:

Pour moi un algo c'est sur papier, donc qq part lié à notre capacité à réfléchir intelligemment pour trouver une solution à un problème. Voudrais-tu dire qu'il faut pouvoir se creuser les méninges pendant des heures ? Si oui c'est ce que j'appelle avoir le sens de la formule, donc avant que certains comprennent toute la subtilité... :lol::mouarf3:


@+
Mr6
:dehors:

Excuse moi si je me suis mal exprimé, je parlais de la complexité algorithmique, pas de la complexité de l'algorithme.

Ta solution est d'ordre o(n2), alors que la complexité d'un algorithme basé sur les tables de hachage est d'ordre o(n). Sauf erreur de ma part.

Donc à priori, j'aurais tendance à utiliser un module fait pour ça, en prenant pour hypothèse qu'il a été écrit avec la plus faible complexité algorithmique, afin de pouvoir traiter des tableaux de taille quelconque, y compris très gros.