Um palíndromo é uma cadeia que é soletrada da mesma maneira para trás e para frente. Por exemplo, 'Eva, posso esfaquear morcegos em uma caverna?' é um palíndromo (EVACANISTAB | BATSINACAVE)

Para esse código de golfe, usando o idioma de sua escolha, determine se uma determinada sequência é um palíndromo ou não.

Casos de borda:

• A pontuação não é contada na palindrominess.
• Os caracteres de controle não são contados na palindrominess.
• Espaço em branco não é contado para palindrominess.
• Os números são contados para palindrominess.
• Caso neste desafio não é contado para palindrominess.
• Não há limite para o tamanho das strings a serem avaliadas, exceto o imposto pelo seu idioma de escolha.
• Para esse desafio, limite-se ao conjunto de caracteres ASCII.

Requerimentos técnicos:

• Somente corpos de métodos são necessários; coisas adicionais, como assinaturas de método, declarações de estrutura de dados, etc. não contam para o requisito de vitória.
• O código deve compilar ou interpretar sem erros ou exceções em tempo de compilação.
• O código não deve gerar exceções não tratadas ou travar. (Quase desnecessário dizer. Quase.)
• O código deve retornar algum valor indicando palindrominess. O tipo de dados depende do idioma que você usa (por exemplo, um usuário C # pode usar a bool, enquanto um usuário JavaScript pode usar a var.)
• Você não pode escrever seu próprio intérprete que executa essa tarefa como um recurso 'nativo' para poder 'jogar golfe' com uma pontuação quase vencedora. (Esperamos que seja desnecessário dizer.)

Condição da vitória:

• O código mais curto em caracteres vence.

Líder atual: tmartin (k, 25 caracteres)

... Deseja a marca de seleção verde mágica por sua resposta? Bata a resposta desse cara!

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 caracteres

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

Avalia como 1 quando $_é um palíndromo ""(um dos valores falsos de Perl) quando não é.

Uso da amostra:

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__

saída:

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

Somente C # 82 :)

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

Não resisti à tentação de escrever um programa sem clichês no meu idioma favorito.

Um teste está disponível aqui: http://ideone.com/8bwz7z

GolfScript, 36 34 31 30 caracteres

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

Algoritmo semelhante ao da minha solução anterior (Javascript) .

0"0:A[a{"@{>^}+/- Otimizado por Peter Taylor e Howard. Minha versão foi "/9@Z"{1$<},,2%\;. Howard doou concatenação de funções e Peter Taylor doou XOR para o módulo-2. É basicamente um método genérico de comparar se o valor está em uma sequência de intervalos.

{.96>32*-}%(11 caracteres) não é realmente uma melhoria em relação ao Javascript .toUpperCase()(14 caracteres), especialmente porque manipula algumas pontuações estranhas que se seguem zna tabela ASCII (o que não importa aqui).

como sugeriu Peter Taylor, no entanto, se filtrarmos os alfanuméricos primeiro, poderemos converter em letras minúsculas e dígitos apenas definindo um bit em cada caractere: {32|}

.-1%=faz todo o trabalho pesado palindrômico. Uma parte da qual não gosto muito é de quanto tempo levei para descobrir como reverter uma matriz. Eu deveria ter lido os documentos. Os outros dois caracteres realizam gerenciamento e comparação de pilhas.

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

Além disso, se eu puder assumir que nenhum dos seguintes caracteres de controle está presente: (escape do link de dados, controle de dispositivo 1-4, reconhecimento negativo, ociosidade síncrona, fim do bloco de transmissão, cancelamento, fim do meio) (todos concordamos que estes são tudo bastante obscuro) ou se eu puder tratá-los como versões em maiúsculas dos dígitos de 0 a 9, podemos salvar outros dois caracteres:

GolfScript, 28 caracteres

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

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

Javascript, 53 caracteres:

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

é uma expressão javascript avaliada como verdadeira se xfor um palíndromo e falsa se não for. Assume que xé uma string. Se isso não for garantido, adicione antesx+="",

Aqui está uma trilha de navegação: devido a como reverse()funciona,

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

falha. Contudo,

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

está perfeitamente bem.

R: 66

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

Uso:

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 caracteres

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

Isso leva a picada para verificar como primeiro parâmetro e define o código de saída como 0 para o palíndromo e 1 para não.

Exemplo de execução:

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 (sem contar a assinatura do método)

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

Um programa completo, com entrada e saída, pode ser escrito em 74 caracteres.

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

Exemplo de uso:

$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.txtcontém este palíndromo de 17.826 palavras)

