ให้เป็นจำนวนเต็มบวกซึ่งประกอบด้วยnตัวเลขทศนิยมวันที่1 , d 2 , . . , d n ให้Bเป็นจำนวนเต็มบวกอีกตัว$A$$n$$d_1,d_2,...,d_n$$B$

สำหรับวัตถุประสงค์ของการท้าทายนี้เราเรียกเลียนแบบของBถ้ามีรายการอย่างน้อยหนึ่งของจำนวนเต็มบวกP 1 , P 2 , . . , p nเช่นนั้น:$A$$B$$p_1,p_2,...,p_n$

$A$และ$B$เรียกว่าcopycats ซึ่งกันและกันถ้า$A$เป็น copycat ของ$B$และ$B$เป็นเลียนแบบของ$A$

ตัวอย่าง

$526$และ$853$เป็น copycats ซึ่งกันและกันเนื่องจาก:

และ:

ความท้าทาย

รับจำนวนเต็มบวก$A$และ$B$สองค่างานของคุณคือพิมพ์หรือส่งคืนค่าความจริงหาก$A$และ$B$เป็นตัวเลียนแบบส่วนกลับหรือค่าเท็จ

คำอธิบายและกฎ

• คุณอาจใช้$A$และ$B$ในรูปแบบที่สมเหตุสมผลและไม่คลุมเครือใด ๆ (เช่นจำนวนเต็ม, สตริง, รายการตัวเลข, ... )
• $A$และ$B$อาจเท่ากัน ถ้าเป็นจำนวนเป็นเลียนแบบซึ่งกันและกันของตัวเองก็เป็นของA007532
• แทนที่จะเป็นค่าจริง / ค่าเท็จคุณอาจคืนค่าที่สอดคล้องกันสองค่า
• สำหรับ$1\le A<1000$และ$1\le B<1000$รหัสของคุณจะต้องแล้วเสร็จในเวลาน้อยกว่าหนึ่งนาที ถ้ามันใช้เวลามากเกินไปสำหรับค่าที่สูงกว่ามันจะต้องสามารถแก้ไขได้ในทางทฤษฎี
• นี่คือรหัสกอล์ฟ

กรณีทดสอบ

Truthy:
1 1
12 33
22 64
8 512
23 737
89 89
222 592
526 853
946 961
7 2401
24 4224
3263 9734
86 79424
68995 59227
32028 695345

Falsy:
1 2
3 27
9 24
24 42
33 715
33 732
222 542
935 994
17 2401
8245 4153

Brachylogขนาด 19 ไบต์

ẹ{∧ℕ₁;?↔^}ᵐ².+ᵐ↔?∧≜

ลองออนไลน์!

ผลลัพธ์true.หรือfalse.

คำอธิบาย

ẹ                     Split the numbers into lists of digits
 {       }ᵐ²          For each digit
  ∧ℕ₁                 Let I be a strictly positive integer
     ;?↔^                Compute the digit to the power I (which is unknown currently)
            .         Call . the list of those new numbers
            .+ᵐ       Their mapped sum results…
               ↔?     …in the reverse of the input
                 ∧≜   Find if there effectively are values for the numbers in . to satisfy
                        these relationships

Husk , 17 ไบต์

Λλ€⁰mΣΠTṪ^ḣ√⁰d)De

ลองออนไลน์! เสร็จสิ้นทุกกรณีทดสอบภายใต้ 1,000 ในประมาณ 11 วินาที

คำอธิบาย

Λλ€⁰mΣΠTṪ^ḣ√⁰d)De  Implicit inputs, say 12 and 33.
                e  Put into a list: [12,33]
               D   Duplicate: [12,33,12,33]
Λ                  Does this hold for all adjacent pairs:
                    (12,33 is checked twice but it doesn't matter)
                    For example, arguments are 33 and 12.
 λ            )     Anonymous function with arguments 33 (explicit) and 12 (implicit).
             d      Base-10 digits of implicit argument: [1,2]
          ḣ√⁰       Range to square root of explicit argument: [1,2,3,4]
        Ṫ^          Outer product with power: [[1,2],[1,4],[1,8],[1,16],[1,32]]
       T            Transpose: [[1,1,1,1,1],[2,4,8,16,32]]
      Π             Cartesian product: [[1,2],[1,4],...,[1,32]]
    mΣ              Map sum: [3,5,...,33]
  €⁰                Is the explicit argument in this list? Yes.

