一个回文是一些字符串既前后拼写相同。例如，“伊娃，我可以在山洞里刺蝙蝠吗？” 是回文（EVACANISTAB | BATSINACAVE）

对于此代码高尔夫球，使用您选择的语言，确定给定的字符串是否是回文。

边缘案例：

• 标点不算为回文症。
• 控制字符不计入回文。
• 空格不计入回文错误。
• 数字计入回文错误。
• 此挑战中的案例不计入回文症。
• 除您选择的语言所施加的限制外，要评估的字符串的长度没有限制。
• 对于此挑战，请将自己限制为ASCII字符集。

技术要求：

• 仅需要方法主体；方法签名，数据结构声明等其他内容不计入胜诉要求。
• 代码必须在编译或解释时没有编译时错误或异常。
• 代码不得抛出任何未处理的异常或崩溃。（几乎不用说。几乎。）
• 代码必须返回一些指示回文的值。数据类型取决于您使用的语言（例如C＃用户可能使用bool，而JavaScript用户可能使用var。）
• 您可能不会编写自己的解释程序来以“本机”功能执行此任务，因此您可以“推销”接近获胜的分数。（希望不用多说。）

胜利条件：

• 以字符中最短的代码为准。

现任领导人：tmartin（k，25个字符）

... 您的答案是否想要神奇的绿色复选标记？打败这个家伙的答案！

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个字符

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

如果$_是回文，则计算为1；如果不是，则计算""为Perl的假值之一。

用法示例：

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__

输出：

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 :)

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

无法抗拒用我最喜欢的语言编写无样板程序的诱惑。

可在此处进行测试：http : //ideone.com/8bwz7z

GolfScript， 36 34 31 30个字符

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

与我以前的（Javascript）解决方案类似的算法。

0"0:A[a{"@{>^}+/-由Peter Taylor和Howard优化。我的版本是"/9@Z"{1$<},,2%\;。霍华德捐赠了函数级联，彼得·泰勒捐赠了XOR模2。基本上，这是比较值是否在一系列范围内的通用方法。

{.96>32*-}%（11个字符）并不是对Javascript .toUpperCase()（14个字符）的真正改进，特别是因为它破坏z了ASCII表中的一些奇怪的标点符号（此处无关紧要）。

正如彼得·泰勒（Peter Taylor）的建议，但是，如果我们首先过滤掉字母数字，那么只需在每个字符中设置一位就可以转换为小写和数字： {32|}

.-1%=完成所有回文的繁重任务。我不真正喜欢的一部分是我花了多长时间才发现如何反转数组。我应该已经阅读了文档。另外两个字符执行堆栈管理和比较。

测试：http：//golfscript.apphb.com/？c = IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEgY2F2ZT8iCgp7IjA6QVtheyJcez59KywsMiV9LHszMnx9JS4tMSU9

此外，如果我可以假定不存在以下任何控制字符：（数据链接转义，设备控制1-4，否定应答，同步空闲，传输块结束，取消，介质结束）（我们都同意这些是都不太清晰），或者如果我可以将它们视为数字0-9的大写形式，我们可以保存另外两个字符：

GolfScript，28个字符

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

测试：http：//golfscript.apphb.com/？c = IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEgY2F2ZT8iCgp7MzJ8fSV7MCIwOmF7IkB7Pl59Ky99LC4tMSU9

Javascript，53个字符：

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

是一个JavaScript表达式，如果x是回文，则计算结果为true，否则为false。它假定x是一个字符串。如果不能保证，请添加x+="",

这是一个面包屑：由于reverse()工作原理，

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

失败。然而，

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

很好。

R：66

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

用法：

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

重击：52 48 46个字符

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

这将检查字符串作为第一个参数，并将回文码的退出代码设置为0，否则将退出代码设置为1。

样品运行：

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（不计算方法签名）

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

带有输入和输出的完整程序可以用74个字符编写。

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

用法示例：

$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.txt包含此 17,826字回文）

此解决方案可以适应python 3添加一些字符：

的Python 3:55

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

JAVA（或迄今为止最冗长的语言）， 102 96 95个字符

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

用法（带有未编码的代码）：

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

在以下评论者的帮助下缩短了

Mathematica 54 53

多亏了CatsAreFluffy，节省了一个字节：

PalindromeQ@StringCases[ToUpperCase@#,WordCharacter]&

对于版本10.2或更早版本的用户：

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

例

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

真正

J，30个字符

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

用法：

   */(=|.)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个字符）

禁止所有错误，返回默认值0b（false）。

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

例：

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

编辑：通过避免中间变量，剃了另外三个字符。H / T，CS。-7：无需排除错误。

Ruby：43个 38个字符

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

样品运行：

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 （错误）， 100 （误报）81

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

• 利用ASCII位模式。
• 依靠邪恶using namespace std;。
• 使用按位AND和OR代替逻辑运算符。

• 用途，int因为它比char或短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;
  }
  

卢阿（56岁）

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

Python 3/2 59个字符：

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

Haskell，43岁

使用标准库Control.Monad，Control.Monad.Instances以及Data.Char：

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

PHP 60个字符。

首先尝试使用codegolf。

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

例：

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

Python 2 64个字符：

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

哈斯克尔48

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

像这样使用：

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

Smalltalk，Squeak / Pharo风味
116个字符，使用带有制表符的传统格式

您将两个方法添加到String：

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

我们当然可以消除一些空格，或者使用较短的方法名称，但是我们不要背叛Smalltalk的精神。

此外，这将处理法国回文，例如http://fr.wikipedia.org/wiki/Liste_de_palindromes_fran%C3%A7ais，此页面中没有很多答案。

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

Python 3（51个字符）

可能是Python 2

基于abhiram解决方案（高尔夫运动更加积极）

from re import findall

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

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

可以使用RE'\ w'缩短为46个字符

和功能主体大大缩短的变体（27个字符）

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个字符

已更新（请参阅评论），并且可以删除正则表达式周围的括号：

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

原创（56）

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

原始的非高尔夫：

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

C ++，74个字节

该代码实际上非常优雅，并且易于理解（格式正确时）。我不相信在C ++中有可能变得更短，并且它不使用任何标准库函数。

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

用法示例：

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

格式良好的版本：

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字节

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

从第一个命令行参数获取输入；打印1为真，打印为空字符串，为假。

I18n有点小，因为strrev（110字节；运行-r）没有多字节替代：

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

utf8_strrev 从PHP手册中被公然盗窃。您可能还想看看此博客文章。

Ruby，48岁

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

很简单，草草做得很快，所以不要打太多球。我待会再打高尔夫球。

Pylongolf2，24个字节

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

c接受输入，╨2将其转换为小写。
然后，我将一个正则表达式压入堆栈，并用于-删除输入中的所有非字母字符。
_复制输入。
╨1反转它，=然后比较它们。
~在最后打印堆栈，然后打印true或false。

PowerShell，194字节

递归实现，以显示未命名的PowerShell脚本块如何调用自身。

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

松散

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

测试：

&$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个字节（非竞争）

禁止竞争，因为该语言推迟了挑战。码：

álÂQ

说明：

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

使用CP-1252编码。在线尝试！。

果冻，10个字符（不竞争）

fØBŒl
UÇ⁼Ç

如果为true，则返回1；如果为false，则返回0

在线尝试！