Esta solução pode ser adaptada ao python 3, adicionando alguns caracteres:

Python 3: 55

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

JAVA (ou a linguagem mais detalhada de todos os tempos), 102 96 95 caracteres

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

Uso (com código não protegido):

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

Encurtado com a ajuda do comentarista abaixo

Mathematica 54 53

Um byte salvo graças ao CatsAreFluffy:

PalindromeQ@StringCases[ToUpperCase@#,WordCharacter]&

Para aqueles com versão 10.2 ou anterior:

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

Exemplo

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

Verdade

J, 30 caracteres

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

Uso:

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

Suprime todos os erros, retornando um padrão de 0b(false).

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

Exemplo:

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

edit: raspou mais três caracteres, evitando a variável intermediária. H / T, CS. -7: Não há necessidade de suprimir erros.

Ruby: 43 38 caracteres

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

Exemplo de execução:

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 informado), 100 (citado), 81

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

• Explora padrões de bits ASCII.
• Confia em um mal using namespace std;.
• Usa AND e OR bit a bit em vez dos operadores lógicos.

• Usa intporque é mais curto 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

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

Python 3/2 59 caracteres:

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

Haskell, 43

Usando as bibliotecas padrão Control.Monad, Control.Monad.Instancese Data.Char:

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

Caracteres PHP 60.

Primeira tentativa no codegolf.

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

Exemplo:

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

Caracteres Python 2 64:

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

Haskell 48

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

usado assim:

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

Smalltalk , Squeak / Pharo sabor
116 caracteres usando a formatação tradicional com guias

Você adiciona dois métodos ao String:

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

É claro que poderíamos eliminar alguns espaços ou usar nomes de métodos mais curtos, mas não vamos trair o espírito do Smalltalk.

Além disso, isso lidará com palíndromos franceses, como em http://fr.wikipedia.org/wiki/Liste_de_palindromes_fran%C3%A7ais , poucas respostas nesta página podem.

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

Python 3 (51 caracteres)

e pode ser Python 2

com base na solução abhiram (com golfe mais agressivo)

from re import findall

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

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

pode ser reduzido para 46 caracteres, usando RE '\ w'

e variante com corpo de função extremamente reduzido (27 caracteres)

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 caracteres

Atualizado (consulte os comentários) e pode remover os colchetes ao redor da regex:

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

Original (56)

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

Original sem golfe:

$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

Na verdade, esse código é realmente elegante e fácil de entender (quando formatado corretamente). Não acredito que seja possível diminuir o tempo em C ++ e ele não usa nenhuma função de biblioteca padrão.

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

Exemplo de uso:

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

Versão bem formatada:

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;

recebe entrada do primeiro argumento da linha de comando; imprime 1para cadeia de caracteres verdadeira e vazia para falsificação.

I18n é um pouco expansivo, pois não há alternativa multibyte para strrev(110 bytes; execute com -r):

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

utf8_strrev flagrantemente roubado do manual do PHP . Você também pode dar uma olhada nesta postagem do blog .

Ruby, 48

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

Muito simples, e feito às pressas para não jogar muito golfe. Vou jogar mais tarde.

Pylongolf2 , 24 bytes

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

cleva a entrada, ╨2para converter em minúsculas.
Em seguida, empurro um regex para a pilha e o uso -para remover todos os caracteres não alfabéticos da entrada.
_duplica a entrada.
╨1reverte e =depois os compara.
~imprime a pilha no final que imprime trueou false.

PowerShell, 194 190 bytes

Uma implementação recursiva para mostrar como um bloco de script do PowerShell sem nome pode se chamar.

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

testes:

&$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 (não concorrente)

Não concorrente , uma vez que o idioma pós o desafio. Código:

álÂQ

Explicação:

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

Usa a codificação CP-1252 . Experimente online! .

Gelatina, 10 caracteres (não-concorrente)

fØBŒl
UÇ⁼Ç

Retorna 1 se verdadeiro, 0 se falso

Experimente Online!