Ein Palindrom ist eine Zeichenfolge, die vorwärts und rückwärts gleich geschrieben wird. Zum Beispiel: "Eva, kann ich Fledermäuse in eine Höhle stechen?" ist ein Palindrom (EVACANISTAB | BATSINACAVE)

Bestimmen Sie für diesen Code Golf in der Sprache Ihrer Wahl, ob eine bestimmte Zeichenfolge ein Palindrom ist oder nicht.

Edge Cases:

• Interpunktion wird nicht zur Palindromie gezählt.
• Steuerzeichen werden nicht zur Palindromie gezählt.
• Leerzeichen werden nicht zur Palindromie gezählt.
• Zahlen werden zur Palindromie gezählt.
• Der Fall in dieser Herausforderung wird nicht auf die Palindromie angerechnet.
• Die Länge der auszuwertenden Zeichenfolgen ist unbegrenzt, es sei denn, die Sprache Ihrer Wahl schreibt dies vor.
• Beschränken Sie sich für diese Herausforderung auf den ASCII-Zeichensatz.

Technische Voraussetzungen:

• Es werden nur Methodenkörper benötigt. Zusätzliche Dinge wie Methodensignaturen, Datenstrukturdeklarationen usw. zählen nicht zur Siegbedingung.
• Code muss ohne Fehler oder Ausnahmen zur Kompilierungszeit kompiliert oder interpretiert werden.
• Code darf keine unbehandelten Ausnahmen oder Abstürze auslösen. (Fast unnötig zu sagen. Fast.)
• Der Code muss einen Wert zurückgeben, der auf Palindromie hinweist. Der Datentyp hängt von der Sprache ab, die Sie verwenden (z. B. könnte ein C # -Benutzer a verwenden bool, während ein JavaScript-Benutzer a verwenden könnte var.)
• Möglicherweise schreiben Sie keinen eigenen Dolmetscher, der diese Aufgabe als "native" Fähigkeit ausführt, sodass Sie eine fast gewinnbringende Punktzahl "golfen" können. (Hoffentlich unnötig zu sagen.)

Siegbedingung:

• Der kürzeste Code in Zeichen gewinnt.

Aktueller Anführer: tmartin (k, 25 Zeichen)

... Möchten Sie das magische grüne Häkchen bei Ihrer Antwort sehen? Schlage die Antwort dieses Typen!

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 char

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

Wird zu 1 ausgewertet, wenn $_es sich um ein Palindrom handelt ""(einer der falschen Werte von Perl), wenn dies nicht der Fall ist.

Beispielnutzung:

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__

Ausgabe:

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

Nur C # 82 :)

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

Ich konnte der Versuchung nicht widerstehen, ein Programm ohne Boilerplate in meiner Lieblingssprache zu schreiben.

Ein Test ist hier verfügbar: http://ideone.com/8bwz7z

GolfScript, 36 34 31 30 Zeichen

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

Ähnlicher Algorithmus zu meiner vorherigen (Javascript) Lösung .

0"0:A[a{"@{>^}+/- Optimiert von Peter Taylor und Howard. Meine Version war "/9@Z"{1$<},,2%\;. Howard spendete Verkettung von Funktionen und Peter Taylor spendete XOR für Modulo-2. Dies ist im Grunde eine generische Methode zum Vergleichen, wenn sich der Wert in einer Folge von Bereichen befindet.

{.96>32*-}%(11 Zeichen) ist keine wirkliche Verbesserung gegenüber Javascript .toUpperCase()(14 Zeichen), zumal es einige seltsame Satzzeichen zin der ASCII-Tabelle (die hier keine Rolle spielen) verstümmelt.

Wenn wir jedoch zuerst die alphanumerischen Zeichen herausfiltern, können wir, wie von Peter Taylor vorgeschlagen, in Kleinbuchstaben und Ziffern konvertieren, indem wir in jedem Zeichen ein Bit setzen: {32|}

.-1%=macht das ganze palindromische schwere Heben. Ein Teil, den ich nicht besonders mag, ist, wie lange ich gebraucht habe, um herauszufinden, wie ich ein Array umkehren kann. Ich hätte die Dokumentation lesen sollen. Die anderen beiden Zeichen führen die Stapelverwaltung und den Vergleich durch.

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

Wenn ich davon ausgehen kann, dass keines der folgenden Steuerzeichen vorhanden ist: (Escape-Datenverbindung, Gerätesteuerung 1-4, negative Bestätigung, synchroner Leerlauf, Ende des Übertragungsblocks, Abbrechen, Ende des Mediums) (wir sind uns alle einig, dass dies der Fall ist alle ziemlich dunkel) oder wenn ich sie als Großbuchstaben der Ziffern 0-9 behandeln kann, können wir zwei weitere Zeichen speichern:

GolfScript, 28 Zeichen

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

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

Javascript, 53 Zeichen:

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

ist ein Javascript-Ausdruck, der als wahr ausgewertet wird, wenn xes sich um ein Palindrom handelt, und als falsch, wenn dies nicht der Fall ist. Es wird davon ausgegangen, dass xes sich um eine Zeichenfolge handelt. Wenn dies nicht garantiert ist, müssen Sie voranstellenx+="",

Hier ist ein Breadcrumb: Aufgrund der Funktionsweise reverse(),

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

scheitert. Jedoch,

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

ist vollkommen in Ordnung.

R: 66

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

Verwendungszweck:

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 Zeichen

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

Dies nimmt die Stichprobe als ersten Parameter und setzt den Exit-Code auf 0 für Palindrome und 1 für nicht.

Probelauf:

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 (ohne die Methodensignatur zu zählen)

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

Ein komplettes Programm mit Ein- und Ausgabe kann in 74 Zeichen geschrieben werden.

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

Anwendungsbeispiel:

$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.txtenthält dieses 17.826 Wort Palindrom)

