回文は、両方の前後に同じように綴られているいくつかの文字列です。たとえば、「エヴァ、洞窟でコウモリを刺すことはできますか？」は回文です（EVACANISTAB | BATSINACAVE）

このコードゴルフでは、選択した言語を使用して、特定の文字列が回文であるかどうかを判断します。

エッジケース：

• 句読点は回文にカウントされません。
• 制御キャラクターは回文性にカウントされません。
• ホワイトスペースは回文性にカウントされません。
• 数字は回文にカウントされます。
• この課題のケースは回文性にカウントされません。
• 選択する言語によって課されるものを除き、評価する文字列の長さに制限はありません。
• この課題では、ASCII文字セットに制限してください。

技術要件：

• メソッド本体のみが必要です。メソッドの署名、データ構造の宣言などの追加事項は、勝利の要件にはカウントされません。
• コードは、コンパイル時エラーまたは例外なしでコンパイルまたは解釈する必要があります。
• コードは未処理の例外やクラッシュをスローしてはなりません。（ほぼ言うまでもない。ほぼ。）
• コードは回文性を示す何らかの値を返さなければなりません。データ型は、使用する言語によって異なります（たとえば、C＃ユーザーはを使用するbool場合がありますが、JavaScriptユーザーはを使用できますvar）。
• このタスクを「ネイティブ」機能として実行する独自のインタープリターを作成して、ほぼ勝ち取ったスコアを「ゴルフ」することはできません。（言うまでもないことです。）

勝利条件：

• 文字の最短コードが勝ちです。

現在のリーダー：tmartin（k、25文字）

...によって魔法の緑のチェックマークをしたいあなたの答えは？この男の答えを打ち負かす！

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

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

$_回文がパリンドロームの場合は1に評価され""、そうでない場合はPerlの偽の値の1つに評価されます。

サンプル使用法：

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%\;。ハワードは関数の連結を寄付し、ピーターテイラーはモジュロ2のXORを寄付しました。基本的に、値が一連の範囲内にあるかどうかを比較する一般的な方法です。

{.96>32*-}%（11文字）は、実際にはJavaScript .toUpperCase()（14文字）の改善ではありません。特にz、ASCIIテーブルに続くいくつかの奇妙な句読点を混乱させるためです（ここでは関係ありません）。

ただし、Peter Taylorが提案したように、最初に英数字を除外すると、各文字に1ビットを設定するだけで小文字と数字に変換できます。 {32|}

.-1%=すべてのパリンドロームの重荷を持ち上げます。私があまり好きではない部分の1つは、配列を逆にする方法を見つけるのにどれくらい時間がかかったかです。私はドキュメントを読むべきでした。他の2つの文字は、スタック管理と比較を実行します。

テスト：http : //golfscript.apphb.com/?c=IkV2YSwgY2FuIEkgc3RhYiBiYXRzIGluIGEgY2F2ZT8iCgp7IjA6QVtheyJcez59KywsMiV9LHszMnx9JS4tMSU9

さらに、次の制御文字が存在しないと仮定できる場合：（データリンクエスケープ、デバイス制御1-4、否定応答、同期アイドル、送信ブロックの終了、キャンセル、メディアの終了）（これらはすべて同意しますすべてかなりわかりにくい）または数字0〜9の大文字バージョンとして扱うことができる場合は、さらに2文字を保存できます。

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

は、x回文である場合はtrue、そうでない場合はfalseに評価されるJavaScript式です。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                                         

（この 17,826語の回文をhuge_palindrome.txt含む）

このソリューションは、いくつかの文字を追加する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のおかげで1バイト節約できました。

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

編集：中間変数を回避することにより、さらに3文字削りました。H / T、CS。-7：エラーを抑制する必要はありません。

ルビー：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より短いために使用します。charauto

  #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])

ハスケル、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文字

2つのメソッドを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の場合もあります

アビラムソリューションに基づく（より積極的なゴルフ）

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;

最初のコマンドライン引数から入力を受け取ります。プリント1truthyため、falsy空の文字列。

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マニュアルから露骨に盗まれました。あなたも見てみたいかもしれませんこのブログ投稿もご覧ください。

ルビー、48

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

非常にシンプルで、急いで作ったので、あまりゴルフはしません。あとでゴルフします。

Pylongolf2、24バイト

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

c入力を受け取り、╨2小文字に変換します。
次に、正規表現をスタックにプッシュ-し、入力からアルファベット以外の文字をすべて削除するために使用します。
_入力を複製します。
╨1逆にして=から比較します。またはの
~いずれかを出力するスタックを最後に出力します。 truefalse

パワーシェル、 194 190バイト

名前のない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を返します

オンラインでお試しください！