occurence entier dans un tableau

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:

---

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:

Citation:

---

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

Bonjour,

voici une solution:

Code:

---

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:

---

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

---

Merci bien :applo: