Cảnh báo: đây KHÔNG phải là "hey, chúng ta hãy vẽ một chiếc bánh trong thử thách nghệ thuật ASCII"! Hãy tiếp tục đọc;)

Một thời gian trước đây là sinh nhật của tôi, bây giờ tôi 33 tuổi.

Vì vậy, có truyền thống xã hội vụng về này bao gồm mời gia đình và bạn bè, đặt nến - giống như nến trên bánh, hát những bài hát và mở quà.

   33   
--------

Thay vì số, tôi có thể sử dụng hệ thống nhị phân để đặt nến tiêu chuẩn: Tôi đặt 6 cái trên bánh và thắp hai cái.

 100001
--------

Tôi có thể thấy rằng cả số thập phân và số nhị phân ở độ tuổi của tôi đều là palindromic!

Thử thách

Tôi muốn biết nếu có bất kỳ số nào khác có thể được đặt trên một chiếc bánh với nến và được palindromic, thập phân và nhị phân.

Viết chương trình / hàm để kiểm tra xem một số có phải là palindromic ở cả thập phân và nhị phân hay không. Nhưng chờ đã, còn nhiều thứ nữa: trong số nhị phân, số không đứng đầu cho bài kiểm tra!

Đầu vào

Một số thập phân x mà tôi muốn kiểm tra nếu đó là ngày sinh nhật với 0 <x <2 ³² -1 (vâng, những người trong chiều của tôi sống rất lâu)

Đầu ra

Thật ra nếu nó đáp ứng chính xác hai điều kiện này, Falsey khác:

• Biểu diễn thập phân của số là một bảng màu tiêu chuẩn
• Biểu diễn nhị phân của số là một bảng màu tiêu chuẩn và việc thêm các số 0 đứng đầu có thể giúp với điều này

Các trường hợp thử nghiệm

1 > 1 => Truthy
6 > 110 (0110) => Truthy
9 > 1001 => Truthy
10 > 1010 (01010) => Falsey, 10 is not palindromic
12 => 1100 (001100) => Falsey, 12 is not palindromic
13 => 1101 (...01101) => Falsey, neither 13 nor 1101 are palindromic
14 => 1110 (01110) => Falsey, 14 is not palindromic
33 > 100001 => Truthy
44 > 101100 (..0101100) => Falsey, 101100 is not palindromic
1342177280 > 1010000000000000000000000000000 (00000000000000000000000000001010000000000000000000000000000) => Falsey, 1342177280 is not palindromic (but the binary representation is)
297515792 > 10001101110111011101100010000 (000010001101110111011101100010000) => Truthy

Quy tắc

• Các sơ hở tiêu chuẩn không được phép
• Chuyển đổi và kiểm tra thư viện tích hợp được cho phép
• Đây là code-golf , mã thắng ngắn nhất!

Chúc may mắn, và cuối cùng chúc mừng sinh nhật!

05AB1E , 7 byte

b0Ü‚DíQ

Hãy thử trực tuyến! hoặc như một bộ thử nghiệm

Giải trình

b         # convert input to binary
 0Ü       # remove trailing zeroes
   ‚      # pair with input
    D     # duplicate
     í    # reverse each (in the copy)
      Q   # check for equality

Python 3 , 59 byte

lambda a:all(c==c[::-1]for c in[str(a),bin(a).strip('0b')])

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

-3 byte nhờ Rod
-3 byte nhờ Connor Johnston

JavaScript (ES6), 65 byte

Trả về 0hoặc 1.

n=>(g=b=>[...s=n.toString(b)].reverse().join``==s)()&g(2,n/=n&-n)

Làm sao?

Hàm trợ giúp g () lấy một số nguyên b làm đầu vào và kiểm tra xem n có phải là một palindrom trong cơ sở b không . Nếu b không được chỉ định, nó chỉ chuyển đổi n thành một chuỗi trước khi kiểm tra nó.

Chúng ta loại bỏ các số 0 ở cuối trong biểu diễn nhị phân của n bằng cách tách 1 ít có ý nghĩa nhất với n&-nvà chia n cho số lượng kết quả.

