Écrivez un programme qui vérifie si l'entier est une puissance de 2.

Exemple d'entrée:

8

Exemple de sortie:

Yes

Exemple d'entrée:

10

Exemple de sortie:

No

Règles:

• Ne pas utiliser +, les -opérations.

• Utilisez une sorte de flux d'entrée pour obtenir le nombre. L'entrée n'est pas censée être initialement stockée dans une variable.

• Le code le plus court (en octets) gagne.

Vous pouvez utiliser n'importe quelle réponse véridique / fausse (par exemple, true/ false). Vous pouvez supposer que le nombre d'entrée est supérieur à 0.

GolfScript, 6 caractères, pas de diminutions

~.3/&!

Voici une solution qui n'utilise la x & (x-1)méthode sous aucune forme. Il utilise à la x & (x/3)place. ;-) Sorties 0si faux, 1si vrai.

Explication:

• ~ évalue la chaîne d'entrée pour la transformer en nombre,
• .le duplique (pour le suivant &),
• 3/ le divise par trois (tronquer),
• & calcule l'ET au niveau du bit de la valeur divisée avec l'original, qui sera nul si et seulement si l'entrée est nulle ou une puissance de deux (c'est-à-dire a au plus un ensemble de bits), et
• ! nie logiquement cela, mappant zéro à une et toutes les autres valeurs à zéro.

Remarques:

• Selon les règles clarifiées, zéro n'est pas une entrée valide , donc ce code est OK, même s'il génère1 si l'entrée est zéro.

• Si l'opérateur de décrémentation GolfScript (est autorisé, la solution à 5 caractères ~.(&! publiée par aditsu est suffisante. Cependant, cela semble aller à l' encontre de l'esprit des règles , sinon de la lettre.

• J'ai trouvé cette x & (x/3)astuce il y a des années sur la liste de diffusion Fun With Perl. (Je suis sûr que je ne suis pas le premier à le découvrir, mais je l'ai (ré) inventé indépendamment.) Voici un lien vers le message d'origine , y compris une preuve qu'il fonctionne réellement.

APL (7)

Oui, c'est 7 octets . Supposons pour le moment que j'utilise IBM codepage 907 au lieu d'Unicode, puis chaque caractère est un octet :)

0=1|2⍟⎕

c'est à dire 0 = mod(log(input(),2),1)

GolfScript, 11 (pour 1 (vrai) et 0 (faux))

.,{2\?}%?0>

Mettez le numéro sur la pile, puis exécutez.

GolfScript, 22 (pour Oui / Non)

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

J'adore comment convertir 1/ 0vers Yes/No prend autant de code que le défi lui-même: D

Avertissement: EXTRÊMEMENT inefficace;) Cela fonctionne très bien pour les nombres jusqu'à 10000, mais une fois que vous atteignez ce niveau, vous commencez à remarquer un léger décalage.

Explication:

