Viết một chương trình đầy đủ để tìm xem biểu diễn nhị phân của một số có phải là palindrom hay không?

Sample Input
5

Sample Output
YES

In YESnếu đại diện nhị phân là palindrom và NOcách khác.

Golfscript - 22 ký tự

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

Python - 46 ký tự

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

Ruby, 41 39

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

Nhờ "% b"% của Michael Kohl bị lừa.

C 84 81 74 Nhân vật

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

Nó không sử dụng bất kỳ chức năng như chuỗi ngược.

Javascript - 79 77 ký tự

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

Thêm thông tin

prompt()*1 : Thủ thuật nhanh để chuyển đổi chuỗi thành số.

.toString(2) : Đó là cách bạn chuyển đổi thành nhị phân trong javascript.

a.split("").reverse().join("") : Không có hỗ trợ riêng để đảo ngược chuỗi, vì vậy bạn phải chuyển đổi chuỗi thành mảng và mảng thành chuỗi.

("[part1]" - "[part 2]")?"YES":"NO": -là sự thay thế !=để tiết kiệm 1 char.

PHP - 41

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

Kiểm tra:

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

Perl, 45 ký tự

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

Ruby, 43 ký tự

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 (không cạnh tranh)

‘NO…Ü‘#EbÂQè

-5 byte nhờ Adnan.

Hãy thử trực tuyến!

Con trăn (51)

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

Perl (73)

Không có chuỗi đảo ngược:

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

Perl (127)

Điều này xây dựng tất cả các palindromes lên đến 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 ký tự

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

J - 33 ký tự

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

J: 24

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

ví dụ:

   ((-:|.)#: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");}

KIỂM TRA

Bình thường, 18 byte

%2>"YNEOS"!qJ.BQ_J

Ngoài ra 18 byte:

@,"NO""YES"qJ.BQ_J

PHP, không cạnh tranh

Tôi muốn làm điều đó mà không sử dụng chuỗi nào cả.

giải pháp lặp lại, 78 byte

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

giải pháp đệ quy, 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;

Nếu nlà một palindrom nhị phân, nửa trên xor nửa dưới cũng là một palindrom nhị phân và ngược lại.

một cổng của câu trả lời C xuất sắc từ fR0DDY , 58 byte

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

một đảo ngược nhị phân. Trứng Columbus Columbus.

Retina , 80 78 byte (không cạnh tranh)

Số lượng byte giả định mã hóa ISO 8859-1.

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

^(.*)¶\1

Dùng thử trực tuyến

Chuyển đổi sang unary. Chuyển đổi nó thành nhị phân. Cắt một nửa số và loại bỏ một chữ số ở giữa nếu có. Đảo ngược nửa đầu. Khớp nếu cả hai nửa bằng nhau.

Jelly , 12 byte (không cạnh tranh)

BṚ⁼Bị“YES“NO

Hãy thử trực tuyến!

Giải trình:

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

Trước khi in, strchức năng của Python được ánh xạ qua một danh sách và sau đó các phần tử được nối với nhau, do đó bạn nhìn thấy YEShoặc NO.

Haxe, 164 byte

Chỉ hoạt động với các nền tảng hệ thống (php, neko, cpp, v.v.). Đưa đầu vào thông qua các đối số dòng lệnh.

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 ký tự

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

    Chuỗi s = Integer.toBinaryString (i);
    return s.equals (StringBuffer mới (s) .reverse () + "")? "CÓ": "KHÔNG";