ในการท้าทายนี้คุณจะคำนวณตัวเลขจากลำดับที่น่าสงสัย

ข้อมูลที่คุณป้อนเป็นจำนวนเต็มแบบไม่ลบทศนิยม กลับบิตในจำนวนเต็มนี้แล้วตารางจำนวนเพื่อรับผลลัพธ์ที่ต้องการ

เมื่อย้อนกลับบิตคุณต้องไม่ใช้เลขศูนย์นำหน้าในอินพุต ตัวอย่างเช่น:

26 (base 10) = 11010 (base 2) -> 01011 (base 2) = 11 -> 11*11 = 121

25 อินพุต / เอาต์พุตแรกของลำดับนี้:

0: 0
1: 1
2: 1
3: 9
4: 1
5: 25
6: 9
7: 49
8: 1
9: 81
10: 25
11: 169
12: 9
13: 121
14: 49
15: 225
16: 1
17: 289
18: 81
19: 625
20: 25
21: 441
22: 169
23: 841
24: 9

โซลูชันของคุณควรทำงานกับจำนวนเต็มที่มีขนาดตามอำเภอใจ หากภาษาของคุณไม่มีวิธีการใช้ที่สะดวกให้ใช้คำตอบของคุณราวกับว่ามันเป็น คุณจะถูกแก้ตัวถ้าคำตอบของคุณแบ่งเป็นจำนวนมาก อย่างไรก็ตามอย่าใช้ลูกเล่น / ขอบเขตที่ใช้ได้กับโดเมนที่ จำกัด เท่านั้น (เช่นตารางการค้นหา)

คะแนนของคุณคือจำนวนไบต์ของซอร์สโค้ด

โบนัส -50% หากคุณไม่เคยแปลงจำนวนเป็น / จากไบนารี สิ่งนี้ไม่ได้ จำกัด อยู่ที่บิวด์อินหากคุณวนซ้ำตัวเลขทีละบิต (ไม่ว่าจะโดยการเลื่อนหรือการปิดบังหรือวิธีการอื่นใด) ก็จะนับเป็นการแปลงด้วย ฉันไม่รู้ว่ามันเป็นไปได้จริง ๆ หรือไม่ แต่มันก็เป็นแรงจูงใจให้เห็นรูปแบบตามลำดับ

คะแนนที่น้อยที่สุดชนะ

พาร์ 5 ไบต์

✶Σ⌐Σ²

นั่นคือ read-binary-reverse-binary-square

Mathematica, 42 21 ไบต์

ขอบคุณ alephalpha สำหรับการลดคะแนนลงครึ่งหนึ่ง

#~IntegerReverse~2^2&

เหตุผลที่แท้จริงที่ฉันทำใน Mathematica นั้นเป็นเพราะฉันต้องการดูพล็อต ... แน่นอนว่ามันดูตลก:

Minkolang 0.14 , 43 bytes

ขอบคุณ Mego สำหรับแรงบันดาลใจนี้

n1{d1`,2$3*&$z2zd2%-2l$Md1%-;z2%*z2:{+}2;N.

ทดสอบรหัสที่นี่และตรวจสอบกรณีทดสอบทั้งหมดที่นี่

คำอธิบาย

สิ่งนี้ใช้ความสัมพันธ์ที่เกิดซ้ำนี้:

a(0) = 0
a(1) = 1
a(2n) = a(n)
a(2n+1) = a(n) + 2^(floor(log_2(n))+1)

ถ้าnเป็นอินพุทก็a(n)จะเป็นผลลัพธ์ที่ได้หลังจากลำดับเลขฐานสองของมันถูกพลิก 0 และ 1 ชัดเจน สำหรับการa(2n) = a(n)พิจารณาว่าx0(ซึ่งxเป็นลำดับของตัวเลขไบนารี) พลิกเป็นซึ่งเป็นเช่นเดียวกับ0x xสำหรับa(2n+1)เหตุผลนั้นซับซ้อนกว่าเล็กน้อย x1พลิกเป็น1xซึ่งมีค่าเท่ากับสำหรับบางคนx + 2^k kนี้kเป็นหนึ่งมากกว่าจำนวนของตัวเลขในซึ่งเป็นx floor(log_2(n))+1สูตรเต็มตามมายกเว้นว่ามีการปรับเปลี่ยนเล็กน้อย นี่คือสิ่งที่ฉันรหัสจริง:

a(0) = 0
a(1) = 1
a(n) = a(n//2) + (n%2) * 2^(floor(log_2(n - n%2)))

ฉันกับเมโกะทำงานในการแชท, floor(n/2) = (n - n%2)/2. ดังนั้นlog_2(floor(n/2))+1 = log_2(n - n%2). นอกจากนี้การคูณด้วยการ(n%2)ยุบทั้งส่วนคี่และคู่เป็นนิพจน์เดียว

ในที่สุดโดยไม่ต้องกังวลใจใด ๆ เพิ่มเติมนี่คือรหัสอธิบาย

n                                              Take number from input
 1{                                            Start recursion that takes only one element
   d1`,                                        1 if top of stack 0 or 1, 0 otherwise
       2$3*                                    26
           &                                   Jump if top of stack is not zero
            $z                                 Store top of stack in register (z)

               zd2%-                           n - n%2
                    2l$M                       log_2(n - n%2)
                        d1%-                   floor(log_2(n - n%2))
              2             ;                  2^floor(log_2(n - n%2))
                             z2%               n%2
                                *              Multiply
                                 z2:           n//2
                                    {          Recurse
                                     +         Add
                                      }        Return
                                       2;N.    Square it, output as number, and stop.

Japt , 29 28 11 7 ไบต์

^{(คุณสามารถบันทึกโปรแกรมเป็นไฟล์ที่เข้ารหัส IEC_8859-1 ขนาด 7 ไบต์แล้วอัปโหลดไปที่ล่าม )}

Japt จะสั้นลง JavaScript ทำโดยETHproductions

¢w n2 ²

ลองออนไลน์!

คำอธิบาย:

1. ¢เป็นทางลัดไปซึ่งคอมไพล์Us2 คืออินพุต (โดยนัย) ซึ่งเรียกโดยตัวเลขจะเรียกใช้(แปลงเป็นไบนารีแยกวิเคราะห์เป็นสตริง)U.s(2)U.s(2).toString(2)

2. wรวบรวมเพื่อ.w()ย้อนกลับสตริง ( .split('').reverse().join(''))

3. n2ทำงานเป็นparseInt(<number>,2)เช่นแปลงไบนารีเป็นทศนิยม

4. ²ขอร้องMath.pow(<number>,2)คือยกกำลังสองจำนวน

Python ขนาด 32 ไบต์

lambda x:int(bin(x)[:1:-1],2)**2

ลองออนไลน์

รหัสตรงไปตรงสวย: bin(6)ตัวอย่างเช่นให้0b110, ฐานเป็นตัวแทนของ 6. กลับสตริงและลบ[:1:-1] แปลงสตริงเป็นจำนวนเต็มจากไบนารี่และยกกำลังสอง0bint**2

Jolf , 7 ไบต์

เพียงแค่เรียกใช้ อินพุตในหน้าไม่ทำงาน

^C_Bj22

คำอธิบาย

^C_Bj22
    j   numeric input
   B    convert to binary (str)
  _     reverse
 C   2  parse as binary integer to base 10
^     2 square
        implicit output

ฉันเพิ่มQคำสั่งซึ่งทำให้ 6 ไบต์นี้:QC_Bj2

TeaScript ขนาด 9 ไบต์ 11

TeaScript เป็น Javascript สำหรับเล่นกอล์ฟ

®x÷v¤)**2

