Scrivi un programma completo per scoprire se la rappresentazione binaria di un numero è palindromo o no?

Sample Input
5

Sample Output
YES

Stampa YESse la rappresentazione binaria è palindromo e NOnon.

Golfscript - 22 caratteri

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

Python - 46 caratteri

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

Ruby, 41 39

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

Grazie a "% b"% di Michael Kohl il trucco si fa.

C 84 81 74 personaggi

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

Non utilizza alcuna funzione come l'inverso della stringa.

Javascript - 79 77 caratteri

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

Maggiori informazioni

prompt()*1 : Trucco rapido per convertire la stringa in numero.

.toString(2) : Ecco come convertire in binario in javascript.

a.split("").reverse().join("") : Non esiste alcun supporto nativo per invertire la stringa, quindi è necessario convertire la stringa in array e array in string.

("[part1]" - "[part 2]")?"YES":"NO": -è un sostituto per !=salvare 1 carattere.

PHP - 41

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

Test:

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

Perl, 45 caratteri

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

Rubino, 43 caratteri

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 byte (non concorrenti)

‘NO…Ü‘#EbÂQè

-5 byte grazie ad Adnan.

Provalo online!

Python (51)

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

Perl (73)

Nessuna stringa inversa:

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

Perl (127)

Questo costruisce tutti i palindromi fino a 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 caratteri

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

J - 33 caratteri

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

J: 24

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

per esempio:

   ((-:|.)#: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 byte)

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

TEST

Pyth, 18 byte

%2>"YNEOS"!qJ.BQ_J

Anche 18 byte:

@,"NO""YES"qJ.BQ_J

PHP, non in competizione

Volevo farlo senza usare affatto le stringhe.

soluzione iterativa, 78 byte

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

soluzione ricorsiva, 113 byte

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è un palindromo binario, la metà superiore xo la metà inferiore è anche un palindromo binario e viceversa.

una porta della risposta C eccellente da fR0DDY , 58 byte

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

un rovescio binario. Uovo di Colombo.

Retina , 80 78 byte (non concorrenti)

Il conteggio dei byte presuppone la codifica ISO 8859-1.

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

^(.*)¶\1

Provalo online

Converti in unario. Converti quello in binario. Taglia il numero a metà e rimuovi una cifra centrale se ce n'è una. Invertire la prima metà. Abbina se entrambe le metà sono uguali.

Gelatina , 12 byte (non competitiva)

BṚ⁼Bị“YES“NO

Provalo online!

Spiegazione:

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

Prima di stampare, la strfunzione di Python viene mappata attraverso un elenco, quindi gli elementi vengono concatenati, in modo da vedere YESo NO.

Haxe, 164 byte

Funziona solo con piattaforme di sistema (php, neko, cpp, ecc.). Accetta input tramite argomenti della riga di 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 byte

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

Java, 97 85 caratteri

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";