Diese Lösung kann an Python 3 angepasst werden und einige Zeichen hinzufügen:

Python 3: 55

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

JAVA (oder die ausführlichste Sprache aller Zeiten), 102 96 95 Zeichen

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

Verwendung (mit ungolfed Code):

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!'"));
}

Mit Hilfe des Kommentators unten gekürzt

Mathematica 54 53

Ein Byte gespart dank CatsAreFluffy:

PalindromeQ@StringCases[ToUpperCase@#,WordCharacter]&

Für diejenigen mit Version 10.2 oder früher:

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

Beispiel

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

Wahr

J 30 Zeichen

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

Verwendungszweck:

   */(=|.)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 Zeichen)

Unterdrückt alle Fehler und gibt den Standardwert 0b(false) zurück.

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

Beispiel:

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

bearbeiten: drei weitere Zeichen durch Vermeiden von Zwischenvariablen rasiert. H / T, CS. -7: Keine Notwendigkeit, Fehler zu unterdrücken.

Ruby: 43 38 Zeichen

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

Probelauf:

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 (falsch gezählt), 100 (falsch gezählt), 81

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

• Nutzt ASCII-Bitmuster.
• Verlässt sich auf ein Übel using namespace std;.
• Verwendet bitweises UND und ODER anstelle der logischen Operatoren.

• Wird verwendet, intweil es kürzer als charoder ist 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

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

Python 3/2 59 Zeichen:

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

Haskell, 43

Mit den Standard - Bibliotheken Control.Monad, Control.Monad.Instancesund Data.Char:

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

PHP 60 Zeichen.

Versuchen Sie zuerst Codegolf.

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

Beispiel:

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

Python 2 64-Zeichen:

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

Haskell 48

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

wie folgt verwendet:

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

Smalltalk , Squeak / Pharo-Geschmack
116 Zeichen mit traditioneller Formatierung mit Tabulatoren

Sie fügen String zwei Methoden hinzu:

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

Wir könnten natürlich einige Leerzeichen entfernen oder kürzere Methodennamen verwenden, aber wir sollten den Geist von Smalltalk nicht verraten.

Darüber hinaus werden hiermit französische Palindrome behandelt, wie dies in http://fr.wikipedia.org/wiki/Liste_de_palindromes_fran%C3%A7ais der Fall ist , und es können nicht viele Antworten auf dieser Seite gefunden werden.

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

Python 3 (51 Zeichen)

und kann Python 2 sein

basierend auf Abhiram- Lösung (mit aggressiverem Golfen)

from re import findall

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

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

kann mit RE '\ w' auf 46 Zeichen gekürzt werden

und Variante mit extrem verkürztem Funktionskörper (27 Zeichen)

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 Zeichen

Aktualisiert (siehe Kommentare) und kann die Klammern um den regulären Ausdruck entfernen:

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

Original (56)

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

Original ohne 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 Bytes

Dieser Code ist eigentlich sehr elegant und leicht zu verstehen (wenn er richtig formatiert ist). Ich glaube nicht, dass es möglich ist, in C ++ kürzer zu werden, und es werden keine Standardbibliotheksfunktionen verwendet.

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

Anwendungsbeispiel:

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

Schön formatierte Version:

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 Bytes

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

Nimmt Eingaben vom ersten Befehlszeilenargument entgegen; druckt 1für wahrheitsgemäße, leere Zeichenfolge für falsch.

I18n ist ein wenig expansiv, da es keine Multibyte-Alternative für strrev(110 Bytes; laufe mit -r) gibt:

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

utf8_strrev krass aus dem PHP-Handbuch gestohlen . Vielleicht möchten Sie auch einen Blick auf diesen Blogeintrag werfen .

Rubin, 48

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

Ganz einfach und hastig gemacht, also nicht zu viel golfen. Ich werde später mehr Golf spielen.

Pylongolf2 , 24 Bytes

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

cNimmt die Eingabe, ╨2um in Kleinbuchstaben umzuwandeln.
Ich drücke dann einen regulären Ausdruck auf den Stapel und -entferne damit alle nicht alphabetischen Zeichen in der Eingabe.
_dupliziert die Eingabe.
╨1kehrt es um und =vergleicht sie dann.
~druckt den Stapel am Ende, der entweder trueoder druckt false.

PowerShell, 194 190 Bytes

Eine rekursive Implementierung, um zu zeigen, wie sich ein unbenannter PowerShell-Skriptblock selbst aufrufen kann.

$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 Bytes (nicht konkurrierend)

Nicht konkurrierend , da die Sprache die Herausforderung datiert. Code:

álÂQ

Erläuterung:

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

Verwendet die CP-1252- Codierung. Probieren Sie es online! .

Jelly, 10 Charaktere (nicht konkurrierend)

fØBŒl
UÇ⁼Ç

Gibt 1 zurück, wenn wahr, 0, wenn falsch

Probieren Sie es online!