Sự thật thú vị: đó là sự thật 0vì (0/0).toString(2)bằng "NaN", đó là một bảng màu. (Nhưng 0dù sao cũng không phải là một đầu vào hợp lệ.)

Các trường hợp thử nghiệm

let f =

n=>(g=b=>[...s=n.toString(b)].reverse().join``==s)()&g(2,n/=n&-n)

console.log(f(1 )) // Truthy
console.log(f(6 )) // Truthy
console.log(f(9 )) // Truthy
console.log(f(10)) // Falsey
console.log(f(12)) // Falsey
console.log(f(13)) // Falsey
console.log(f(14)) // Falsey
console.log(f(33)) // Truthy
console.log(f(44)) // Falsey

Toán học, 52 49 byte

i=IntegerReverse;i@#==#&&!i[#,2,Range@#]~FreeQ~#&

Dùng thử trên Wolfram Sandbox

Sử dụng

f = (i=IntegerReverse;i@#==#&&!i[#,2,Range@#]~FreeQ~#&);

f[6]

True

f /@ {9, 14, 33, 44}

{True, False, True, False}

Giải trình

i=IntegerReverse;i@#==#&&!i[#,2,Range@#]~FreeQ~#&

i=IntegerReverse                                   (* Set i to the integer reversing function. *)
                 i@#==#                            (* Check whether the input reversed is equal to input. *)
                       &&                          (* Logical AND *)
                          i[#,2,Range@#]           (* Generate the binary-reversed versions of input, whose lengths *)
                                                   (* (in binary) are `{1..<input>}` *) 
                                                   (* trim or pad 0s to match length *)
                                        ~FreeQ~#   (* Check whether the result is free of the original input *)
                         !                         (* Logical NOT *)

Phiên bản dựng sẵn PalindromeQ

PalindromeQ@#&&!IntegerReverse[#,2,Range@#]~FreeQ~#&

Pyth - 13 byte

&_I.s.BQ`Z_I`

Phòng thử nghiệm .

Japt , 14 byte

s ꬩ¢w n2 ¤ê¬

Kiểm tra nó trực tuyến!

Giải trình

 s ê¬ © ¢   w n2 ¤  ê¬
Us êq &&Us2 w n2 s2 êq   Ungolfed
                         Implicit: U = input integer
Us êq                    Convert U to a string and check if it's a palindrome.
        Us2 w            Convert U to binary and reverse. 
              n2 s2      Convert to a number, then back to binary, to remove extra 0s.
                    êq   Check if this is a palindrome.
      &&                 Return whether both of these conditions were met.

Proton , 57 byte

a=>(b=c=>c==c[to by-1])(str(a))*b(bin(a)[2to].strip('0'))

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

APL, 27 31 byte

∧/(⌽≡⊢)∘⍕¨{⍵,⊂{⍵/⍨∨\⍵}⌽2⊥⍣¯1⊢⍵}

Nó hoạt động thế nào Sử dụng 6 làm đối số ...

      2⊥⍣¯1⊢6 ⍝ get the bit representation
1 1 0

      ⌽2⊥⍣¯1⊢6 ⍝ reverse it (if it's a palindrome, it doesn't matter)
0 1 1

      {⍵/⍨∨\⍵}⌽2⊥⍣¯1⊢6 ⍝ drop off the trailing (now leading 0's)
1 1

      6,⊂{⍵/⍨∨\⍵}⌽2⊥⍣¯1⊢6 ⍝ enclose and concatenate the bits to the original number
┌─┬───┐
│6│1 1│
└─┴───┘

      (⌽≡⊢)∘⍕ ⍝ is a composition of
      ⍕ ⍝ convert to string and 
      (⌽≡⊢) ⍝ palindrome test

      (⌽≡⊢)∘⍕¨6,⊂{⍵/⍨∨\⍵}⌽2⊥⍣¯1⊢6 ⍝ apply it to each of the original argument and the bit representation
  1 1

      ∧/(⌽≡⊢)∘⍕¨6,⊂{⍵/⍨∨\⍵}⌽2⊥⍣¯1⊢6  ⍝ ∧/ tests for all 1's (truth)
  1

Dùng thử trên TryAPL.org

Thạch , 8 byte

Bt0ŒḂaŒḂ

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

Brachylog , 7 byte

↔?ḃc↔.↔

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

Đó là rất nhiều ↔'s'

Giải trình

Với đầu vào và đầu ra ngầm định, mã là: ?↔?ḃc↔.↔.

?↔?        The Input is a palindrome
   ḃ       Convert it to the list of its digits in binary
    c      Concatenate it into an integer
     ↔     Reverse it: this causes to remove the trailing 0's
      .↔.  The resulting number is also a palindrome

APL (Dyalog Classic) , 26 byte

{≡∘⌽⍨⍕⍵,⍵,⍨(<\⊂⊢)⌽2⊥⍣¯1⊢⍵}

Giải trình

                  2⊥⍣¯1⊢⍵  encode ⍵ as binary
                 ⌽         reverse
           (<\⊂⊢)          partition from first 1
      ⍵,⍵,⍨                prepend and append ⍵
    ⍕                     turn into text string
≡∘⌽⍨                       match text with its reverse (f⍨X is XfX, where f is a composed function that reverses its right argument and matches with left)

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

Perl, 53 +3 (-pal) byte

$_=sprintf"%b",$_;s/0+$//;$_="$_/@F"eq reverse"@F/$_"

thử trực tuyến

Pyt , 10 byte

Trả về [1] nếu đúng, [0] nếu sai

ĐɓƖ₫áĐ₫=ʁ∧

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

Giải trình:

              Implicit input
Đ             Duplicate input
ɓ             Get input in binary (as string)
Ɩ             Cast to integer
₫             Reverse the digits (this removes any trailing zeroes)
á             Push the stack into a list
Đ             Duplicate the list
₫             Reverse the digits of each element of the list
=             Are the two lists equal element-wise
ʁ∧            Reduce the list by bitwise AND

Võng mạc , 72 byte

.+
$*_;$&
+`(_+)\1
$+0
0_
_
0+;
;
+`\b(\w)((\w*)\1)?\b
$3
(\B;\B)|.*
$.1

Hãy thử trực tuyến! Liên kết bao gồm các trường hợp thử nghiệm. Hoạt động bằng cách tạo một bản sao đơn nhất của số gốc, nhưng sử dụng _s để nó không bị nhầm lẫn bởi ví dụ: đầu vào của 11. Số unary sau đó được chuyển đổi thành "nhị phân" và các số 0 ở cuối. Palindromes sau đó được cắt ngắn liên tiếp và giai đoạn cuối thử nghiệm xem liệu còn gì không.

Toán học, 70 byte

(P=PalindromeQ)[PadRight[#~IntegerDigits~2,#~IntegerExponent~2]]&&P@#&

Husk , 14 byte

¤&S=↔ȯ↓=0↔ḋ⁰d⁰

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

Ungolfed / Giải thích

             d⁰  -- digits of input in decimal
          ḋ⁰)    -- digits of input in binary
         ↔       --   reverse
     (↓=0        --   and drop all leading zeros
¤&               -- test the two lists if
  S=↔            --   they're equal to their own reverse

Gaia , 10 byte

ṙṭ@ḍ2⁻Πbṭ∧

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

Giải trình

Thay vì kiểm tra các số 0 đứng đầu trong hệ nhị phân, tôi kiểm tra mà không có các số 0 ở cuối.

ṙ           String representation of number
 ṭ          Is palindromic?
  @         Push input again
   ḍ        Prime factors
    2⁻      Remove all 2s
      Π     Product
       b    Convert to binary
        ṭ   Is palindromic?
         ∧  Logical and

C (gcc) , 105 byte

r(n,b){int s=0,c=n;for(;n;n/=b)s=s*b+n%b;return s==c;}
c;f(n){for(c=n;c%2<1;c/=2);return r(n,10)&r(c,2);}

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

C # (.NET Core) , 130 129 179 173 + 23 byte

một vài điều, cảm ơn Ed Marty vì đã chỉ ra rằng tôi cần kiểm tra xem có bao nhiêu số 0 ở phía trước cho một bảng màu. Và tôi cần đảm bảo rằng tôi có thể kiểm tra tới x ^ ³² -1.

x=>{var a=Convert.ToString(x,2);var b=x+"";Func<string,bool>p=z=>z.SequenceEqual(z.Reverse());return new int[a.Length].Select((_,z)=>p(new string('0',z)+a)).Any(z=>z)&p(b);}

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

Python 2 , 56 byte

lambda n:all(s==s[::-1]for s in(`n`,bin(n).strip("0b")))

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

Sử dụng stripphương thức của Python để loại bỏ các số bin(..)0 ở đầu số đầu ra 0b và số nhị phân (vì chúng sẽ luôn có một bit trùng khớp).

Bình thường , 25 22 19 18 17 byte

- 3 6 7 8 byte bằng cách học thêm ngôn ngữ

Ks_.Bsz&_IzqKs_`K

Giải trình:

Ks        Set K to the integer version of...
 _.BsJ    Reverse string of the binary input
&         And
 _Iz      Is the input equal to the reverse of itself?
 qKs_`K   Is K equal to int(the reverse of basically string(K))

Tôi chắc chắn rằng điều này có thể được đánh golf xuống, tôi sẽ làm việc trên đó.

Phòng thử nghiệm

PHP, 69 + 1 byte

$q=trim(decbin($p=$argn),0);if(strrev($p)==$p&&strrev($q)==$q)echo$p;

Chạy như đường ống với -nR
Echoes đầu vào ban đầu cho sự thật / không có gì cho falsey

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

Octave , 68 66 byte

@(x)all([d=num2str(x) b=deblank(['' dec2bin(x)-48])]==flip([b d]))

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

Cung cấp ban đầu từ Octave.

Về cơ bản, chúng tôi tạo ra một mảng chứa số dưới dạng một chuỗi thập phân và số đó là một chuỗi nhị phân có dấu 0 bị xóa. Sau đó, chúng ta tạo một mảng có cùng chuỗi với các số nhị phân và số thập phân được lật. Cuối cùng, cả hai mảng được so sánh và kết quả là đúng nếu chúng khớp (cả hai palindromes) hoặc sai nếu chúng không (một hoặc cả hai không palindromes).

• Lưu 2 byte bằng cách sử dụng flipthay vì fliplr.

APL2 (không phải Dyalog), 36 byte

(N≡⌽N←⍕N)^∨/(((⌽B)⍳1)↓B)⍷B←(32⍴2)⊤N←

Đầu tiên, hãy để B là đại diện 32 bit của N:

B←(32⍴2)⊤N

Sau đó nhân bản B và tìm vị trí của số 1:

(⌽B)⍳1

Sau đó thả nhiều vị trí khỏi B. Điều này sẽ bảo toàn đúng số 0 đứng đầu.

Sau đó thực hiện TÌM và GIẢM GIÁ để xem B bị cắt có chứa gương của chính nó không.

Bây giờ hãy nhìn vào N, số thập phân. Biểu thức được đặt trong ngoặc trái nhất sẽ chuyển N thành một vectơ ký tự và kiểm tra xem nó có MATCH gương của chính nó không.

Cuối cùng, một AND tham gia hai kiểm tra.

Trong APL2 tôi không thể tạo ra một lambda gọn gàng vì vậy tôi đã viết một lớp lót và bao gồm mũi tên gán. Hy vọng điều này không phải là gian lận.

Java 8, 105 104 byte

n->{String t=n+n.toString(n,2).replaceAll("0*$","")+n;return t.contains(new StringBuffer(t).reverse());}

Giải trình:

Hãy thử nó ở đây.

n->{                         // Method with Integer parameter and boolean return-type
  String t=n                 //  Create a String `t` starting with the input Integer
    +n.toString(n,2)         //  Append the binary representation of the input Integer,
      .replaceAll("0*$","")  //   with all trailing zeroes removed
    +n;                      //  Append the input Integer again
  return t.contains(new StringBuffer(t).reverse());
                             //  Return true if `t` is a palindrome
}                            // End of method