(* Détermine si un mot est un palindrome. *)
let palindrome word =
      let rec loop = function
            | (i, j) when i > j -> true
            | (i, j) -> match word.[i] = word.[j] with
                  | true -> loop (i + 1, j - 1)
                  | false -> false
      in loop (0, String.length word - 1)

// si on ne tient pas compte de la ponctuation, ca donne :
int ispalindrome(char *chaine){
    int l=strlen(chaine)-1;
    int i;
    for (i=0;i<=l/2;i++){
        if (chaine[i]!=chaine[l-i]){
            return i+1;
        }
    }
    return 0;
}
// sinon, ca donne :

int del_char_no_letters(char *chaine, int l){
    int i, j;
    for (i=0;i<l;i++){
        if ( (chaine[i]<'A' || chaine[i]>'Z') && (chaine[i]<'a' || chaine[i]>'z')){
            for (j=i;j<l-1;j++){
                chaine[j]=chaine[j+1];
            }
            l--;
            i--;
            chaine[l]='\0';
        }
    }
    return l;
}
int ispalindrome(char *chaine){
    int l=strlen(chaine);
    l=del_char_no_letters(chaine, l)-1;
    printf("%s\n", chaine);
    int i;
    for (i=0;i<=l/2;i++){
        if (chaine[i]!=chaine[l-i]){
            return i+1;
        }
    }
    return 0;
}

public static bool IsPal(string s) 
{
   int length = s.Length - 1; 
   if(length > 0)
   { 
      if(s[0] == s[length]) 
      {
          s = s.Substring(1, length - 1);
          return IsPal(s); 
      }
      return false; 
   }
   return true; 
}

Chaine = "eluparcettecrapule"
For i = 1 To Len(Left(chaine,Len(Chaine)/2)) Step 1
    If Mid(Left(chaine,Len(Chaine)/2), i,1) <> Left(Mid(Right(Right(chaine,Len(Chaine)/2),i),1),1) Then
       MsgBox Chaine & " n'est pas un palindrome"
       Exit For
    Else
       If i = Len(Left(chaine,Len(Chaine)/2)) Then MsgBox Chaine & " est un palindrome"
    End if
Next

def isPalindrome(mot):
    return mot[:] == mot[::-1]

Public Function Palindrome(ByVal sWord As String) As Boolean
    If LCase(sWord) = LCase(StrReverse(sWord)) Then Palindrome = True
End Function

Private Sub Exemple_Utilisation()
    MsgBox Palindrome("Laval                      ' Vrai
    MsgBox Palindrome("eluparcettecrapule") ' Vrai
    MsgBox Palindrome("1234554321")         ' Vrai
    MsgBox Palindrome("palindrome")           ' Faux
End Sub

var demimot1 = ""
var demimot2 = ""
var demimot = ""
var demimot3 = new Array()
function palindrome(mot){
for(i = 0;i < mot.length/2;i++){
demimot1 += mot.charAt(i)
}
demimot2 = mot.substring(mot.length/2)
for(i = 0;i < demimot2.length;i++){
demimot3[i] = demimot2.charAt(i)
}
demimot2 = demimot3.reverse()
for(i = 0;i < demimot3.length;i++){
demimot += demimot2[i]
}
if(demimot1 == demimot){
return "Ce mot est un palindrome"
}
else{
return "Ce mot n\'est pas un palindrome"
}
}
alert(palindrome("abcdefghhgfedcba"))

function IsPalindrome(const S : string) : boolean;
var PA,PB : integer;
begin
  PA := 1;
  PB := Length(S);
  result := PA <= PB;
  while (PA < PB) and Result do
  begin
    result := S[PA] = S[PB];
    PA := PA + 1;
    PB := PB - 1;
  end;
end;

DECLARE @PAL AS VARCHAR(10)

SET @PAL = 'LAVAL'

IF @PAL = REVERSE(@PAL)

SELECT 'PALINDROME' AS RESULTAT

ELSE

SELECT 'PAS DE PALINDROME' AS RESULTAT

function isPalyndrome (texte)
{
    return (texte.split(" ").join("").toLowerCase() == texte.split(" ").join("").toLowerCase().split("").reverse().join(""));
}
// Exemples :
isPalyndrome("Elu par cette crapule"); // Vrai
isPalyndrome("abcdefg"); // Faux

public static boolean isPalindrome(String text) {
    if (text == null) {
        throw new NullPointerException();
    }
    return new StringBuffer(text).reverse().toString().equals(text);
}