Escreva um programa completo para descobrir se a representação binária de um número é palíndromo ou não?

Sample Input
5

Sample Output
YES

Imprima YESse a representação binária for palíndromo ou NOnão.

Golfscript - 22 caracteres

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

Python - 46 caracteres

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

Ruby, 41 39

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

Graças ao "% b"% de Michael Kohl, o truque.

C 84 81 74 Caracteres

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

Ele não usa nenhuma função como string reverse.

Javascript - 79 77 caracteres

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

Mais Informações

prompt()*1 : Truque rápido para converter string em número.

.toString(2) : É assim que você converte para binário em javascript.

a.split("").reverse().join("") : Não há suporte nativo para reverter a sequência, portanto, você deve converter a sequência em matriz e a matriz em sequência.

("[part1]" - "[part 2]")?"YES":"NO": -é um substituto para !=salvar 1 caractere.

PHP - 41

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

Teste:

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

Perl, 45 caracteres

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

Ruby, 43 caracteres

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

‘NO…Ü‘#EbÂQè

-5 bytes graças a Adnan.

Experimente online!

Python (51)

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

Perl (73)

Sem seqüência reversa:

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

Perl (127)

Este constrói todos os palíndromos até 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 caracteres

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

J - 33 caracteres

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

J: 24

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

por exemplo:

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

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

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

TESTE

Pitão, 18 bytes

%2>"YNEOS"!qJ.BQ_J

Também 18 bytes:

@,"NO""YES"qJ.BQ_J

PHP, não competindo

Eu queria fazer isso sem usar strings.

solução iterativa, 78 bytes

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

solução recursiva, 113 bytes

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;

Se né um palíndromo binário, a metade superior ou a metade inferior também é um palíndromo binário e vice-versa.

uma porta da excelente resposta C de fR0DDY , 58 bytes

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

um reverso binário. Ovo de Colombo.

Retina , 80 78 bytes (não concorrente)

A contagem de bytes assume a codificação ISO 8859-1.

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

^(.*)¶\1

Experimente online

Converta para unário. Converta isso em binário. Corte o número ao meio e remova um dígito do meio, se houver um. Inverta a primeira metade. Combine se as duas metades forem iguais.

Gelatina , 12 bytes (não concorrente)

BṚ⁼Bị“YES“NO

Experimente online!

Explicação:

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

Antes de imprimir, a strfunção do Python é mapeada através de uma lista e os elementos são concatenados, para que você veja YESou NO.

Haxe, 164 bytes

Funciona apenas com plataformas de sistema (php, neko, cpp, etc.). Recebe entrada através de argumentos de linha de comando.

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 caracteres

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

    String s = Integer.toBinaryString (i);
    return s.equals (new StringBuffer (s) .reverse () + "")? "SIM": "NÃO";