Utilisateur:Romainbehar/Programmation : palindromes

Voir si un mot ou une phrase est un palindrome :

sub testPalindrome()
{
	my ($titre) = @_;


	# suppression des accents (transforme aussi par exemple 'œ' en 'oe')
	my $lettres = unidecode($titre);

	# suppression de ce qui n'est pas une lettre
	$lettres =~ s/[^\w]//g;

	# tout en minuscules
	$lettres = lc $lettres;

	my $i = 0;
	my $j = length($lettres) - 1;
	while ($i < $j)
	{
		return 0 if (substr($lettres, $i, 1) ne substr($lettres, $j, 1));
		$i++;
		$j--;
	}

	return 1;
}