文字列が回文的であるかどうかをテストするプログラムを作成し、プログラム自体が回文的であるという条件を追加します。

ルビー

z=gets;puts *z.reverse==z&&1||0||1&&z==esrever.z* stup;steg=z

入力が回文である場合は1を出力し、そうでない場合は0を出力します。改行なしで入力します。

コメントを使用せず、代わりに2つのトリックを使用します。

• 短絡することは：0本当っぽいは、Rubyである（のみnilとfalsefalseと評価）、それほど1&&z==esrever.z* stup評価されていないため、実行時例外を上げることができません
• splat / multiplication operator（*）：の構文エラーを回避するためにz=esrever.z stup、をz=esrever.z()*stup追加することにより、パーサーにこれを解析させます*。一方、*はsplat演算子として解析され、関数呼び出しで配列を一連のパラメーターに分割します。配列の代わりに要素が1つだけの場合、基本的には何も行われないため、puts *fooと同等puts fooです。

コメントを使用した明らかな解決策（true / falseを出力）：

puts gets.reverse==$_#_$==esrever.steg stup

コメントなしのPython

"a\";w=]1-::[w trinp;)(tupni_war=w;";w=raw_input();print w[::-1]==w;"\a"

誰もまだそのトリックを見つけていないことに驚いています。ほとんどの言語で動作するはずです！

Perl

perl -nle "$s=$_ eq+reverse;print$s;s$tnirp;esrever+qe _$=s$"

コメントのトリックはなく、置換演算子を巧妙に乱用しているだけです（perl変数は$で始まっているので、何ですか？）

Python 2.7

s=raw_input();print'YNEOS'[s!=s[::-1]::2]#]2::]1-::[s=!s['SOENY'tnirp;)(tupni_war=s

C

#include <stdio.h>                   //
#include <string.h>                  //
int main() {                         //
  char str[1024];                    //
  fgets(str, sizeof(str), stdin);    //
  int i = 0, j = strlen(str) - 2;    //
  for (; i < j; i++, j--)            //
    if (str[i] != str[j]) {          //
      printf("no\n");                //
      return 0;                      //
    }                                //
  printf("yes\n");                   //
}                                    //
//                                    }
//                   ;)"n\sey"(ftnirp  
//                                }    
//                      ;0 nruter      
//                ;)"n\on"(ftnirp      
//          { )]j[rts =! ]i[rts( fi    
//            )--j ,++i ;j < i ;( rof  
//    ;2 - )rts(nelrts = j ,0 = i tni  
//    ;)nidts ,)rts(foezis ,rts(stegf  
//                    ;]4201[rts rahc  
//                         { )(niam tni
//                  >h.gnirts< edulcni#
//                   >h.oidts< edulcni#

実行例：

$ gcc -std=c99 c.c && ./a.out 
blahalb
yes

Golfscript

.-1%=#=%1-.

• コメントトリックだけで
• 最後に\ nなしの入力
• 文字ごとに一致する文字を実行します（句読点でも）
• 成功の場合は1、失敗の場合は0を返します

PHP

echo strrev($z)==$z;#;z$==)z$(verrts ohce

事実：

• $z string、チェックする入力文字列
• $tブール、入力文字列$zが回文の場合はTRUE 、そうでない場合はFALSE
• コメントを使用して、コードの回文を作成します。
• 出力 $t
• ソース自体は回文です

PHPでパリンドロームパリンドロームチェッカーを実装できない理由は、PHP変数の名前がで始まるため$です。$PHPで識別子名を終了することはできません。

PHP

<?php eval/*/*/(';{$i=fgets(STDIN,2e9);};{$a="strrev";}{var_dump("{$i}"=="{$a($i)}");}/*}{*\{;("{(tupni$)a$}"=="{putni$}")ohce}{;"verrts"==a$};{;(9e2,NIDTS)stegf=i$);');/*\*\eval php?>

$問題を回避するためにいくつかの奇妙なトリックを使用します。技術的には、私が;最後に忍び込まなければならなかったパリンドロームではありません。

 <?php $i = fgets(STDIN,2e9); echo $i == strrev($i);/*\;(i$)verrts == i$ ohce ;(9e2, NIDTS)stegf = $i php?>

これは、PHPの/* */コメントと、コメントの終わりを必要としないという事実を使用する実用的なものです。

CoffeeScript

私は実際には、「split」、「reverse」、および「join」の逆スペルに苦労しました：\

p=(s)->s.split('').reverse().join('')==s#s==)''(nioj.)(esrever.)''(tilps.s>-)s(=p

グルーヴィー

print args[0]==args[0].reverse()?1:0//0:1?)(esrever.]0[sgra==]0[sgra tnirp

Python 3、55バイト

コメントを使用しますが、コメントを使用する他のPythonよりも短いです。

s=input();print(s==s[::-1])#)]1-::[s==s(tnirp;)(tupni=s

ファジーオクトワカモレ、17バイト

^Cz.=i_;@;_i=.zC^

_{勝利がどのように定義されているかは正確にはわかりませんが、バイトカウントを上に上げました。}

^ 入力を取得し、それを最初のスタックにプッシュします。

C 最初のスタックを2番目にスタックします。

z スタックの先頭を逆にして、「as」が「sa」になるようにします。

. アクティブスタックをシフトするため、アクティブスタックには入力があり、非アクティブスタックには入力が反転します。

=等しいかどうかをチェックし、等しいかどうかを返し0ます。

i反転のToSは、そう0なっ1て、何か他のものはかなりなりFalse。

_一時変数をポップして設定し、;印刷します。

@プログラムを手動で終了するため、反転した部分にヒットしません。これにより回文が作成されます。

Javascript

function a(b){return b==b.split('').reverse().join('')}//})''(nioj.)(esrever.)''(tilps.b==b nruter{)b(a noitcnuf

コメントなしでそれを行うのは難しい...