Dalam tantangan ini, Anda akan menghitung angka dari urutan yang aneh.

Input Anda adalah bilangan bulat non-negatif desimal tunggal. Membalikkan bit dalam integer ini dan kemudian kuadratkan angka untuk mendapatkan output yang diperlukan.

Saat membalikkan bit Anda tidak harus menggunakan nol terkemuka di input. Sebagai contoh:

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

25 input / output pertama dari urutan ini:

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

Solusi Anda harus bekerja untuk bilangan bulat berukuran sewenang-wenang. Jika bahasa Anda tidak memiliki metode bawaan yang praktis untuk menggunakannya, implementasikan jawaban Anda seolah-olah itu. Anda kemudian dimaafkan jika jawaban Anda terlalu banyak. Namun, jangan gunakan trik / batasan yang hanya berfungsi untuk domain terbatas (seperti tabel pencarian).

Skor Anda adalah jumlah byte kode sumber.

-50% bonus jika Anda tidak pernah mengkonversi nomor ke / dari biner. Ini tidak terbatas pada builtin, jika Anda mengulangi angka sedikit demi sedikit (baik dengan menggeser atau menutupi atau metode lainnya), itu juga akan dihitung sebagai konversi. Saya tidak tahu apakah ini benar-benar mungkin, tetapi memberi insentif untuk menemukan pola dalam urutan.

Kemenangan skor terkecil.

Par , 5 byte

✶Σ⌐Σ²

Itu baca-biner-terbalik-biner-persegi.

Mathematica, 42 21 byte

Terima kasih kepada alephalpha untuk mengurangi separuh skor.

#~IntegerReverse~2^2&

Alasan sebenarnya saya melakukan ini di Mathematica adalah karena saya ingin melihat plot ... itu pasti terlihat lucu:

Minkolang 0,14 , 43 byte

Terima kasih kepada Mego untuk menginspirasi ini.

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

Uji kode di sini dan periksa semua kotak uji di sini .

Penjelasan

Ini menggunakan relasi perulangan ini:

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

Jika ninput, maka a(n)nomor yang dihasilkan setelah urutan binernya dibalik. 0 dan 1 sudah jelas. Untuk a(2n) = a(n), pertimbangkan bahwa x0(di mana xurutan angka biner) dibalik adalah 0x, yang sama dengan x. Sebab a(2n+1), alasannya sedikit lebih rumit. x1membalik adalah 1x, yang sama dengan x + 2^kuntuk beberapak . Ini kadalah satu lebih dari jumlah digit x, yaitu floor(log_2(n))+1. Rumus lengkapnya mengikuti, kecuali itu sedikit dimodifikasi. Inilah yang sebenarnya saya kode:

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

Saat Mego dan saya berolahraga dalam obrolan floor(n/2) = (n - n%2)/2,. Jadi log_2(floor(n/2))+1 = log_2(n - n%2),. Lebih jauh lagi, mengalikan dengan (n%2)meruntuhkan bagian aneh dan genap menjadi satu ekspresi.

Akhirnya, tanpa basa-basi lagi, inilah kodenya, dijelaskan.

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 byte

^{(Anda dapat menyimpan program sebagai file 7-byte IEC_8859-1 yang disandikan, kemudian mengunggahnya ke penerjemah .)}

Japt adalah JavaScript singkat yang dibuat oleh produk ETH .

¢w n2 ²

Cobalah online!

Penjelasan:

1. ¢adalah jalan pintas ke Us2, yang dikompilasi ke U.s(2). Uadalah input (implisit), .s(2)dipanggil oleh angka, memanggil .toString(2)(mengkonversi ke biner, mem-parsing sebagai string).

2. wmengkompilasi ke .w(), yang membalikkan string ( .split('').reverse().join('')).

3. n2berfungsi sebagai parseInt(<number>,2), yaitu mengkonversi biner ke desimal.

4. ²memanggil Math.pow(<number>,2), yaitu kuadrat nomornya.

Python, 32 byte

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

Cobalah online.

Kode ini cukup mudah:, bin(6)misalnya, memberi 0b110, representasi biner dari 6. [:1:-1]membalikkan string dan menghapus 0b. intmengubah string menjadi integer dari biner, dan **2kuadratkan.

Jolf , 7 byte

Jalankan saja. Input pada halaman tidak berfungsi.

^C_Bj22

Penjelasan

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

Saya menambahkan Qperintah, yang menghasilkan 6 byte:QC_Bj2

TeaScript , 9 byte 11

TeaScript adalah Javascript untuk bermain golf

®x÷v¤)**2

Akan bermain golf lagi setelah saya kembali ke komputer saya

Cobalah online!

Tes semua

Serius , 8 7 byte

2;,¡R¿ª

Tantangan seperti ini sempurna untuk Serius :)

Cobalah online

Penjelasan:

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 byte

2^~|.&.#:

Ini adalah kata kerja monadik diam-diam. Cobalah online!

Terima kasih kepada @randomra untuk bermain golf 1 byte!

Bagaimana itu bekerja

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 byte

ri2bW%2b_*

Cobalah online

JavaScript, 64 63 56 53 byte

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

Saya sadar saya ekstra panjang, tapi hei, saya bisa melakukannya: P

Demo

Perl 6 , 21 byte

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

Contoh penggunaan:

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 byte

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

Shell, 25

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

Input / output melalui STDIN / STDOUT:

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

Pyth - 9 byte

Konversi langsung. Saya benar-benar ditugaskan 2 ke var yang sangat aneh.

^i_jQK2KK

Test Suite .

Pyth, 9 byte

^i_.BQ2 2

Ini adalah jawaban berbasis pyth yang sangat sederhana mirip dengan yang Python

𝔼𝕊𝕄𝕚𝕟, 12 karakter / 21 byte

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

Try it here (Firefox only).

Jawaban tidak kompetitif, 9 karakter / 18 byte

⦅Յ+ᴙ(ïⓑ)²

Try it here (Firefox only).

Ruby, 35 byte

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

TI-Basic (TI-84 Plus CE), 42 byte

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