Utilisateur:Kikoun/Statistiques

Écriture T9

En écriture T9 ( On ne tape qu'une fois une touche pour chaque lettre du mot. Le portable se chargeant d'associer un mot pour la suite donnée. ), on dispose parfois de plusieurs choix pour une suite de touches données.

#!/usr/bin/perl

while (<>) {
	tr/AÂÄÃÀBCDEÈÊËFGHIÌÎÏJKLMNÑOÒÔÖÕPQRSTUÙÛÜVWXYZ/aaaaabcdeeeefghiiiijklmnnooooopqrstuuuuvwxyz/;
	tr/âäãàçêëéèìîïñôöõòùûüÿ/aaaaceeeeiiinoooouuuy/;
	tr/-abcdefghijklmnopqrstuvwxyz\'/1222333444555666777788899991/;
	$list{$_}++;
}

foreach $key ( keys %list ) {
	$stat{$list{$key}}++;
}

foreach $key ( sort (keys %stat) ) {
	print "$key : $stat{$key}\n"
}

Le résultats est donné sous la forme [nombre de possibilités de mots : nombre de suite de touche donnant ce nombre de possibilités].

# aspell dump master fr > dump-fr.txt
# wc dump-fr.txt 
 629569  629569 7947278 dump-fr.txt
# portable.pl < dump-fr.txt 
1 : 467423
10 : 3
2 : 68635
3 : 3578
4 : 2922
5 : 245
6 : 105
7 : 30
8 : 37
9 : 7

# aspell dump master en > dump-en.txt
# wc dump-en.txt 
 138599  138599 1327680 dump-en.txt
# portable.pl < dump-en.txt
1 : 112909
10 : 6
11 : 10
12 : 8
13 : 4
14 : 2
15 : 3
16 : 2
17 : 1
18 : 2
19 : 1
2 : 7117
21 : 1
24 : 1
29 : 1
3 : 1591
4 : 661
5 : 282
6 : 144
7 : 76
8 : 56
9 : 24

Sur un clavier de portable, l'on remarque que des lettres comme le r et s sont sur la même touches. Inversons quelques lettres courantes dans ce cas ( s<>z et u sur la touche 1 ).

        tr/-abcdefghijklmnopqrstuvwxyz\'/1222333444555666777981899971/;

bportable.pl < dump-fr.txt 
1 : 485517
2 : 65045
3 : 1712
4 : 2025
5 : 63
6 : 41
7 : 3
8 : 18

On obtient ainsi un plus grand nombre de mots n'ayant qu'une suite de touche unique. Mais on réduit surtout le nombre de cas où il y a conflit et le nombre de possibilité dans ces cas allant jusqu'à supprimer les cas où il y avait 9 ou 10 possibilités.