Discussion :

[fraisa1985]

Bonjour,

Ma question ressemble un peu à ce qui a été posé dans les discussions précédentes.

J'ai un tableau qui contient des entiers entre 5 et 15

Code :

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

1
2
3
my @t;
@t=(12,14,8,9,9,13,11,10,12,13,5,6);
print @t;

Je veux avoir en sortie le résultat suivant:

5: 1 fois
6: 1 fois
7: 0 fois
8: 1 fois
9: 2 fois
.......
14: 1 fois
15: 0 fois

y a t-il une astuce simple et rapide pour compter le nombre d’occurrence de chaque entier dans le tableau?

Merci

[Lolo78]

Bonjour,

voici une solution:

Code :

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

1
2
3
4
5
6
7
8
9
 
use warnings;
use strict;
 
my @t = (12,14,8,9,9,13,11,10,12,13,5,6);
my %count;
$count{$_}++ for @t;
$count{$_} = defined $count{$_} ? $count{$_} : 0 for 5..15;
print "$_\t:\t$count{$_} fois\n" for 5..15;

Ce qui imprime:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
5       :       1 fois
6       :       1 fois
7       :       0 fois
8       :       1 fois
9       :       2 fois
10      :       1 fois
11      :       1 fois
12      :       2 fois
13      :       2 fois
14      :       1 fois
15      :       0 fois

[fraisa1985]

Merci bien