Czy wyraz jest palindromem?

Palindrom

anagram odwrotny - wyraz, liczba, możliwy do odczytania zarówno od lewej do prawej, jak i od prawej do lewej. Palindromem jest np. wyraz "kajak" oraz liczba 656 zapisana w systemie dziesiętnym (chociaż jeśli jest sformatowana, to tak na prawdę taka liczba również już jest tekstem). Ponadto, ciąg składający się z zera lub jednego znaku - jest palindromem (np. litera "K" lub pusty ciąg znaków "").

Językoznawcy, na pewno przewracają się w grobie, ponieważ całe zdania również mogą być palindromem, np Mr. Owl ate my metal worm. Należałoby tu pominąć znaki diaryktyczne, spacje oraz wielkośc liter. Podane implementacje tutaj mają zastosowanie jedynie do pojedynczych wyrazów.

Implementacje

C/C++:

bool is_palindrome(char* s)
{
  int n = strlen(s);
  int i = n / 2;
  while(i--) {
    if (s[i] != s[n - i - 1]) return false;
  }
  return true;
}

C++:

bool isPalindrome(const std::string &s) {
  return std::equal(s.cbegin(), s.cbegin() + s.length() / 2, s.crbegin());
}

C#

static bool isPalindrome(string s)
{
    int n = s.Length;
    int i = n / 2;
    while (i-- > 0)
    {
        if (s[i] != s[n - i - 1]) return false;
    }
    return true;
}

Pascal:

function IsPalindrome(S: String): Boolean;
var I : Integer;
begin
  I := Length(S) div 2;
  IsPalindrome := True;
  while (I > 0) do
  begin
    Dec(I);
    if (S[I+1] <> S[Length(S) - I]) then
    begin
      IsPalindrome := False;
      Exit;
    end;
  end;
end;

Python:

def is_palindrome(s):
  i = len(s)/2
  while i:
    i -= 1
    if s[i] != s[-i-1]: return False
  return True

def is_palindrome(s):
    return s[::-1] == s

Ruby:

def is_palindrome(s)
  i = s.size/2;
  while i > 0
    i -= 1
    if s[i] != s[s.size-i-1] then return false end
  end
  return true
end

PHP:

function is_palindrome($s)
{
  $i = (int)(strlen($s) / 2);
  while($i--)
    if($s[$i] != $s[strlen($s)-$i-1]) return false;
  return true;
}

JavaScript (EcmaScript):

function isPalindrome(s)
{
  var i = parseInt(s.length/2);
  while(i--)
    if(s.charAt(i) != s.charAt(s.length-i-1)) return false;
  return true;
}

Implementacje w językach funkcyjnych

Ze względu na specyficzność języków funkcyjnych i deklaratywnych, implementacje tego algorytmu mogą wyglądać w nich zupełnie inaczej.

Prolog:

is_palindrome(A, A).
is_palindrome([_|A], A).
is_palindrome([H|T], L) :-
	is_palindrome(T, [H|L]).