Palindrom jest jakiś ciąg znaków, który jest wpisany w ten sam sposób zarówno w przód iw tył. Na przykład: „Eva, czy mogę dźgać nietoperze w jaskini?” jest palindromem (EVACANISTAB | BATSINACAVE)

W przypadku tego kodu golfowego, używając wybranego języka, określ, czy dany ciąg jest palindromem, czy nie.

Edge Cases:

• Interpunkcja nie jest wliczana do palindromii.
• Postacie kontrolne nie są liczone do palindromii.
• Białe znaki nie są wliczane do palindromii.
• Liczby są liczone do palindromii.
• Przypadek w tym wyzwaniu nie jest liczony do palindromii.
• Długość łańcuchów do oceny jest nieograniczona, z wyjątkiem tego, co narzuca Twój wybrany język.
• W tym wyzwaniu ogranicz się do zestawu znaków ASCII.

Wymagania techniczne:

• Potrzebne są tylko ciała metod; dodatkowe rzeczy, takie jak podpisy metod, deklaracje struktury danych itp. nie liczą się do wymogu zwycięstwa.
• Kod musi się kompilować lub interpretować bez błędów i wyjątków czasu kompilacji.
• Kod nie może generować żadnych nieobsługiwanych wyjątków lub awarii. (Prawie nie trzeba dodawać. Prawie.)
• Kod musi zwracać pewną wartość wskazującą na palindrominess. Typ danych zależy od używanego języka (np. Użytkownik C # może użyć a bool, podczas gdy użytkownik JavaScript może użyć a var.)
• Nie możesz pisać własnego tłumacza wykonującego to zadanie jako „rodzimego”, abyś mógł „golfa” uzyskać prawie zwycięski wynik. (Mam nadzieję, że nie trzeba dodawać.)

Warunek zwycięstwa:

• Najkrótszy kod ze znaków wygrywa.

Obecny przywódca: tmartin (k, 25 znaków)

... Chcesz magiczny zielony znacznik wyboru obok swojej odpowiedzi? Pokonaj odpowiedź tego faceta!

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 znaków

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

Ocenia wartość 1, gdy $_jest palindromem ""(jedną z fałszywych wartości Perla), gdy nie jest.

Przykładowe użycie:

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__

wynik:

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

Tylko C # 82 :)

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

Nie mogłem oprzeć się pokusie napisania programu bez płyt kotłowych w moim ulubionym języku.

Test jest dostępny tutaj: http://ideone.com/8bwz7z

GolfScript, 36 34 31 30 znaków

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

Podobny algorytm do mojego poprzedniego (Javascript) rozwiązania .

0"0:A[a{"@{>^}+/- Zoptymalizowane przez Petera Taylora i Howarda. Moja wersja była "/9@Z"{1$<},,2%\;. Howard podarował konkatenację funkcji, a Peter Taylor podarował XOR dla modulo-2. Jest to w zasadzie ogólna metoda porównywania, jeśli wartość jest w sekwencji zakresów.

{.96>32*-}%(11 znaków) nie jest tak naprawdę ulepszeniem w stosunku do Javascript .toUpperCase()(14 znaków), zwłaszcza, że ​​zniekształca niektóre dziwne znaki interpunkcyjne występujące zw tabeli ASCII (co nie ma tutaj znaczenia).

zgodnie z sugestią Petera Taylora, jeśli jednak najpierw odfiltrujemy alfanumeryczne, możemy przekonwertować małe litery i cyfry, ustawiając jeden bit dla każdego znaku: {32|}

.-1%=wykonuje wszystkie palindromowe ciężkie podnoszenie. Jedną z rzeczy, których tak naprawdę nie lubię, jest to, ile czasu zajęło mi znalezienie sposobu na odwrócenie tablicy. Powinienem był przeczytać dokumenty. Pozostałe dwie postacie wykonują zarządzanie stosami i porównywanie.

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

Ponadto, jeśli mogę założyć, że nie występuje żaden z następujących znaków kontrolnych: (ucieczka łącza danych, sterowanie urządzeniem 1-4, potwierdzenie negatywne, synchroniczne bezczynność, koniec bloku transmisji, anulowanie, koniec medium) (wszyscy zgadzamy się, że są to wszystkie dość niejasne) lub jeśli mogę traktować je jako wielkie litery cyfr 0–9, możemy zapisać kolejne dwa znaki:

GolfScript, 28 znaków

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

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

JavaScript, 53 znaki:

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

jest wyrażeniem javascript, którego wynikiem jest prawda, jeśli xjest palindromem, lub fałsz, jeśli nie jest. Zakłada się, że xjest łańcuchem. Jeśli to nie jest gwarantowane, przygotujx+="",

Oto bułka tarta: Ze względu na to, jak reverse()działa,

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

zawodzi. Jednak,

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

jest całkowicie w porządku.

R: 66

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

Stosowanie:

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 znaków

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

Pobiera to żądło, aby sprawdzić jako pierwszy parametr, i ustawia kod wyjścia na 0 dla palindromu i 1 na brak.

Przykładowy przebieg:

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 (bez liczenia podpisu metody)

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

Kompletny program z wejściem i wyjściem może być zapisany w 74 znakach.

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

Przykładowe użycie:

$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.txtZawiera tę 17826 słowo palindrom)