• .,: se transforme nen n 0..n( .doublon, ,plage 0..n)
• {2\?}: au pouvoir de 2
• %: mappez "puissance de 2" sur "0..n" pour qu'il devienne n [1 2 4 8 16 ...]
• ?0>: vérifie si le tableau contient le nombre (0 est supérieur à l'index)

Mathematica 28

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

Pour les puissances entières de 2, le numérateur du log de base 2 sera 1 (ce qui signifie que le log est une fraction unitaire).

Ici, nous modifions légèrement la fonction pour afficher l'entrée présumée. Nous utilisons #à la place de Input[]et ajoutons &pour définir une fonction pure. Il renvoie la même réponse que celle qui serait renvoyée si l'utilisateur saisissait le numéro dans la fonction ci-dessus.

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

Vrai
Faux

Test de plusieurs numéros à la fois.

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

{Vrai, vrai, faux, faux}

Perl 6 (17 caractères)

say get.log(2)%%1

Ce programme obtient une ligne de la getfonction STDIN , calcule le logarithme avec la base 2 dessus ( log(2)), et vérifie si le résultat se divise par 1 ( %%1, où %%est divisé par l'opérateur). Pas aussi court que la solution GolfScript, mais je trouve cela acceptable (GolfScript gagne tout de toute façon), mais beaucoup plus rapide (même si Perl 6 est lent en ce moment).

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

Octave ( 15 23)

EDIT: mis à jour en raison des exigences d'entrée de l'utilisateur;

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

Permet à l'utilisateur de saisir une valeur et de sortir 1 pour vrai, 0 pour faux.

Testé en Octave, devrait également fonctionner en Matlab.

R, 13 11

Basé sur la solution Perl. Renvoie FALSEou TRUE.

!log2(i)%%1

Le paramètre ireprésente la variable d'entrée.

Une version alternative avec entrée utilisateur:

!log2(scan())%%1

GolfScript, 5

Sorties 1 pour vrai, 0 pour faux. Basé sur l'idée de user3142747:

~.(&!

Remarque: (est décrément, j'espère que cela ne compte pas comme- :)
Si c'est le cas (et les commentaires du PO suggèrent que cela pourrait le faire), veuillez vous référer à la solution d'Ilmari Karonen à la place.
Pour la sortie Y / N, ajoutez 'NY'1/=à la fin (7 octets supplémentaires).

Python, 31

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

C, 48

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

J'ai décidé d'utiliser une autre approche, basée sur le nombre d'habitants ou la somme latérale du nombre (le nombre de 1 bits). L'idée est que tous les pouvoirs de deux ont exactement un 1bit, et aucun autre nombre n'en a. J'ai ajouté une version JavaScript parce que je l'ai trouvée amusante, même si elle ne gagnera certainement pas de compétition de golf.

J, 14 15 caractères (sorties 0 ou 1)

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

JavaScript, 76 caractères (sorties vrai ou faux)

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

Clip , 9 8 7

!%lnxWO

Lit un nombre depuis stdin.

Explication:

Pour commencer, Z= 0, W= 2et O= 1. Cela permet de placer de Wet à Ocôté de l'autre, alors que l' utilisation 2et 1serait interprété comme le nombre 21 sans espace de séparation (un caractère supplémentaire non désiré). Dans Clip, la fonction modulo ( %) fonctionne sur des non-entiers, donc, pour savoir si une valeur vest un entier, vous vérifiez si vmod 1 = 0. En utilisant la syntaxe Clip, cela s'écrit =0%v1. Cependant, comme les booléens sont stockés sous 1(ou quoi que ce soit d'autre) et 0, vérifier si quelque chose est égal à 0est simplement «ne pas le faire». Pour cela, Clip a l' !opérateur. Dans mon code, vc'est lnx2. xest une entrée de stdin,nconvertit une chaîne en nombre etlabest la base bde log de a. Le programme se traduit donc (de manière plus lisible) par 0 = ((log base 2 of parseInt(readLine)) mod 1).

Exemples:

8

les sorties

1

et

10

les sorties

0

Edit 1: remplacé 0, 1et 2avec Z, OetW .

Edit 2: remplacé =Zpar! .

Également:

Pyth , 5

Compresse encore plus la version Clip, car Pyth a Q pour une entrée déjà évaluée et une fonction log2 (a) au lieu d'un simple journal général (a, b).

!%lQ1

Javascript (37)

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

Script simple qui se divise simplement par 2 à plusieurs reprises et vérifie le reste.

Mathématique (21)

IntegerQ@Log2@Input[]

Sans entrée, c'est un peu plus court

IntegerQ@Log2[8]

Vrai

IntegerQ@Log2[7]

Faux

JavaScript, 41 40 caractères

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

Comment cela fonctionne: vous prenez le logarithme à la base 2 en utilisant l(prompt()) / l(2), et si ce résultat modulo 1 est égal à zéro, alors c'est une puissance de 2.

Par exemple: après avoir pris le logarithme de 8 sur la base 2, vous obtenez 3. 3 modulo 1est égal à 0, donc cela renvoie vrai.

Après avoir pris le logarithme de 7 sur la base 2, vous obtenez 2.807354922057604. 2.807354922057604 modulo 1est égal à 0.807354922057604, ce qui renvoie false.

JavaScript, 35

Fonctionne pour les octets.

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

Version à 46 caractères , fonctionne pour les nombres à 16 bits.

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

L'astuce fonctionne dans la plupart des langues dynamiques.

Explication: Convertissez le nombre en base 2, interprétez cette chaîne comme base 10, faites modulo 9 pour obtenir la somme des chiffres, qui doit être 1.

Perl 5.10+, 13 + 1 = 14 caractères

say!($_&$_/3)

Utilise la même méthode d'un ancien thread FWP que mon entrée GolfScript . Imprime 1si l'entrée est une puissance de deux, et une ligne vide sinon.

Doit être exécuté avec perl -nE; les n coûts un caractère supplémentaire , pour un total de 14 caractères. Alternativement, voici une version à 18 caractères qui n'a pas besoin de n:

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

python 3, 38

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

python, 32

Cependant, le code ne fonctionne pas dans toutes les versions.

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

Notez que la solution fonctionne également pour 0 (affichez False).

Ruby - 17 caractères (quatrième essai)

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

Mon meilleur moment est une fusion de la réponse de @ steenslag avec la mienne. Voici mes précédentes tentatives.

Ruby - 19 caractères (troisième essai)

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

Ruby - 22 caractères (deuxième essai)

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

Ruby - 24 caractères (premier essai)

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

K / Kona ( 24 17)

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

Renvoie 1 si vrai et 0 si faux. Toute puissance de 2 a un seul bit égal à 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)

(cela affiche toutes les puissances de 2 (de 0 à 9) en binaire)

Je résume donc toutes les composantes de l'expression binaire de x et vois si elle est égale à 1; si oui x=2^n, sinon non.

... je savais que je pouvais le rendre plus petit

C # (54 caractères)

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

Rebmu (9 caractères)

z?MOl2A 1

Tester

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

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

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

Rebmu est un dialecte resserré de Rebol. Le code est essentiellement:

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

Alternative

14 caractères — Rebmu n'a pas de bit au niveau «ET» ET ~

z?AND~aTIddA 3

À Rebol:

zero? a & to-integer a / 3

GTB , 46 octets

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'

N'utilise pas seulement les opérations +/-, mais toutes les opérations mathématiques à part la conversion en forme binaire.

Autres trucs (intéressants, mais pas pour la compétition):

J'ai également une version regexp (61) :

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

(J'adore l'idée, mais la fonction d'importation et de correspondance la rend trop longue)

Et une version d'opérations au niveau du bit sympa mais ennuyeuse (31) :

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

(oui, c'est plus court, mais il utilise ~ -x pour décrémenter ce qui contient - opération)

Python 2.7 ( 30 29 39 37)

EDIT: mis à jour en raison des exigences d'entrée de l'utilisateur;

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

Force brute, essayez de diviser jusqu'à = 1 (succès) ou <1 (échec)

Python (33)

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

Rubis, 33 , 28 , 25

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

APL (12 pour 0/1, 27 pour oui / non)

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

ou, si nous devons sortir du texte:

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

Lire en A. Former un vecteur 0..A, puis un vecteur 2 ⁰ ..2 ^A (oui, c'est bien plus que nécessaire), puis un vecteur comparant A à chacun d'eux (résultant en un vecteur de 0 et au plus un 1), puis xor que (il n'y a pas d'opérateur xor dans APL, mais ≠ appliqué aux booléens agira comme un.) Nous avons maintenant 0 ou 1.

Pour obtenir OUI ou NON: multipliez le 0 ou 1 par 3, supprimez ce nombre de caractères de 'OUI NON', puis prenez les 3 premiers caractères de cela.

C, 65 octets

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