ทำไมมันถึงได้ผล

$B = d_1^{p_1} + \cdots + d_n^{p_n}$$d_i$$p_i$$d_i^{p_i} \leq B$$i$$p_i \leq \log_{d_i} B$$d_i \leq 1$$0$$1$$1 \leq p_i \leq \sqrt{B}$$1 \leq p_i \leq B$$\lfloor \log_{d_i} B \rfloor \leq \lfloor \sqrt{B} \rfloor$$d_i \geq 3$$B$$d_i = 2$$\lfloor \log_2 B \rfloor > \lfloor \sqrt{B} \rfloor$$B = 8$$2^3 = 8$$1$$2$$A$$2$$2$$3$$A = 2 \cdot 10^k$$k$$A$$8$$B$ อย่างไรก็ตามและโปรแกรมส่งคืนค่าเท็จโดยไม่คำนึงถึงการคำนวณอื่น ๆ

Python 2 , 102 ไบต์

lambda a,b:g(a,b)*g(b,a)
g=lambda a,b,e=1:b==a<1or(b>0<=b-e>=0<a)and(g(a/10,b-(a%10)**e)or g(a,b,e+1))

ลองออนไลน์!

05AB1E , 26 22 ไบต์

εVтLIàgãεYSym}OIyKå}˜P

ใช้อินพุตเป็นรายการ (เช่น [526,853] )

ลองมันออนไลน์หรือตรวจสอบกรณีทดสอบมากที่สุดในช่วง[1,999]

คล้ายกับคำตอบเก่าของฉันด้านล่างยกเว้นว่า[1,n]รายการจะถูก hardcoded ไป[1,100]และมันจะสร้างรายการคาร์ทีเซียนสองครั้งหนึ่งครั้งสำหรับแต่ละการแมปอินพุทซึ่งเป็นคอขวดหลักในแง่ของประสิทธิภาพ

คำตอบเก่า 26 ไบต์ที่ดีกว่าสำหรับประสิทธิภาพ:

Z©bgL®gãUεVXεYSym}OsN>èå}P

ในรุ่นนี้ฉันซื้อขายเป็นไบต์เพื่อทำให้ประสิทธิภาพดีขึ้นมากเพื่อให้สามารถทำงานได้ [1,1000]ได้อย่างง่ายดาย กรณีทดสอบที่มีตัวเลขอยู่ในช่วง[1,9999]ดำเนินการใน TIO ประมาณหนึ่งวินาที กรณีทดสอบในช่วง[10000,99999]ประมาณ 10-15 วินาทีสำหรับ TIO เหนือกว่านั้นก็จะหมดเวลา

ลองออนไลน์หรือ[1,9999]ตรวจสอบกรณีทดสอบทั้งหมดที่มีตัวเลขในช่วง

คำอธิบาย:

Z                 # Push the max of the (implicit) input-list (without popping)
                  #  i.e. [526,853] → 853
 ©                # Store it in the register (without popping)
  b               # Convert to binary
                  #  i.e. 853 → 1101010101
   g              # Take its length
                  #  i.e. 1101010101 → 10
    L             # Pop and push a list [1, n]
                  #  i.e. 10 → [1,2,3,4,5,6,7,8,9,10]
     ®            # Push the max from the register
      g           # Take its length
                  #  i.e. 853 → 3
       ã          # Cartesian product the list that many times
                  #  i.e. [1,2,3,4,5,6,7,8,9,10] and 3
                  #   → [[1,1,1],[1,1,2],[1,1,3],...,[10,10,8],[10,10,9],[10,10,10]]
        U         # Pop and store it in variable `X`
ε              }  # Map both values of the input list:
 V                # Store the current value in variable `Y`
  Xε    }         # Map `y` over the numbers of variable `X`
    Y             # Push variable `Y`
     S            # Convert it to a list of digits
                  #  i.e. 526 → [5,2,6]
      ym          # Take each digit to the power of the current cartesian product sublist
                  #  i.e. [5,2,6] and [3,9,3] → [125,512,216]
         O        # Take the sum of each inner list
                  #  i.e. [[5,2,6],[5,2,36],[5,2,216],...,[125,512,216],...]
                  #   → [13,43,223,...,853,...]
          s       # Swap to push the (implicit) input
           N>     # Push the index + 1
                  #  i.e. 0 → 1
             è    # Index into the input-list (with automatic wraparound)
                  #  i.e. [526,853] and 1 → 853
              å   # Check if it's in the list of sums
                  #  i.e. [13,43,223,...,853,...] and 853 → 1
                P # Check if it's truthy for both both (and output implicitly)
                  #  i.e. [1,1] → 1