To rozwiązanie można dostosować do Pythona 3, dodając kilka znaków:

Python 3: 55

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

JAVA (lub najbardziej szczegółowy język w historii), 102 96 95 char

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

Użycie (z nie golfowym kodem):

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

Skrócony za pomocą komentatora poniżej

Mathematica 54 53

Jeden bajt zapisany dzięki CatsAreFluffy:

PalindromeQ@StringCases[ToUpperCase@#,WordCharacter]&

Dla osób z wersją 10.2 lub wcześniejszą:

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

Przykład

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

Prawdziwe

J, 30 znaków

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

Stosowanie:

   */(=|.)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 znaków)

Pomija wszystkie błędy, zwracając wartość domyślną 0b(false).

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

Przykład:

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

edycja: ogolono jeszcze trzy znaki, unikając zmiennej pośredniej. H / T, CS. -7: Nie trzeba tłumić błędów.

Rubin: 43 38 znaków

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

Przykładowy przebieg:

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 (błędnie policzony), 100 (błędnie policzony), 81

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

• Wykorzystuje wzorce bitowe ASCII.
• Polega na złu using namespace std;.
• Używa bitowego AND i OR zamiast operatorów logicznych.

• Używa, intponieważ jest krótszy niż charlub 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 lat

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

Python 3/2 59 znaków:

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

Haskell, 43

Przy użyciu standardowych bibliotek Control.Monad, Control.Monad.Instancesoraz Data.Char:

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

PHP 60 znaków.

Najpierw spróbuj na codegolf.

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

Przykład:

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

Python 2 64 Charecters:

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

Haskell 48

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

używane w ten sposób:

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

Smalltalk , Squeak / Pharo o smaku
116 znaków przy użyciu tradycyjnego formatowania z zakładkami

Dodajesz dwie metody do ciągu:

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

Możemy oczywiście wyeliminować niektóre spacje lub użyć krótszych nazw metod, ale nie zdradzajmy ducha Smalltalk.

Co więcej, będzie to obsługiwać francuskie palindromy, jak w http://fr.wikipedia.org/wiki/Liste_de_palindromes_fran%C3%A7ais , niewiele odpowiedzi na tej stronie może.

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

Python 3 (51 znaków)

i może być Python 2

oparty na rozwiązaniu abhiram (z bardziej agresywnym golfem)

from re import findall

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

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

można skrócić do 46 znaków, używając RE '\ w'

i wariant z ekstremalnie skróconym korpusem funkcyjnym (27 znaków)

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 znaków

Zaktualizowano (patrz komentarze) i można usunąć nawiasy kwadratowe wokół wyrażenia regularnego:

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

Oryginał (56)

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

Oryginał bez golfa:

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

C ++, 74 bajty

Ten kod jest naprawdę bardzo elegancki i łatwy do zrozumienia (gdy jest poprawnie sformatowany). Nie sądzę, że można skrócić C ++ i nie używa on żadnych standardowych funkcji bibliotecznych.

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

Przykładowe użycie:

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

Ładnie sformatowana wersja:

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 bajty

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

pobiera dane wejściowe z argumentu pierwszego wiersza poleceń; drukuje 1dla prawdy, pusty ciąg dla fałszu.

I18n jest małym rozszerzeniem, ponieważ nie ma wielobajtowej alternatywy dla strrev(110 bajtów; uruchom z -r):

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

utf8_strrev rażąco skradziony z podręcznika PHP . Możesz także rzucić okiem na ten post na blogu .

Ruby, 48

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

Całkiem proste i pospiesznie wykonane, więc nie grałem zbyt dużo w golfa. Będę grał w golfa później.

Pylongolf2 , 24 bajty

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

cpobiera dane wejściowe, ╨2aby przekonwertować na małe litery.
Następnie wypycham wyrażenie regularne na stos i używam -do usunięcia wszystkich znaków niealfabetycznych z danych wejściowych.
_powiela dane wejściowe.
╨1odwraca go, a =następnie porównuje.
~drukuje stos na końcu, który drukuje albo truealbo false.

PowerShell, 194 190 bajtów

Rekurencyjna implementacja pokazująca, jak nienazwany blok skryptowy PowerShell może się nazywać.

$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]))}

bez golfa:

$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]))
}

testy:

&$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 bajty (niekonkurujące)

Nie konkuruje , ponieważ język jest późniejszy niż wyzwanie. Kod:

álÂQ

Wyjaśnienie:

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

Wykorzystuje kodowanie CP-1252 . Wypróbuj online! .

Galaretka, 10 znaków (niekonkurujących)

fØBŒl
UÇ⁼Ç

Zwraca 1 jeśli prawda, 0 jeśli fałsz

Wypróbuj online!