Discussion :

[Skyba01]

Bonjour, je débute en Perl et j'aimerais utiliser une fonction qui renvoie le nombre de lettres différentes entre deux mots.

Par exemple :
dupont - dupond : renvoirait 1
lumiere - laniere : renvoirait 2
appeler - apeler : renvoirait 1

Vous m'avez compris
J'ai beau chercher sur internet, je n'ai pas trouvé.

Merci de votre aide!!

[Philou67430]

Un lettre absente compte comme une lettre différente ?

[Skyba01]

Idéalement, oui.
On peut aussi poser la question autrement : Combien il y a-t-il de caractères identiques dans le même ordre ? (En sautant quelques caractères, si nécéssaire).
Ou encore : quelle est le pourcentage de similarité entre deux chaînes ?

Ce sont 3 questions différentes, mais on peut arriver à la réponse de la 1ere en bidouillant un peu. IMPORTANT : Dans les deux chaines que je cherche à comparer, il peut y avoir des lettres, mais aussi d'autres caractères. Ils sont traités également.

Perl doit être capable de faire ca non ? ^^

Merci

[Philou67430]

Perl doit être capable de faire ca non ? ^^

Merci

Perl peut tout faire à qui s'en donne la peine

Je veux dire que votre question est plus d'ordre algorithmique que de programmation en perl.

Une idée de départ : ranger chaque occurrence de lettre dans un hash dont la clé est la lettre et la valeur son nombre d'occurrence.
De là, compter les écarts...

Code :

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

1
2
3
4
5
6
7
8
9
use 5.10.0;
my (%mot1, %mot2);
$mot1{$_}++ foreach split //, $mot1;
$mot2{$_}++ foreach split //, $mot2;
my $distance = 0;
foreach my $car (keys %mot1, keys %mot2) {
  $distance += abs(($mot1{$car} // 0) - ($mot2{$car} // 0));
}
print "distance: ", $distance, "\n";

J'ai jeté l'algo "en live". Je ne sais ni s'il est correct, ni s'il compile ou s'exécute.

[Philou67430]

Le script précédent traite le 1 et le 2 de "mot1" et "mot2" comme étant deux différences (1 n'est pas dans mot2, et 2 n'est pas dans mot1).

[Philou67430]

Une meilleure approximation de la distance :
(int($distance/2)+($distance % 1))

Précision : l'algo précédent ne tient pas compte de l'ordre des caractères. S'il faut tenir compte de l'ordre, je ne vois alors qu'un algorithme linéaire qui parcoure en parallèle chaque caractère :

Code :

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

1
2
3
4
5
6
7
8
9
 
my @mot1 = split //, $mot1;
my @mot2 = split //, $mot2;
my $distance = 0;
foreach my $car (@mot1) {
  $distance += $car ne (shift(@mot2) // "");
}
$distance += @mot2;
print "distance=", $distance, "\n,";