编写一个完整的程序以查找数字的二进制表示形式是否为回文式？

Sample Input
5

Sample Output
YES

YES如果二进制表示形式是回文，NO则打印。

Golfscript-22个字符

~2base.-1%="YES""NO"if

Python-46个字符

n=bin(input())[2:]
print'YNEOS'[n!=n[::-1]::2]

红宝石，41 39

$><<%w(YES NO)[(n="%b"%$*)<=>n.reverse]

感谢Michael Kohl的“％b”％get技巧。

C 84 81 74个字符

r;main(v,x){for(scanf("%d",&v),x=v;v;v/=2)r=r*2|v&1;puts(r-x?"NO":"YES");}

它不使用任何函数，例如反向字符串。

Javascript- 79 77个字符

alert((a=(prompt()*1).toString(2))-a.split("").reverse().join("")?"NO":"YES")

更多信息

prompt()*1 ：将字符串转换为数字的快速技巧。

.toString(2) ：这就是您在javascript中转换为二进制文件的方式。

a.split("").reverse().join("") ：没有反向字符串的本机支持，因此您必须将字符串转换为数组，并将数组转换为字符串。

("[part1]" - "[part 2]")?"YES":"NO"：-是一种替代!=，以节省1个字符。

PHP-41

<?=strrev($n=decbin(`cat`))==$n?@YES:@NO;

测试：

php 713.php <<< 5
YES
php 713.php <<< 6
NO

Perl，45个字符

$_=sprintf'%b',shift;
print reverse==$_?YES:NO

Ruby，43个字符

puts((n="%b"%gets)==n.reverse ? "YES":"NO")

Windows PowerShell，67

('NO','YES')[($a=[Convert]::ToString("$input",2))-eq-join$a[64..0]]

05AB1E，17 12字节（非竞争）

‘NO…Ü‘#EbÂQè

-5字节感谢Adnan。

在线尝试！

巨蟒（51）

n=bin(input())[2:]
print'YES'if n==n[::-1]else'NO'

佩尔（73）

没有字符串反向：

print f(split//,sprintf'%b',shift);
sub f{@_<=1?YES:shift!=pop()?NO:f(@_)}

Perl（127）

这个构造了所有回文数达2 ^ 32。

sub f{
    my($x,$l)=@_;
    $l+=2,f(($x<<$_)+1+(1<<$l-1),$l)?return 1:0 for 1..15-$l/2;
    $x-$ARGV[0]?0:1
}
print f(0,1)+f(0,0)+f(1,1)?YES:NO

Bash，55个字符

C=`dc<<<$1\ 2op`;[ $C = `rev<<<$C` ]&&echo YES||echo NO

J-33个字符

13 : ';(]-:|.)#:y{''YES'';''NO'''

J：24

((-:|.)#:x){2 3$'NO YES'

例如：

   ((-:|.)#:5){2 3$'NO YES'
YES
   ((-:|.)#:12){2 3$'NO YES'
NO
   ((-:|.)#:125){2 3$'NO YES'
NO
   ((-:|.)#:63){2 3$'NO YES'
YES

哈斯克尔（79）

0?k=n;n?k=div n 2?(n`mod`2+k*2);f x|x==x?0="YES"|True="No";main=interact$f.read

C（77字节）

r,t;main(n){for(t=n=atoi(gets(&n));n;r*=2,r|=n%2,n/=2);puts(r-t?"NO":"YES");}

测试

Pyth，18个字节

%2>"YNEOS"!qJ.BQ_J

同样是18个字节：

@,"NO""YES"qJ.BQ_J

PHP，不竞争

我想完全不使用字符串。

迭代解决方案，78字节

for($x=log($n=$argv[1],2);$i<$x&($n>>$i^$n>>$x-$i^1);$i++);echo$i<$x/2?NO:YES;

递归解决方案，113字节

function p($n,$x=0){return$n<2?$n:is_pal(($n&(1<<$x=log($n,2)/2)-1)^$n>>$x+!is_int($x));}echo p($argv[1])?YES:NO;

如果n是二元回文，则上半部分或下半部分也是二元回文，反之亦然。

来自fR0DDY的出色C答案的端口，58个字节

for($x=2*$v=$argv[1];$x/=2;$r=$r*2|$x&1);echo$r-$v?NO:YES;

二进制反向。哥伦布蛋。

视网膜，80 78字节（非竞争）

字节数假定为ISO 8859-1编码。

.+
$*
+`(1+)\1
${1}0
01
1
^((.)*?).??((?<-2>.)*$)
$1¶$3
O$^`.(?=.*¶)

^(.*)¶\1

在线尝试

转换为一元。将其转换为二进制。将数字切成两半，如果有中间数字，则将其删除。颠倒前半部分。如果两个相等，则匹配。

果冻，12个字节（无竞争）

BṚ⁼Bị“YES“NO

在线尝试！

说明：

BṚ⁼Bị“YES“NO Main link. Arguments: z.
B            Binary representation of z.
 Ṛ           Reversed.
   B         Binary representation of z.
  ⁼          Check if x is equal to y.
     “YES“NO [['Y', 'E', 'S'], ['N', 'O']]
    ị        xth element of y (1-indexed).

在打印之前，Python的str功能通过列表进行映射，然后将元素串联在一起，因此您将看到YES或NO。

Haxe，164个字节

Works only with system platforms (php, neko, cpp, etc.). Takes input through command line arguments.

class T{static function main(){var r:Dynamic=Std.parseInt(Sys.args()[0]);var s=r.toString(2);trace(s==[for(i in-s.length+1...1)s.charAt(-i)].join('')?"YES":"NO");}}

Matlab, 71 bytes

function paly(n)
v=de2bi(n);
if v==v(numel(v):-1:1)
'YES'
else
'NO'
end

Java, 97 85 characters

return Integer.toBinaryString(i).equals(new StringBuffer(s).reverse()+"")?"YES":"NO";

    String s=Integer.toBinaryString(i);
    return s.equals(new StringBuffer(s).reverse()+"")?"YES":"NO";