Schreiben Sie ein Programm, das überprüft, ob die Ganzzahl eine Potenz von 2 ist.

Beispieleingabe:

8

Beispielausgabe:

Yes

Beispieleingabe:

10

Beispielausgabe:

No

Regeln:

• Verwenden Sie nicht +, -Operationen.

• Verwenden Sie einen Eingabestream, um die Nummer zu ermitteln. Die Eingabe soll zunächst nicht in einer Variablen gespeichert werden.

• Der kürzeste Code (in Bytes) gewinnt.

Sie können jede wahrheitsgemäße / falsche Antwort verwenden (z. B. true/ false). Sie können davon ausgehen, dass die eingegebene Nummer größer als ist 0.

GolfScript, 6 Zeichen, keine Dekremente

~.3/&!

Hier ist eine Lösung, die die x & (x-1)Methode in keiner Form verwendet. Es verwendet x & (x/3)stattdessen. ;-) Gibt 0false aus, 1wenn true.

Erläuterung:

• ~ Wertet die Eingabezeichenfolge aus, um sie in eine Zahl umzuwandeln.
• .dupliziert es (für das nachfolgende &),
• 3/ teilt es durch drei (abschneiden),
• & berechnet das bitweise UND des geteilten Wertes mit dem Original, das genau dann Null ist, wenn die Eingabe Null oder eine Zweierpotenz ist (dh wenn höchstens ein Bit gesetzt ist), und
• ! Negiert dies logisch und ordnet null und alle anderen Werte null zu.

Anmerkungen:

• Nach den erläuterten Regeln ist Null keine gültige Eingabe , daher ist dieser Code in Ordnung, auch wenn er ausgegeben wird, 1wenn die Eingabe Null ist.

• Wenn der GolfScript-Dekrement-Operator (zulässig ist, reicht die von aditsu bereitgestellte 5- ~.(&! stellige Lösung aus. Es scheint jedoch gegen den Geist der Regeln zu verstoßen , wenn nicht gegen den Buchstaben.

• Ich habe mir den x & (x/3)Trick vor Jahren auf der Fun With Perl-Mailingliste ausgedacht. (Ich bin mir sicher, dass ich nicht der erste bin, der es entdeckt hat, aber ich habe es selbstständig (neu) erfunden.) Hier ist ein Link zum Originalbeitrag , einschließlich eines Beweises, dass es tatsächlich funktioniert.

APL (7)

Ja, das sind 7 Bytes . Nehmen wir für den Moment an, dass ich IBM Codepage 907 anstelle von Unicode verwende und dann jedes Zeichen ein Byte ist :)

0=1|2⍟⎕

dh 0 = mod(log(input(),2),1)

GolfScript, 11 (für 1 (wahr) und 0 (falsch))

.,{2\?}%?0>

Lege die Zahl auf den Stapel und laufe dann.

GolfScript, 22 (für Ja / Nein)

.,{2\?}%?0>'Yes''No'if

Ich finde es toll, wie das Konvertieren von 1/ 0nach Yes/ Noso viel Code benötigt wie die Herausforderung selbst: D

Warnung: EXTREM ineffizient;) Bei Zahlen bis 10000 funktioniert es einwandfrei, aber sobald Sie diesen Wert erreicht haben, stellen Sie eine leichte Verzögerung fest.

Erläuterung:

• .,: wird nzu n 0..n( .duplizieren, ,0..n Bereich)
• {2\?}: hoch 2
• %: map "Potenz von 2" über "0..n" so wird es n [1 2 4 8 16 ...]
• ?0>: prüft, ob das Array die Zahl enthält (0 ist größer als Index)

Mathematica 28

Numerator[Input[]~Log~2]==1

Für ganzzahlige Potenzen von 2 ist der Zähler des Basis-2-Protokolls 1 (was bedeutet, dass das Protokoll ein Einheitenbruch ist).

