Access Granted

Question de comptoir et chaîne de caractères

Suite à une discussion de ce soir, sur le prologin de l'an dernier et les chaines de caractères et tout ça avec mat, nop et LaTortue, il y avait (entre autre) cette question :

[27] On vous donne une longue chaîne de caractères majuscules et minuscules, sans accents. Ecrire une fonction qui renvoie le nombre de voyelles qu'elle contient. (4 points) Voici, en perl, la réponse que je propose (attention, c'est du code "2h du mat powered" (c))

#!/usr/bin/perl -w

@nom=split(/\\/,$0); print "Usage: \n\$ perl $nom[-1] \"une chaine de caracteres sans accents\"\n"; if(defined $ARGV[0]) {     for($i=0; $i<length($ARGV[0]); $i++)     {         $compteur++ if(substr(lc($ARGV[0]),$i,1) =~ m/[aeiouy]/);     }     print "\nNb de voyelles: $compteur\n"; } else {     print "Usage: \n\$ perl $nom[-1] \"une chaine de caracteres sans accents\"\n"; }

Ecrit par Tetram9, le Vendredi 17 Octobre 2003, 02:03 dans la rubrique "info".

Repondre a cet article