Un palindrome est une chaîne épelée de la même manière, à l’avant comme à l’avant. Par exemple, 'Eva, puis-je poignarder des chauves-souris dans une grotte?' est un palindrome (EVACANISTAB | BATSINACAVE)

Pour ce code golf, en utilisant la langue de votre choix, déterminez si une chaîne donnée est un palindrome ou non.

Cas Edge:

• La ponctuation ne compte pas dans la palindromie.
• Les caractères de contrôle ne sont pas pris en compte dans la palindromie
• Les espaces blancs ne comptent pas pour la palindromie.
• Les nombres sont comptés en fonction de la palindromie.
• Le cas dans ce défi ne compte pas pour la palindromie.
• Il n'y a pas de limite à la longueur des chaînes à évaluer, à l'exception de ce qui est imposé par la langue de votre choix.
• Pour ce défi, limitez-vous au jeu de caractères ASCII.

Les pré-requis techniques:

• Seuls les corps de méthodes sont nécessaires; des éléments supplémentaires tels que les signatures de méthode, les déclarations de structure de données, etc. ne comptent pas pour l'exigence de victoire.
• Le code doit être compilé ou interprété sans erreurs ou exceptions lors de la compilation.
• Le code ne doit pas renvoyer d'exceptions non gérées ou de crash. (Presque inutile de dire. Presque.)
• Le code doit renvoyer une valeur indiquant le palindrominess. Le type de données dépend de la langue que vous utilisez (par exemple, un utilisateur C # peut utiliser un bool, alors qu'un utilisateur JavaScript peut utiliser un var.)
• Vous ne pouvez pas écrire votre propre interprète qui effectue cette tâche en tant que capacité «native» afin de pouvoir «jouer» un score presque gagnant. (J'espère inutile de le dire.)

Condition de victoire:

• Le code le plus court en caractères gagne.

Chef actuel: tmartin (k, 25 caractères)

... Voulez-vous la coche verte verte par votre réponse? Battez la réponse de ce type!

K, 25

{x~|x:_x@&x in,/.Q`a`A`n}

.

k){x~|x:_x@&x in,/.Q`a`A`n}"Eva, can I stab bats in a cave?"
1b

Perl, 26 caractères

s/_|\W//g;uc eq reverse uc

Evalue à 1 quand $_est un palindrome ""(une des fausses valeurs de Perl) quand ce n'est pas le cas.

Exemple d'utilisation:

sub palin {
    s/_|\W//g;uc eq reverse uc
}
while (<DATA>) {
    chomp;
    print "$_ => ",palin()?"yes":"no","\n";
}
__DATA__
Eva, can I stab bats in a cave?
A man, a plan, a canal. Panama!
Madam, I'm Adam Corolla.
757
Boeing 757
A man, a plan, a big shovel, a canal. Panama!
A man, a plan, a canoe, pasta, heros, rajahs, a coloratura, maps, snipe, percale, macaroni, a gag, a banana bag, a tan, a tag, a banana bag again (or a camel), a crepe, pins, Spam, a rut, a Rolo, cash, a jar, sore hats, a peon, a canal >> __Panama__

sortie:

Eva, can I stab bats in a cave? => yes
A man, a plan, a canal. Panama! => yes
Madam, I'm Adam Corolla. => no
757 => yes
Boeing 757 => no
A man, a plan, a big shovel, a canal. Panama! => no
A man, a plan, a canoe, pasta, heros, rajahs, a coloratura, maps, snipe, percale, macaroni, a gag, a banana bag, a tan, a tag, a banana bag again (or a camel), a crepe, pins, Spam, a rut, a Rolo, cash, a jar, sore hats, a peon, a canal >> __Panama__ => yes

C # 82 seulement :)

var x=s.ToLower().Where(char.IsLetterOrDigit);return x.SequenceEqual(x.Reverse());

Impossible de résister à la tentation d'écrire un programme sans passe-partout dans ma langue préférée.

Un test est disponible ici: http://ideone.com/8bwz7z

GolfScript, 36 34 31 30 caractères

{0"0:A[a{"@{>^}+/},{32|}%.-1%=

Algorithme similaire à ma solution précédente (Javascript) .

0"0:A[a{"@{>^}+/- Optimisé par Peter Taylor et Howard. Ma version était "/9@Z"{1$<},,2%\;. Howard a fait don de la concaténation de fonctions et Peter Taylor a fait don de XOR pour modulo-2. C'est fondamentalement une méthode générique de comparaison si la valeur est dans une séquence de plages.

{.96>32*-}%(11 caractères) n’est pas vraiment une amélioration par rapport à Javascript .toUpperCase()(14 caractères), d’autant plus qu’il modifie quelques signes de ponctuation étranges qui suivent zdans la table ASCII (ce qui n’importe pas ici).

comme l'a suggéré Peter Taylor, cependant, si nous filtrons d'abord les caractères alphanumériques, nous pouvons convertir en minuscules et en chiffres simplement en définissant un bit dans chaque caractère: {32|}

.-1%=fait tout le levage palindromique lourd. Une partie que je n’apprécie pas vraiment, c’est combien de temps il m’a fallu pour savoir comment inverser un tableau. J'aurais dû lire la documentation. Les deux autres personnages effectuent la gestion et la comparaison des piles.

Test: http://golfscript.apphb.com/?c=IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEgY2F2ZT8iCgp7IjA6QVyyJcez59KywsMiV9LHszMnx9JS4tMSU9

De plus, si je peux supposer qu’aucun des caractères de contrôle suivants n’est présent: (échappement de liaison de données, contrôle de périphérique 1-4, accusé de réception négatif, repos synchrone, bloc de fin de transmission, annulation, fin de support) (nous sommes tous d’accord pour dire que tous assez obscurs) ou si je peux les traiter comme des versions majuscules des chiffres 0 à 9, nous pouvons enregistrer deux autres caractères:

GolfScript, 28 caractères

{32|}%{0"0:a{"@{>^}+/},.-1%=

Test: http://golfscript.apphb.com/?c=IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEgY2F2ZT8iCgp7MzJ8fSV7MCIwOmF7IkB7Pl59Ky99LC4tMSU9

Javascript, 53 caractères:

(x=x.toLowerCase().match(/[a-z\d]/g))+""==x.reverse()

est une expression javascript qui vaut true si xest un palindrome, false si ce n'est pas le cas. Il suppose que xc'est une chaîne. Si ce n'est pas garanti, préférezx+="",

Voici un fil d'Ariane: En raison de la façon dont reverse()fonctionne,

(x=x.toLowerCase().match(/[a-z\d]/g))==""+x.reverse()

échoue. cependant,

""+(x=x.toLowerCase().match(/[a-z\d]/g))==x.reverse()

est parfaitement bien.

R: 66

w=grep("[a-z0-9]",strsplit(tolower(s),"")[[1]],v=T);all(w==rev(w))

Usage:

f=function(s){w=grep("[a-z0-9]",strsplit(tolower(s),"")[[1]],v=T);all(w==rev(w))}

f("Eva, can I stab bats in a cave?")
[1] TRUE

Bash: 52 48 46 caractères

s=${1,,};s=${s//[^a-z0-9]};[ $s = `rev<<<$s` ]

Cela prend la piqûre à vérifier en tant que premier paramètre et définit le code de sortie à 0 pour palindrome et à 1 pour non.

Échantillon échantillon:

bash-4.2$ p() { s=${1,,};s=${s//[^a-z0-9]};[ $s = `rev<<<$s` ]; }

bash-4.2$ p 'Eva, can I stab bats in a cave?'; echo $?
0

bash-4.2$ p 'A man, a plan, a canal. Panama!'; echo $?
0

bash-4.2$ p "Madam, I'm Adam Corolla."; echo $?
1

bash-4.2$ p '757'; echo $?
0

bash-4.2$ p 'Boeing 757'; echo $?
1

bash-4.2$ p 'A man, a plan, a shovel, a canal. Panama!'; echo $?
1

bash-4.2$ p 'A_man,_a_plan, a_caremer, a canal:_Panama!'; echo $?
0

Python 2: 49 (sans compter la signature de la méthode)

def f(s):
 s=filter(str.isalnum,s.upper())
 return s==s[::-1]

Un programme complet, avec entrée et sortie, peut être écrit en 74 caractères.

import sys
s=filter(str.isalnum,sys.stdin.read().upper())
print s==s[::-1]

Exemple d'utilisation:

$echo 'Eva,can I stab bats in a cave?' | python palindrome.py
True 
$ cat huge_palindrome.txt | python palindrome.py
True
$echo 'Able was I ere i SaW elBa' | python palindrome.py                                                                   
True                                         

( huge_palindrome.txtcontient ces 17 826 mots palindrome)

Cette solution peut être adaptée au python 3 en ajoutant quelques caractères:

Python 3: 55

def f(s):
 s=list(filter(str.isalnum,s.upper()))
 return s==s[::-1]

JAVA (ou la langue la plus prolixe de tous les temps), 102 96 95 car.

s=s.replaceAll("\\W|_","");return s.equalsIgnoreCase(new StringBuffer(s).reverse().toString());

Utilisation (avec du code non-golfé):

static boolean q(String s) {
    s=s.replaceAll("\\W|_","");
    return s.equalsIgnoreCase(new StringBuffer(s).reverse().toString());
}

public static void main(String[] args) {
    System.out.println(q("'A man, a plan, a canal - Panama!'"));
}

Raccourci avec l'aide du commentaire ci-dessous

Mathematica 54 53

Un octet enregistré grâce à CatsAreFluffy:

PalindromeQ@StringCases[ToUpperCase@#,WordCharacter]&

Pour ceux avec la version 10.2 ou antérieure:

#==Reverse@#&@StringCases[ToUpperCase@#,WordCharacter]&

Exemple

PalindromeQ@StringCases[ToUpperCase@#, WordCharacter]&["Eva,can I stab bats in a cave?"]

Vrai

J, 30 caractères

*/(=|.)tolower(#~'[^_\W]'rxE])

Usage:

   */(=|.)tolower(#~'[^_\W]'rxE])'A man, a plan, a canal - Panama!'
1
   */(=|.)tolower(#~'[^_\W]'rxE])'Doc, note: I dissent. A fast never prevents a fatness. I diet on cod'
1

k ( 50 48 45 38 caractères)

Supprime toutes les erreurs et renvoie la valeur par défaut 0b(false).

{X~|X@:&(X:_:x)in 10h$(48+!10),97+!26}

Exemple:

k){X~|X@:&(X:_:x)in 10h$(48+!10),97+!26} "Eva, can I stab bats in a cave?"
1b

edit: rasé trois autres caractères en évitant la variable intermédiaire. H / T, CS. -7: Pas besoin de supprimer les erreurs.

Ruby: 43 38 caractères

s=s.upcase.tr'^A-Z0-9','';s==s.reverse

Échantillon échantillon:

irb(main):001:0> p=->s{s=s.upcase.tr'^A-Z0-9','';s==s.reverse}
=> #<Proc:0x854592c@(irb):1 (lambda)>

irb(main):002:0> p['Eva, can I stab bats in a cave?']
=> true

irb(main):003:0> p['A man, a plan, a canal. Panama!']
=> true

irb(main):004:0> p["Madam, I'm Adam Corolla."]
=> false

irb(main):005:0> p['757']
=> true

irb(main):006:0> p['Boeing 757']
=> false

irb(main):007:0> p['A man, a plan, a shovel, a canal. Panama!']
=> false

irb(main):009:0> p['A_man,_a_plan, a_caremer, a canal:_Panama!']
=> true

C ++, 107 (mal compté), 100 (mal compté), 81

string s;for(int c:t)if(isalnum(c))s+=c|32;return s==string(s.rbegin(),s.rend());

• Exploite les modèles de bits ASCII.
• S'appuie sur un mal using namespace std;.
• Utilise les bits AND et OR au lieu des opérateurs logiques.

• Utilise intparce que c'est plus court que charou auto.

  #include <string>
  using namespace std;
  
  bool IsPalindrome(const string & t) {
  string s;for(int c:t)if(isalnum(c))s+=c|32;return s==string(s.rbegin(),s.rend());
  }
  
  #include <cassert>
  
  int main() {
      assert(!IsPalindrome("gorilla"));  // simple failure
      assert( IsPalindrome("racecar"));  // simple success
      assert( IsPalindrome("Hannah"));   // case blind
      assert(!IsPalindrome("1999"));     // digit failure
      assert( IsPalindrome("2002"));     // digit success
      // Ignore spacing, punctuation, and case:
      assert( IsPalindrome(" \t09AZ/:@[`{za90"));  // boundaries
      assert( IsPalindrome("A man, a plan, a canal: Panama."));
      assert( IsPalindrome("Eva, can I stab bats in a cave?"));
      assert( IsPalindrome(""));  // empty string
      return 0;
  }
  

Lua, 56 ans

a=io.read"*l":lower():gsub("%W","")print(a:reverse()==a)

Python 3/2 59 caractères:

def pld(i):
   p=[c for c in i.lower() if c.isalnum()]
   return(p == p[::-1])

Haskell, 43 ans

En utilisant les bibliothèques standard Control.Monad, Control.Monad.Instanceset Data.Char:

ap(==)reverse.map toLower.filter isAlphaNum

PHP 60 caractères.

Essayez d'abord le codegolf.

//thank you manatwork
echo($x=preg_replace('/\W/','',strtolower($c)))==strrev($x); 

Exemple:

$c='Eva, can I stab bats in a cave?';
echo($x=preg_replace('/\W/','',strtolower($c)))==strrev($x);
//prints 1

Python 2 64 caractères:

i =''.join(re.findall('[a-z0-9]+',i.lower()))
return i==i[::-1]

Haskell 48

(\x->x==reverse x).map toLower.filter isAlphaNum

utilisé comme ceci:

(\x->x==reverse x).map toLower.filter isAlphaNum$"Eva, can I stab bats in a cave?"

Smalltalk , Squeak / Pharo flavour
116 caractères en utilisant la mise en forme traditionnelle avec des onglets

Vous ajoutez deux méthodes à String:

selffles
    ^self = self reverse
isPalindrome
    ^(self asUppercase asDecomposedUnicode select: #isAlphaNumeric) selffles

Nous pourrions bien sûr éliminer certains espaces, ou utiliser des noms de méthode plus courts, mais ne trahissons pas l'esprit de Smalltalk.

De plus, cela traitera les palindromes français, comme dans http://fr.wikipedia.org/wiki/Liste_de_palindromes_fran%C3%A7ais , peu de réponses dans cette page peuvent.

['Léon a trop par rapport à Noël' isPalindrome] assert.

Python 3 (51 caractères)

et peut être Python 2

basé sur la solution d' abhiram (avec un golf plus agressif)

from re import findall

def palindrome(i):
 i=findall('[a-z\d]',i.lower())
 return i==i[::-1]

print(palindrome(input('Phrase: ')))

peut être réduit à 46 caractères, en utilisant RE '\ w'

et variante avec corps fonctionnel extrêmement raccourci (27 caractères)

import re
l=str.lower
f=re.compile('[a-z\d]').findall

def palindrome(i):i=f(l(i));return i==i[::-1]

print(palindrome(input('Phrase: ')))

Windows PowerShell, 56 47 45 caractères

Mis à jour (voir les commentaires), et peut supprimer les crochets autour de l'expression régulière:

($s=$s-replace'\W')-eq(-join$s[$s.length..0])

Original (56)

$s=$s-replace'[^\w]','';$s-eq($s[-1..-$s.length]-join'')

Original non-golfé:

$s = "Eva, can I stab bats in a cave?"
$s = $s -replace '[^\w]', ''
$rev = $s[-1..-$s.length] -join ''
$s -eq $rev

C ++, 74 octets

Ce code est en fait très élégant et facile à comprendre (lorsqu'il est correctement formaté). Je ne crois pas qu'il soit possible de raccourcir les choses en C ++ et il n'utilise aucune fonction de bibliothèque standard.

p(auto c){auto e=c;while(*e)++e;--e;while(*e==*c&e>c)--e,++c;return e<=c;}

Exemple d'utilisation:

p("Hello"); //Outputs 0
p(""); //Outputs 1
p("a"); //Outputs 1
p("HellolleH"); //Outputs 1

Version joliment formatée:

p(auto c)
{
    auto e=c;
    while(*e) ++e;
    --e;
    while(*e==*c & e>c)--e,++c;
    return e<=c;
}

PHP, 26 84 80 78 62 63 octets

<?=strrev($s=strtolower(preg_replace("#\W#","",$argv[1])))==$s;

prend les entrées du premier argument de la ligne de commande; imprime 1pour la vérité, chaîne vide pour la fausseté.

I18n est un peu expansif, car il n'y a pas d'alternative multi-octets pour strrev(110 octets; exécuter avec -r):

preg_match_all("#.#us",$s=strtolower(preg_replace("#\W#u","",$argv[1])),$m);echo$s==join(array_reverse($m[0]);

utf8_strrev volé de manière flagrante dans le manuel PHP . Vous voudrez peut-être aussi jeter un coup d'œil à ce billet de blog .

Ruby, 48 ans

p((g=gets.upcase.gsub /[^A-Z\d]/,'')==g.reverse)

Assez simple, et fait à la hâte, donc pas trop au golf. Je vais jouer au golf plus tard.

Pylongolf2 , 24 octets

c╨2"[^a-zA-Z]"-_╨1=~

cprend l’entrée, ╨2convertir en minuscule.
Je place ensuite une expression rationnelle sur la pile et l’utilise -pour supprimer tous les caractères non alphabétiques de l’entrée.
_duplique l'entrée.
╨1l'inverse et =ensuite les compare.
~imprime la pile à l'extrémité qui imprime soit trueou false.

PowerShell, 194 190 octets

Une implémentation récursive pour montrer comment un script de blocage PowerShell sans nom peut s'appeler.

$P={param([string]$s)$s=($s-replace'[^a-z]').tolower();if(!$s){return $true};if($s.length-lt4){return $s[0]-eq$s[-1]};$s[0]-eq$s[-1]-and(&$MyInvocation.MyCommand.ScriptBlock $s.trim($s[0]))}

ungolfed:

$P={
param([string]$s)
$s=($s-replace'[^a-z]').tolower();
if(!$s){return $true};
if($s.length-lt4){return $s[0]-eq$s[-1]};
$s[0]-eq$s[-1]-and(&$MyInvocation.MyCommand.ScriptBlock $s.trim($s[0]))
}

tests:

&$P "Eva, can I stab bats in a cave?"
&$P "Eva, can I stab cats in a cave?"
&$P "A man, a plan, a canal. Panama!"
&$P "A man, a plan, a big shovel, a canal. Panama!"
&$P "Madam, I'm Adam."
&$P "Madam, I'm Adam Corolla."
&$P "757"
&$P "Boeing 757"

05AB1E , 4 octets (non concurrents)

Non compétitif , car la langue post-date le défi. Code:

álÂQ

Explication:

á     # Only keep the alphabetic characters.
 l    # Lowercase the characters.
  Â   # Bifurcate, which duplicates the letters and reverses the duplicate.
   Q  # Check if they are equal.

Utilise le codage CP-1252 . Essayez-le en ligne! .

Gelée, 10 personnages (non en compétition)

fØBŒl
UÇ⁼Ç

Retourne 1 si vrai, 0 si faux

Essayez-le en ligne!