Hier modifizieren wir die Funktion leicht, um die vermutete Eingabe anzuzeigen. Wir verwenden #anstelle von Input[]und addieren &, um eine reine Funktion zu definieren. Es wird dieselbe Antwort zurückgegeben, die zurückgegeben würde, wenn der Benutzer die Nummer in der obigen Funktion eingibt.

    Numerator[#~Log~2] == 1 &[1024]
    Numerator[#~Log~2] == 1 &[17]

Richtig
Falsch

Mehrere Nummern gleichzeitig testen.

    Numerator[#~Log~2] == 1 &&/@{64,8,7,0}

{Richtig, Richtig, Falsch, Falsch}

Perl 6 (17 Zeichen)

say get.log(2)%%1

Dieses Programm erhält eine Zeile von der STDIN- getFunktion, berechnet den Logarithmus mit der Basis 2 ( log(2)) und prüft, ob das Ergebnis durch 1 dividiert wird ( %%1wobei %%durch den Operator dividiert wird). Nicht so kurz wie die GolfScript-Lösung, aber ich finde das akzeptabel (GolfScript gewinnt sowieso alles), aber viel schneller (auch wenn man bedenkt, dass Perl 6 momentan langsam ist).

~ $ perl6 -e 'say get.log(2)%%1'
256
True
~ $ perl6 -e 'say get.log(2)%%1'
255
False

Oktave ( 15 23)

BEARBEITEN: Aktualisierung aufgrund von Benutzereingabeanforderungen;

~mod(log2(input('')),1)

Lässt den Benutzer einen Wert eingeben und gibt 1 für wahr, 0 für falsch aus.

Getestet in Octave, sollte auch in Matlab funktionieren.

R 13, 11

Basierend auf der Perl-Lösung. Rückgabe FALSEoder TRUE.

!log2(i)%%1

Der Parameter irepräsentiert die Eingangsvariable.

Eine alternative Version mit Benutzereingabe:

!log2(scan())%%1

GolfScript, 5

Ausgänge 1 für wahr, 0 für falsch. Basierend auf der Idee von user3142747:

~.(&!

Hinweis: Wird (dekrementiert, was hoffentlich nicht als -:) gilt.
Wenn dies der Fall ist (und die Kommentare des OP darauf hindeuten, dass dies der Fall sein könnte), beziehen Sie sich stattdessen auf die Lösung von Ilmari Karonen .
Fügen Sie für die J / N-Ausgabe 'NY'1/=am Ende (7 weitere Bytes) an.

Python, 31

print 3>bin(input()).rfind('1')

C 48

main(x){scanf("%i",&x);puts(x&~(x*~0)?"F":"T");}

Ich habe mich für einen anderen Ansatz entschieden, der auf der Anzahl der Einwohner oder der Seitwärtssumme der Zahl (der Anzahl der 1-Bits) basiert . Die Idee ist, dass alle Potenzen von zwei genau ein 1Bit haben und keine andere Zahl. Ich habe eine JavaScript-Version hinzugefügt, weil ich sie amüsant fand, obwohl sie mit Sicherheit keinen Golfwettbewerb gewinnen wird.

J, 14 15 Zeichen (Ausgänge 0 oder 1)

1=##~#:".1!:1]1

JavaScript, 76 Zeichen (gibt true oder false aus)

alert((~~prompt()).toString(2).split("").map(Number).filter(Boolean).length)

Clip , 9 8 7

!%lnxWO

Liest eine Zahl von stdin.

Erläuterung:

Beginnen Sie mit, Z= 0, W= 2und O= 1. Dies ermöglicht die Platzierung von Wund Onebeneinander, während die Verwendung von 2und 1als Zahl 21 ohne Trennzeichen (ein unerwünschtes zusätzliches Zeichen) interpretiert wird. In Clip funktioniert die Modulo-Funktion ( %) mit Nicht-Ganzzahlen. Wenn Sie also herausfinden möchten, ob ein Wert veine Ganzzahl ist, überprüfen Sie, ob vMod 1 = 0 ist. Mit der Clip-Syntax wird dies wie folgt geschrieben =0%v1. Da Boolesche Werte jedoch als 1(oder als alles andere) gespeichert werden und 0überprüft wird, ob etwas gleich ist, 0wird es nur "nicht". Dafür hat Clip den !Operator. In meinem Code vist lnx2. xist eine Eingabe von stdin,nwandelt einen String in eine Zahl um und labist die Protokollbasis bvon a. Das Programm übersetzt daher (besser lesbar) nach 0 = ((log base 2 of parseInt(readLine)) mod 1).

Beispiele:

8

Ausgänge

1

und

10

Ausgänge

0

Edit 1: ersetzt 0, 1und 2mit Z, Ound W.

Edit 2: ersetzt =Zdurch !.

Ebenfalls:

Pyth , 5

Komprimiert die Clip-Version noch weiter, da Pyth Q für bereits ausgewertete Eingaben und eine log2 (a) -Funktion anstelle von nur allgemeinem log (a, b) hat.

!%lQ1

Javascript (37)

a=prompt();while(a>1)a/=2;alert(a==1)

Einfaches Skript, das nur wiederholt durch 2 dividiert und den Rest überprüft.

Mathematica (21)

IntegerQ@Log2@Input[]

Ohne Eingabe ist es etwas kürzer

IntegerQ@Log2[8]

Wahr

IntegerQ@Log2[7]

Falsch

JavaScript, 41 bis 40 Zeichen

l=Math.log;alert(l(prompt())/l(2)%1==0);

So funktioniert das: Sie nehmen den Logarithmus an der Basis 2 mit l(prompt()) / l(2), und wenn dieses Ergebnis Modulo 1 gleich Null ist, dann ist es eine Potenz von 2.

Zum Beispiel: Nachdem Sie den Logarithmus von 8 auf Basis genommen haben 2, erhalten Sie 3. 3 modulo 1ist gleich 0, dies gibt also true zurück.

Nachdem Sie den Logarithmus von 7 auf Basis 2 genommen haben, erhalten Sie 2.807354922057604. 2.807354922057604 modulo 1ist gleich 0.807354922057604, daher wird false zurückgegeben.

JavaScript, 35

Funktioniert für Bytes.

alert((+prompt()).toString(2)%9==1)

46-stellige Version , funktioniert für 16-Bit-Nummern.

x=(+prompt()).toString(2)%99;alert(x==1|x==10)

Der Trick funktioniert in den meisten dynamischen Sprachen.

Erläuterung: Konvertieren Sie die Zahl in Basis 2, interpretieren Sie diese Zeichenfolge als Basis 10, und führen Sie Modulo 9 aus, um die Ziffernsumme zu erhalten, die 1 sein muss.

Perl 5.10+, 13 + 1 = 14 Zeichen

say!($_&$_/3)

Verwendet die gleiche Methode aus einem alten FWP-Thread wie mein GolfScript-Eintrag . Gibt aus, 1ob die Eingabe eine Zweierpotenz ist, andernfalls eine Leerzeile.

Muss mit ausgeführt werden perl -nE; Der n Aufpreis beträgt 14 Zeichen. Alternativ ist hier eine 18-stellige Version, die Folgendes nicht benötigt n:

say!(($_=<>)&$_/3)

Python 3, 38

print(1==bin(int(input())).count('1'))

Python, 32

Der Code funktioniert jedoch nicht in jeder Version.

print 1==bin(input()).count('1')

Beachten Sie, dass die Lösung auch für 0 funktioniert (print False).

Ruby - 17 Zeichen (vierter Versuch)

p /.1/!~'%b'%gets

Mein aktuelles Bestes ist eine Fusion von @steenslag's Antwort mit meiner eigenen. Nachfolgend sind meine bisherigen Versuche aufgeführt.

Ruby - 19 Zeichen (dritter Versuch)

p /10*1/!~'%b'%gets

Ruby - 22 Zeichen (zweiter Versuch)

p !('%b'%gets)[/10*1/]

Ruby - 24 Zeichen (erster Versuch)

p !!('%b'%gets=~/^10*$/)

K / Kona ( 24 17)

d:{(+/(2_vs x))~1

Gibt 1 zurück, wenn wahr, und 0, wenn falsch. Jede Potenz von 2 hat ein einzelnes Bit gleich 1:

2_vs'_(2^'(!10))
(,1
1 0
1 0 0
1 0 0 0
1 0 0 0 0
1 0 0 0 0 0
1 0 0 0 0 0 0
1 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0 0)

(dies gibt alle Potenzen von 2 (von 0 bis 9) in binärer Form aus)

Also fasse ich alle Komponenten des binären Ausdrucks von zusammen xund sehe, ob er gleich 1 ist. wenn ja dann x=2^n, sonst nein.

... wusste, ich könnte es kleiner machen

C # (54 Zeichen)

 Math.Log(int.Parse(Console.ReadLine()),2)%1==0?"Y":"N"

Rebmu (9 Zeichen)

z?MOl2A 1

Prüfung

>> rebmu/args [z?MOl2A 1] 7
== false

>> rebmu/args [z?MOl2A 1] 8 
== true

>> rebmu/args [z?MOl2A 1] 9 
== false

Rebmu ist ein verengter Dialekt von Rebol. Der Code ist im Wesentlichen:

z? mo l2 a 1  ; zero? mod log-2 input 1

Alternative

14 Zeichen - Rebmu hat kein bitweises "Mushed" AND ~

z?AND~aTIddA 3

In Rebol:

zero? a & to-integer a / 3

GTB , 46 Bytes

2→P`N[@N=Pg;1P^2→P@P>1E90g;2]l;2~"NO"&l;1"YES"

Python, 35

print bin(input()).strip('0')=='b1'

Verwendet nicht nur +/- Operationen, sondern auch mathematische Operationen, abgesehen von der Konvertierung in die Binärform.

Andere Sachen (interessant, aber nicht für den Wettbewerb):

Ich habe auch eine reguläre Version (61) :

import re;print re.match(r'^0b10+$',bin(input())) is not None

(Liebe die Idee, aber Import- und Match-Funktion machen es zu lang)

Und schöne, aber langweilige bitweise Operationen Version (31) :

x=input();print x and not x&~-x

(Ja, es ist kürzer, aber es verwendet ~ -x für die Dekrementierung der Operation)

Python 2.7 ( 30 29 39 37)

BEARBEITEN: Aktualisierung aufgrund von Benutzereingabeanforderungen;

a=input()
while a>1:a/=2.
print a==1

Brute Force, versuchen Sie zu teilen, bis = 1 (Erfolg) oder <1 (Misserfolg)

Python (33)

print int(bin(input())[3:]or 0)<1

Ruby, 33 , 28 , 25

p /.1/!~gets.to_i.to_s(2)

APL (12 für 0/1, 27 für Ja / Nein)

≠/A=2*0,ιA←⍞ 

oder, wenn wir Text ausgeben müssen:

3↑(3x≠/A=2*0,ιA←⍞)↓'YESNO '

Lesen Sie A ein. Bilden Sie einen Vektor 0..A, dann einen Vektor 2 ⁰ ..2 ^A (ja, das ist weit mehr als nötig), dann einen Vektor, der A mit jedem dieser Vektoren vergleicht (was zu einem Vektor von 0 und höchstens 0 führt) one 1), dann xor that (es gibt keinen xor-Operator in APL, aber ≠, das auf Boolesche Werte angewendet wird, fungiert als eins.) Wir haben jetzt 0 oder 1.

Um JA oder NEIN zu erhalten: Multiplizieren Sie die 0 oder 1 mit 3, entfernen Sie diese Anzahl von Zeichen von 'JA' und nehmen Sie die ersten 3 Zeichen davon.

C 65 Bytes

main(k){scanf("%i",&k);while(k&&!(k%2))k/=2;puts(k==1?"T":"F");}

Haskell ( 52 50)

k n=elem n$map(2^)[1..n]
main=interact$show.k.read