FONCTION Hamming (mot1, mot 2 : CHAINE) : ENTIER
VAR 
	n, i : ENTIER
DEBUT
	n <- 0
	POUR i ALLANT DE 1 à LONGUEUR(mot1) AU PAS DE 1
	FAIRE
		SI (EXTRACTION(mot1,i,1) !=EXTRACTION(mot2,i,1))
		ALORS
			n <- n+1
		FINSI
	FINPOUR
	RETOURNER n
FIN
