Bu meydan okumada meraklı bir diziden sayıları hesaplayacaksınız.

Girişiniz tek bir ondalık sayı negatif olmayan bir tam sayıdır. Bu tamsayıdaki bitleri ters çevirin ve ardından gerekli çıktıyı almak için sayının karesini alın.

Bitleri ters çevirirken, girişte baştaki sıfırları kullanmamalısınız. Örneğin:

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

Bu dizinin ilk 25 girişi / çıkışı:

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

Çözümünüz keyfi olarak boyutlandırılmış tamsayılar için çalışmalıdır. Dilinizde bunları kullanmak için uygun bir yerleşik yöntem yoksa, yanıtınızı sanki olduğu gibi uygulayın. Cevabınız çok sayıda olursa kırılır. Ancak, yalnızca sınırlı bir alan için (arama tablosu gibi) çalışan hileler / sınırlar kullanmayın.

Puanınız kaynak kodun bayt sayısıdır.

Eğer sayıyı hiçbir zaman ikiliye dönüştürmezseniz,% -50 bonus. Bu, yerleşikler ile sınırlı değildir, eğer sayıları birer birer döngüye sokarsanız (kaydırma veya maskeleme veya başka bir yöntemle), dönüşüm olarak da sayılır. Bunun gerçekten mümkün olup olmadığını bilmiyorum, ancak dizideki bir deseni tespit etmek için bir teşvik veriyor.

En küçük puan kazanır.

Par , 5 bayt

✶Σ⌐Σ²

Bu okuma-ikili-ters-ikili-kare.

Mathematica, 42 21 bayt

Puanı yarıya indirdiği için alephalpha'ya teşekkürler.

#~IntegerReverse~2^2&

Mathematica'da bunu yapmamın asıl nedeni, bir arsaya bakmak istediğimden ... şüphesiz komik görünüyor:

Minkolang 0.14 , 43 bayt

İlham verdiği için Mego'ya teşekkürler.

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

Kodu burada test edin ve buradaki tüm test senaryolarını kontrol edin .

açıklama

Bu, yineleme ilişkisini kullanır:

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

Eğer ngiriş, daha sonra a(n)da ikili dizi çevrilmiş sonra elde edilen bir sayıdır. 0 ve 1 açıktır. İçin a(2n) = a(n), göz önüne x0(burada xçevrilmiş ikili basamak dizisidir.CONTROL) 0xile aynı olan, x. Çünkü a(2n+1)akıl yürütme biraz daha karmaşıktır. x1ters çevrilir, bazıları için 1xeşittir . Bu basamak sayısı birden fazla olan, . Tam formül aşağıdaki gibidir, ancak biraz değiştirilmiştir. Bu aslında kod:x + 2^kkkxfloor(log_2(n))+1

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

Mego ve ben sohbette çalıştıkça floor(n/2) = (n - n%2)/2. Böylece log_2(floor(n/2))+1 = log_2(n - n%2),. Ayrıca, (n%2)tek ve çift parçaları tek bir ifadeye daraltır.

Son olarak, daha fazla uzatmadan, işte kod açıklandı.

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 bayt

^{(Programı 7 baytlık IEC_8859-1 kodlu bir dosya olarak kaydedip yorumlayıcıya yükleyebilirsiniz .)}

Japt JavaScript tarafından yapılan kısaltılır ETHproductions .

¢w n2 ²

Çevrimiçi deneyin!

Açıklama:

1. ¢kısayol olduğu Us2hangi derlemesinin, U.s(2). bir sayı tarafından çağrılan Ugiriş (örtük).s(2).toString(2) ( dönüştürür, dize olarak ayrıştırır).

2. wderler .w()dize tersine çevirir, hangi ( .split('').reverse().join('')).

3. n2olarak çalışır parseInt(<number>,2), yani ikiliyi ondalığa dönüştürür.

4. ²çağırır Math.pow(<number>,2), yani sayıyı kareler.

Python, 32 bayt

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

Çevrimiçi deneyin.

Kod oldukça basittir: bin(6)örneğin, 0b1106'nın ikili gösterimini verir . [:1:-1]Dizeyi tersine çevirir ve kaldırır 0b. intdizeyi binary'den bir tam sayıya dönüştürür ve **2kareler.

Jolf , 7 bayt

Sadece çalıştırın. Sayfadaki giriş çalışmıyor.

^C_Bj22

açıklama

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

QBu 6 bayt yapan komutu ekledim :QC_Bj2

TeaScript , 9 bayt 11

TeaScript golf oynamak için Javascripttir

®x÷v¤)**2

Bilgisayarıma geri döndüğümde daha fazla golf oynayacak

Çevrimiçi deneyin!

Tümünü test et

Ciddi , 8 7 bayt

2;,¡R¿ª

Bu gibi zorluklar Cidden için mükemmel :)

Çevrimiçi deneyin

Açıklama:

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 bayt

2^~|.&.#:

Bu örtük, monadik bir fiildir. Çevrimiçi deneyin!

1 byte golf için @randomra'ya teşekkürler!

Nasıl çalışır

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 bayt

ri2bW%2b_*

Çevrimiçi deneyin

JavaScript, 64 63 56 53 bayt

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

Çok uzun olduğumu fark ettim, ama hey, yapabilirim: P

gösteri

Perl 6 , 21 bayt

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

Örnek kullanım:

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 bayt

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

Kabuk, 25

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

STDIN / STDOUT üzerinden giriş / çıkış:

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

Pyth - 9 bayt

Basit dönüşümler. Aslında 2 oldukça garip bir var atandı.

^i_jQK2KK

Test Takımı .

Pyth, 9 bayt

^i_.BQ2 2

Bu Python'a benzer çok basit bir pyth tabanlı cevaptır

𝔼𝕊𝕄𝕚𝕟, 12 karakter / 21 bayt

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

Try it here (Firefox only).

Rekabetçi olmayan cevap, 9 karakter / 18 bayt

⦅Յ+ᴙ(ïⓑ)²

Try it here (Firefox only).

Yakut, 35 bayt

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

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

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