FONCTION anagramme( mot1, mot2 : CHAINE) : BOOLEEN
CONST alpha <- “abcdefghijklmnopqrstuvwxyz“ : CHAINE
VAR 
	i, j, n1, n2 : ENTIER
	anagra : BOOLEEN
DEBUT
	anagra <- VRAI
	SI ( LONGUEUR(mot1) != LONGUEUR(mot2) )
	ALORS
		anagra <- FAUX
	SINON
		j <- 1
		TANTQUE ((j <= 26) ET anagra )
		FAIRE
			n1 <- 0
			n2 <- 0
			POUR i ALLANT DE 1 à LONGUEUR(mot1) AU PAS DE 1
			FAIRE
				SI (EXTRAIRE(mot1,i,1) = EXTRAIRE(alpha,j,1))
				ALORS 
					n1 <- n1 +1
				FINSI
				SI (EXTRAIRE(mot2,i,1) = EXTRAIRE(alpha,j,1))
				ALORS 
					n2 <- n2 +1
				FINSI
			FINPOUR
			SI ( n1 != n2 )
			ALORS	
				anagra <- FAUX
			SINON
				j <- j + 1
			FINSI
		FINTANTQUE
	FINSI
	RETOURNER (anagra)
FIN
