Discussion :

[tiboo]

bonjour,

Je souhaite trouver le nombre pour lequel j'ai le plus grande nombre d'occurrence dans un tableau du style :

tableau : 8 3 6 8 6 6 6 1 6 6 6 6 5 6 6 6 10 6 6 6 6 7 6 6 5 9 6 6 6 5 6 6 6 6 8 3

j'attends 6. on pourrait faire ça de façon histogramme mais n'existe-t-il pas une fonction déjà faite pour effectuer ce genre d'opération

merci,

[Arioch]

Hello,

je pense que Jedai ou un autre pro de Perl te trouverait rapidement une solution à base de map et/ou de grep mais n'utilisant quasi jamais ces fonctions, j'en serais bon pour réinventer probablement la roue en procédant comme ceci :

- compter chaque valeur de ton tableau dans un hachage (clé = la valeur du tableau, valeur = le comptage)
- parcourir via une boucle ton hachage ainsi généré pour connaître le comptage le plus grand
- re-parcourir ton hash pour afficher en sortie quelles sont les clés dont le comptage est le plus grand

J'aime assez réinventer la roue parfois et ça donnerait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
use strict;
 
my @tableau = ('8','3','6','8','6','6','6','1','6','6','6','6','5','6','6','6','10','6','6','6','6','7','6','6','5','9','6','6','6','5','6','6','6','6','8','3');
my %count;
my $max = 0;
 
foreach(@tableau)
{
    ++$count{$_};
}
 
foreach(keys %count)
{
    $max = $count{$_} if ($count{$_} > $max);
}
 
print "Nbre d'occurences MAX trouvées = $max\n";
 
foreach(sort { $a <=> $b}(keys %count))
{
    print "---> $_ matchée $max fois\n" if ($count{$_} == $max);
}

Ce qui donne en sortie :

Code :

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

1
2
Nbre d'occurences MAX trouvées = 24
---> 6 matchée 24 fois

[Jedai]

Tout d'abord : ON NE POSTE PAS DANS CE FORUM, on poste dans les sous-forums, comme c'est clairement indiqué en haut de ce forum... Ton prochain message ici sera supprimé sans avertissement (à part un MP), pour celui-ci je me contente de le déplacer dans le sous-forum Langage.

Maintenant pour ce qui est de ta question, c'est plutôt de l'algorithmique, autant tout faire en une fois (complexité en O(n), constante plutôt faible, c'est le meilleur algorithme que tu peux faire a priori) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
use strict;
 
my @tableau = qw(8 3 6 8 6 6 6 1 6 6 6 6 5 6 6 6 10 6 6 6 6 
    7 6 6 5 9 6 6 6 5 6 6 6 6 8 3);
my %count;
my ($elem_max, $max) = ($tableau[0], 1);
 
for my $i (@tableau) {
    ($elem_max, $max) = ($i, $count{$i}) if( ++$count{$i} > $max );
}
 
print "---> $elem_max est présent $max fois dans le tableau\n";

--
Jedaï