Discussion :

[vodevil]

Lut, j'ai un petit algo qui calcul dans une phrase combien de fois un mot est présent et qu'elle densité il a dans celle-ci. Mais j'ai une erreu dans mon code il ne calcul pas bien la densité

par exempple dans la phrase

maman fait le jardin

(on rigole pas svp ) ben maman a une densité de 25% ben mon script en calcul 33.???? %

voici le code

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
#!/usr/bin/perl -w
use strict;
 
#####################################
# Programme principale
 
my @tablo = qw / la maison en carton /;
 
my %occurence = &calcul_occurence(\@tablo);
 
foreach my $word(keys(%occurence)){
 
   my $densite = ($occurence{$word}*100)/$#tablo+1;
 
    print "$word apparaît $occurence{$word} fois et sa densité est $densite%.\n";
}
 
 
#####################################
# Calcul des occurences
 
sub calcul_occurence()
{
   my %occur = ();
   my $tablo = $_[0];
 
   foreach my $word (@$tablo)
   {
      if (! $occur{$word})
      {
         $occur{$word} = 1;
      }
      else {
         $occur{$word}++;
      }
   }
 
   return %occur;
}

merci

[2Eurocents]

Ce doit être mieux comme ça :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
#!perl
 
use strict;
use warnings;
 
#####################################
# Programme principale
 
my @tablo = qw / la maison en carton /;
 
my %occurence = &calcul_occurence(@tablo);
 
foreach my $word(keys(%occurence)){
 
   my $densite = ($occurence{$word}*100)/($#tablo+1);
 
    print "$word apparaît $occurence{$word} fois et sa densité est $densite%.\n";
}
 
 
#####################################
# Calcul des occurences
 
sub calcul_occurence()
{
   my %occur = ();
   my @tablo = @_;
 
   foreach my $word (@tablo)
   {
      $occur{$word}++;
   }
 
   return %occur;
}

Ta principale erreur est corrigée ici :

Code :

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

   my $densite = ($occurence{$word}*100)/($#tablo+1);

Tout le reste n'est que simplifications ...

[vodevil]

Merci 2Eurocents