In dieser Herausforderung berechnen Sie Zahlen aus einer merkwürdigen Folge.

Ihre Eingabe ist eine einzelne dezimale nichtnegative Ganzzahl. Kehren Sie die Bits in dieser Ganzzahl um und quadrieren Sie die Zahl, um die gewünschte Ausgabe zu erhalten.

Beim Umkehren der Bits dürfen Sie keine führenden Nullen in der Eingabe verwenden. Beispielsweise:

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

Die ersten 25 Ein- / Ausgänge dieser Sequenz:

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

Ihre Lösung sollte für Ganzzahlen beliebiger Größe funktionieren. Wenn in Ihrer Sprache keine praktische Methode zur Verwendung vorhanden ist, implementieren Sie Ihre Antwort so, als ob dies der Fall wäre. Sie werden dann entschuldigt, wenn Ihre Antwort für große Zahlen bricht. Verwenden Sie jedoch keine Tricks / Grenzen, die nur für eine begrenzte Domäne funktionieren (z. B. eine Nachschlagetabelle).

Ihre Punktzahl ist die Anzahl der Bytes des Quellcodes.

-50% Bonus, wenn Sie die Zahl nie in eine Binärzahl umwandeln. Dies ist nicht auf integrierte Funktionen beschränkt. Wenn Sie die Zahl Bit für Bit durchlaufen (entweder durch Verschieben oder Maskieren oder eine andere Methode), wird dies ebenfalls als Konvertierung gewertet. Ich weiß nicht, ob dies tatsächlich möglich ist, aber es gibt einen Anreiz, ein Muster in der Sequenz zu erkennen.

Kleinste Punktzahl gewinnt.

Par , 5 Bytes

✶Σ⌐Σ²

Das ist read-binary-reverse-binary-square.

Mathematica, 42 21 Bytes

Dank an Alephalpha für die Halbierung der Punktzahl.

#~IntegerReverse~2^2&

Der eigentliche Grund, warum ich dies in Mathematica getan habe, war, dass ich mir eine Handlung ansehen wollte ... es sieht sicher lustig aus:

Minkolang 0,14 , 43 Bytes

Vielen Dank an Mego für die Inspiration.

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

Testen Sie den Code hier und überprüfen Sie alle Testfälle hier .

Erläuterung

Dies verwendet diese Wiederholungsrelation:

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

Wenn nist der Eingang, dann a(n)ist die resultierende Zahl, nachdem seine Binärsequenz gekippt worden ist. 0 und 1 sind offensichtlich. Man a(2n) = a(n)bedenke nämlich, dass x0(wo xeine beliebige Folge von Binärziffern ist) gespiegelt ist 0x, was dasselbe ist wie x. Denn a(2n+1)die Argumentation ist etwas komplizierter. x1gespiegelt ist 1x, was x + 2^kfür manche gleich ist k. Dies kist eine mehr als die Anzahl der Stellen in x, was ist floor(log_2(n))+1. Die vollständige Formel folgt, mit der Ausnahme, dass sie ein wenig geändert wurde. Das ist, was ich eigentlich codiere:

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

Als Mego und ich arbeitete, im Chat aus floor(n/2) = (n - n%2)/2. So ist log_2(floor(n/2))+1 = log_2(n - n%2). Wenn Sie mit multiplizieren, werden (n%2)sowohl die ungeraden als auch die geraden Teile zu einem Ausdruck zusammengefasst.

Schließlich, ohne weitere Umstände, hier der Code, erklärt.

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 Bytes

^{(Sie können das Programm als 7-Byte-IEC_8859-1-codierte Datei speichern und dann in den Interpreter hochladen .)}

Japt ist ein gekürztes JavaScript von ETHproductions .

¢w n2 ²

Probieren Sie es online!

Erläuterung:

1. ¢ist die Abkürzung zu Us2, die zu kompiliert U.s(2). Uwird eingegeben (implizit), .s(2)von einer Zahl aufgerufen , aufgerufen .toString(2)(in binär umgewandelt, als Zeichenfolge analysiert).

2. wKompiliert nach .w(), was den String ( .split('').reverse().join('')) umkehrt .

3. n2funktioniert wie parseInt(<number>,2), dh konvertiert binär in dezimal.

4. ²ruft auf Math.pow(<number>,2), dh quadriert die Zahl.

Python, 32 Bytes

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

Probieren Sie es online aus.

Der Code ist ziemlich einfach: bin(6)Zum Beispiel gibt 0b110die binäre Darstellung von 6 [:1:-1]den String um und entfernt ihn 0b. intkonvertiert die Zeichenfolge in eine Ganzzahl aus einer Binärzahl und **2quadriert sie.

Jolf , 7 Bytes

Lass es einfach laufen. Die Eingabe auf der Seite funktioniert nicht.

^C_Bj22

Erläuterung

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

Ich habe den QBefehl hinzugefügt , der diese 6 Bytes ergibt:QC_Bj2

TeaScript , 9 Bytes 11

TeaScript ist Javascript zum Golfen

®x÷v¤)**2

Werde mehr Golf spielen, wenn ich wieder an meinem Computer bin

Probieren Sie es online!

Testen Sie alle

Im Ernst , 8 7 Bytes

2;,¡R¿ª

Herausforderungen wie diese sind perfekt für Ernst :)

Probieren Sie es online aus

Erläuterung:

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 Bytes

2^~|.&.#:

Dies ist ein stillschweigendes, monadisches Verb. Probieren Sie es online!

Vielen Dank an @randomra für das Golfen ab 1 Byte!

Wie es funktioniert

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 Bytes

ri2bW%2b_*

Probieren Sie es online aus

JavaScript, 64 63 56 53 Bytes

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

Mir ist klar, dass ich extra lang bin, aber hey, ich kann es schaffen: P

Demo

Perl 6, 21 bytes

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

Example usage:

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 bytes

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

Shell, 25

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

Input/output via STDIN/STDOUT:

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

Pyth - 9 bytes

Straightforward conversions. I actually assigned 2 to a var which is pretty weird.

^i_jQK2KK

Test Suite.

Pyth, 9 bytes

^i_.BQ2 2

This is a very simple pyth based answer similar to the Python one

𝔼𝕊𝕄𝕚𝕟, 12 chars / 21 bytes

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

Try it here (Firefox only).

Noncompetitive answer, 9 chars / 18 bytes

⦅Յ+ᴙ(ïⓑ)²

Try it here (Firefox only).

Ruby, 35 bytes

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

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

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