กอล์ฟจะมากขึ้นเมื่อฉันกลับไปที่คอมพิวเตอร์ของฉัน

ลองออนไลน์!

ทดสอบทั้งหมด

อย่างจริงจัง , 8 7 ไบต์

2;,¡R¿ª

ความท้าทายเช่นนี้เหมาะอย่างยิ่งสำหรับ :)

ลองออนไลน์

คำอธิบาย:

2;,¡    get a string representing the (decimal) input in binary, with a 2 on the bottom of the stack
R      reverse the string
¿    convert binary string to decimal int (using that extra 2 from earlier)
ª      square it

J, 10 9 ไบต์

2^~|.&.#:

นี่เป็นคำกริยาที่มีความหมายเดียว ลองออนไลน์!

ขอบคุณ @randomra สำหรับการลงเล่น 1 ไบต์!

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

2^~|.&.#:  Right argument: y

       #:  Convert y to binary.
   |.      Reverse the digits.
     &.    Dual; apply the inverse of #:, i.e., convert back to integer.
 ^~        Apply power (^) with reversed argument order (~)...
2          to 2 and the previous result.

CJam, 10 ไบต์

ri2bW%2b_*

ลองออนไลน์

JavaScript, 64 63 56 53 ไบต์

n=>parseInt([...n.toString(2)].reverse().join``,2)**2

ฉันรู้ว่าฉันยาวเป็นพิเศษ แต่เดี๋ยวก่อนฉันทำได้: P

การสาธิต

Perl 6 , 21 ไบต์

{:2(.base(2).flip)²}

ตัวอย่างการใช้งาน:

say {:2(.base(2).flip)²}(26); # 121

say (0..24).map: {:2(.base(2).flip)²};
# (0 1 1 9 1 25 9 49 1 81 25 169 9 121 49 225 1 289 81 625 25 441 169 841 9)

my &code = {:2(.base(2).flip)²};
say code 3; # 9

say chars code 10¹⁰⁰; # 140

PHP, 45 ไบต์

echo pow(bindec(strrev(decbin($argv[1]))),2);

เชลล์, 25

dc -e2o?p|rev|dc -e2i?d*p

อินพุต / เอาต์พุตผ่าน STDIN / STDOUT:

$ echo 26|dc -e2o?p|rev|dc -e2i?d*p
121
$ 

Pyth - 9 ไบต์

การแปลงที่ไม่ซับซ้อน ฉันได้รับมอบหมายให้ 2 กับ var ซึ่งเป็นเรื่องแปลก

^i_jQK2KK

Test Suite

Pyth, 9 ไบต์

^i_.BQ2 2

นี่เป็นคำตอบแบบ pyth ที่ง่ายมากคล้ายกับ Python

𝔼𝕊𝕄𝕚𝕟, 12 ตัวอักษร / 21 ไบต์

⦅`ᶀ`+ᴙ(ïß2)²

Try it here (Firefox only).

คำตอบแบบไม่ต่อเนื่อง, 9 ตัวอักษร / 18 ไบต์

⦅Յ+ᴙ(ïⓑ)²

Try it here (Firefox only).

Ruby, 35 ไบต์

->(x){x.to_s(2).reverse.to_i(2)**2}

TI-Basic (TI-84 Plus CE), 42 ไบต์

Prompt X
0→S
While X
2S→S
If X/2≠int(X/2
S+1→S
End
S2