Haskell , 77 ไบต์

a#b=a!b&&b!a
a!b|a<1=b==0|b<1=b>1|1<2=or[div a 10!(b-mod a 10^e)|e<-[1..b+1]]

ลองออนไลน์!

Perl 6 , 87 84 69 ไบต์

-15 ไบต์ขอบคุณ nwellnhof!

{!grep {!grep $^b,[X+] 0,|map (*X**1..$b.msb+1),$^a.comb},.[0,1,1,0]}

ลองออนไลน์!

รหัสบล็อกที่ไม่ระบุชื่อที่ส่งคืนจริงหรือเท็จ

คำอธิบาย:

{!grep {!grep $^b,[X+] 0,|map (*X**1..$b.msb+1),$^a.comb},.[0,1,1,0]}

{                                                                   }  # Anonymous code block
 !grep    # None of:
                                                          .[0,1,1,0]   # The input and the input reverse
       {!grep       # None of
                  [X+]       # All possible sums of
                       0,|   # 0 (this is to prevent single digit numbers being crossed with themself)
                          map                  ,$^a.comb   # Each digit mapped to
                              (*X**           )  # The power of
                                   1..$b.msb+1   # All of 1 to the most significant bit of b plus 1
                                                 # This could just be b+1, but time constraints...
              $^b,  # Is equal to b

JavaScript (Node.js) , 116 92 89 86 83 77 ไบต์

a=>b=>(G=(c,g,f=h=g%10)=>g?c>f&f>1&&G(c,g,h*f)||G(c-f,g/10|0):!c)(a,b)&G(b,a)

ลองออนไลน์!

(A)(B)คาดว่าการป้อนข้อมูลเป็น

J , 56 ไบต์

h~*h=.4 :'x e.+/|:>,{x 4 :''<y&*^:(x&>)^:a:y''"+"."+":y'

ลองออนไลน์!

คำนิยามที่ชัดเจนซ้อนกัน!

มันทำงานอย่างไร

powers =. 4 :'<y&*^:(x&>)^:a:y'  Explicit aux verb. x = target, y = digit
                             y   Starting from y,
               y&*^:     ^:a:    collect all results of multiplying y
                    (x&>)        until the result is at least x
              <                  Box it.

h=.4 :'x e.+/|:>,{x powers"+"."+":y'  Explicit aux verb. x, y = two input numbers
                            "."+":y   Digits of y
                  x powers"+          Collect powers of digits of y under x
                 {            Cartesian product of each item
           +/|:>,             Format correctly and compute the sums
       x e.                   Does x appear in the list of sums?

h~*h  Tacit main verb. x, y = two input numbers
      Since h tests the condition in only one direction,
      test again the other way around (~) and take the AND.

Python 2 , 149 147 143 139 132 118 108 107 106 105 ไบต์

lambda a,b:g(a,b)*g(b,a)
g=lambda a,b:any(g(a/10,b-(a%10)**-~i)for i in(a*b>0)*range(len(bin(b))))or b==0

ลองออนไลน์!

_{-4 ไบต์ขอบคุณ Vedant Kandoi}

J, 68 ไบต์

ฉันคิดว่า J จะเล่นได้ค่อนข้างดีที่นี่ แต่ท้ายที่สุดมันก็แกร่งกว่าที่ฉันคาดไว้และจะรักคำแนะนำสำหรับการเล่นกอล์ฟต่อไป ...

g=.#@#:@[
1 1-:[:(([:+./[=1#.]^"#.1+g#.inv[:i.g^#@])"."0@":)/"1],:|.

ลองออนไลน์!

หมายเหตุ: เราลบ 3 chars จาก TIO นับตั้งแต่นั้นมา f=.ในฟังก์ชั่นหลักไม่นับ

ungolfed

1 1 -: [: (([: +./ [ = 1 #. ] ^"#. 1 + g #.inv [: i. g ^ #@]) "."0@":)/"1 ] ,: |.