Escreva um programa que verifique se o número inteiro é uma potência de 2.

Entrada de amostra:

8

Saída de amostra:

Yes

Entrada de amostra:

10

Saída de amostra:

No

Regras:

• Não use +, -operações.

• Use algum tipo de fluxo de entrada para obter o número. A entrada não deve ser inicialmente armazenada em uma variável.

• O código mais curto (em bytes) vence.

Você pode usar qualquer resposta de verdade / falsidade (por exemplo, true/ false). Você pode assumir que o número de entrada é maior que 0.

GolfScript, 6 caracteres, sem decréscimos

~.3/&!

Aqui está uma solução que não usa o x & (x-1)método de nenhuma forma. Ele usa em seu x & (x/3)lugar. ;-) Saídas 0se false, 1se true.

Explicação:

• ~ avalia a sequência de entrada para transformá-la em um número,
• .duplica (para o subsequente &),
• 3/ divide por três (truncando para baixo),
• & calcula o AND bit a bit do valor dividido com o original, que será zero se e somente se a entrada for zero ou uma potência de dois (ou seja, tiver no máximo um bit definido), e
• ! nega isso logicamente, mapeando zero para um e todos os outros valores para zero.

Notas:

• De acordo com as regras esclarecidas, zero não é uma entrada válida ; portanto, este código está OK, mesmo que seja emitido 1se a entrada for zero.

• Se o operador de decremento GolfScript (for permitido, a solução de 5 caracteres ~.(&! postada pelo aditsu é suficiente. No entanto, parece ir contra o espírito das regras , se não a letra.

• Eu inventei o x & (x/3)truque anos atrás na lista de discussão Fun With Perl. (Tenho certeza de que não sou o primeiro a descobri-lo, mas o (re) inventei de forma independente.) Aqui está um link para a postagem original , incluindo uma prova de que ela realmente funciona.

APL (7)

Sim, são 7 bytes . Suponha que eu esteja usando a página de códigos IBM 907 em vez de Unicode e, em seguida, cada caractere seja um byte :)

0=1|2⍟⎕

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

GolfScript, 11 (para 1 (verdadeiro) e 0 (falso))

.,{2\?}%?0>

Coloque o número na pilha e depois execute.

GolfScript, 22 (para Sim / Não)

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

Eu amo como converter 1/ 0para Yes/ Noleva tanto código quanto o próprio desafio: D

Aviso: EXTREMAMENTE ineficiente;) Funciona bem para números de até 10000, mas depois que você chega tão alto, começa a notar um ligeiro atraso.

Explicação:

• .,: transforma n- se em n 0..n( .duplicado, ,intervalo 0..n)
• {2\?}: ao poder de 2
• %: mapeie "poder de 2" sobre "0..n" para que se torne n [1 2 4 8 16 ...]
• ?0>: verifica se a matriz contém o número (0 é maior que o índice)

Mathematica 28

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

Para potências inteiras de 2, o numerador do log da base 2 será 1 (o que significa que o log é uma fração da unidade).

Aqui, modificamos ligeiramente a função para exibir a entrada presumida. Usamos #no lugar de Input[]e adicionamos &para definir uma função pura. Retorna a mesma resposta que seria retornada se o usuário digitar o número na função acima.

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

Verdadeiro
Falso

Testando vários números de cada vez.

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

{Verdadeiro, Verdadeiro, Falso, Falso}

Perl 6 (17 caracteres)

say get.log(2)%%1

Este programa obtém uma linha da getfunção STDIN , calcula o logaritmo com base 2 nela ( log(2)) e verifica se o resultado é dividido por 1 ( %%1, onde %%é dividido pelo operador). Não tão curto quanto a solução GolfScript, mas acho isso aceitável (o GolfScript ganha tudo de qualquer maneira), mas muito mais rápido (mesmo considerando que o Perl 6 está lento no momento).

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

Oitava ( 15 23)

EDIT: atualizado devido ao requisito de entrada do usuário;

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

Permite que o usuário insira um valor e produz 1 para true, 0 para false.

Testado em oitava, também deve funcionar no Matlab.

R, 13 11

Baseado na solução Perl. Retorna FALSEou TRUE.

!log2(i)%%1

O parâmetro irepresenta a variável de entrada.

Uma versão alternativa com entrada do usuário:

!log2(scan())%%1

GolfScript, 5

Saídas 1 para verdadeiro, 0 para falso. Com base na ideia de user3142747:

~.(&!

Nota: (é decrescente, espero que não conte como -:)
Se sim (e os comentários do OP sugerem que sim), consulte a solução de Ilmari Karonen .
Para saída Y / N, acrescente 'NY'1/=no final (mais 7 bytes).

Python, 31

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

C, 48

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

Decidi usar outra abordagem, com base na contagem da população ou na soma lateral do número (o número de 1 bits). A idéia é que todos os poderes de dois tenham exatamente um 1bit e nenhum outro número. Eu adicionei uma versão JavaScript porque achei divertido, embora certamente não vença nenhuma competição de golfe.

J, 14 15 caracteres (saídas 0 ou 1)

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

JavaScript, 76 caracteres (gera verdadeiro ou falso)

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

Clipe , 9 8 7

!%lnxWO

Lê um número de stdin.

Explicação:

Para começar, Z= 0, W= 2e O= 1. Isso permite a colocação de We Oao lado do outro, ao passo que utilizando 2e 1seria interpretada como o número 21, sem um espaço de separação (um carácter adicional indesejada). No Clip, a função modulo ( %) funciona em não-inteiros; portanto, para descobrir se algum valor vé um número inteiro, verifique se vmod 1 = 0. Usando a sintaxe do Clip, isso é escrito como =0%v1. No entanto, como os booleanos são armazenados como 1(ou qualquer outra coisa) e 0, verificar se algo é igual 0é apenas 'not'ing'. Para isso, o Clip possui o !operador. No meu código, vé lnx2. xé uma entrada do stdin,nconverte uma string em um número e labé a base bde log de a. O programa traduz, portanto, (mais facilmente) para 0 = ((log base 2 of parseInt(readLine)) mod 1).

Exemplos:

8

saídas

1

e

10

saídas

0

Edit 1: substituído 0, 1e 2com Z, Oe W.

Editar 2: substituído =Zpor !.

Além disso:

Pitão , 5

Compacta a versão do Clip ainda mais, pois Pyth possui Q para a entrada já avaliada e uma função log2 (a) em vez de apenas o log geral (a, b).

!%lQ1

Javascript (37)

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

Script simples que apenas divide por 2 repetidamente e verifica o restante.

Mathematica (21)

IntegerQ@Log2@Input[]

Sem entrada, é um pouco menor

IntegerQ@Log2[8]

Verdade

IntegerQ@Log2[7]

Falso

JavaScript, 41 40 caracteres

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

Como isso funciona: você usa o logaritmo na base 2 usando l(prompt()) / l(2), e se o resultado do módulo 1 for igual a zero, será uma potência de 2.

Por exemplo: depois de pegar o logaritmo de 8 na base 2, você recebe 3. 3 modulo 1é igual a 0, então isso retorna verdadeiro.

Depois de pegar o logaritmo de 7 na base 2, você recebe 2.807354922057604. 2.807354922057604 modulo 1é igual a 0.807354922057604, então isso retorna false.

JavaScript, 35

Funciona para bytes.

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

Versão de 46 caracteres , funciona para números de 16 bits.

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

O truque funciona nas linguagens mais dinâmicas.

Explicação: Converta o número na base 2, interprete essa sequência como base 10, execute o módulo 9 para obter a soma dos dígitos, que deve ser 1.

Perl 5.10+, 13 + 1 = 14 caracteres

say!($_&$_/3)

Usa o mesmo método a partir de um fio de FWP de idade como a minha entrada GolfScript . Imprime 1se a entrada for uma potência de dois e, caso contrário, uma linha vazia.

Precisa ser executado perl -nE; o n custo é de um caractere extra , para um total de 14 caracteres. Como alternativa, aqui está uma versão de 18 caracteres que não precisa de n:

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

python 3, 38

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

python, 32

No entanto, o código não funciona em todas as versões.

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

Observe que a solução também funciona para 0 (imprimir False).

Ruby - 17 caracteres (quarta tentativa)

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

Meu melhor atual é uma fusão da resposta de @ steenslag com a minha. Abaixo estão minhas tentativas anteriores.

Ruby - 19 caracteres (terceira tentativa)

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

Ruby - 22 caracteres (segunda tentativa)

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

Ruby - 24 caracteres (primeira tentativa)

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

K / Kona ( 24 17)

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

Retorna 1 se verdadeiro e 0 se falso. Qualquer potência de 2 tem um único bit igual a 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)

(isso imprime todos os poderes de 2 (de 0 a 9) em binário)

Então, resumo todos os componentes da expressão binária de xe vejo se é igual a 1; se sim x=2^n, então , caso contrário não.

... sabia que eu poderia torná-lo menor

C # (54 caracteres)

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

Rebmu (9 caracteres)

z?MOl2A 1

Teste

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

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

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

Rebmu é um dialeto restrito de Rebol. O código é essencialmente:

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

Alternativo

14 caracteres - Rebmu não tem um 'amassado' AND ~

z?AND~aTIddA 3

Em 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'

Não usa não apenas operações +/-, mas qualquer operação matemática, além de converter para a forma binária.

Outras coisas (interessantes, mas não para competição):

Eu também tenho uma versão regexp (61) :

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

(Adoro a ideia, mas a função de importação e correspondência a torna muito longa)

E agradável, mas chata versão de operações bit a bit (31) :

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

(sim, é mais curto, mas usa ~ -x para diminuir o que inclui - operação)

Python 2.7 ( 30 29 39 37)

EDIT: atualizado devido ao requisito de entrada do usuário;

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

Força bruta, tente dividir até = 1 (sucesso) ou <1 (falha)

Python (33)

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

Ruby, 33 , 28 , 25

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

APL (12 para 0/1, 27 para sim / não)

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

ou, se precisarmos gerar texto:

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

Leia em A. Forme um vetor 0..A, depois um vetor 2 ⁰ ..2 ^A (sim, isso é muito mais do que necessário), depois um vetor comparando A com cada um deles (resultando em um vetor de 0 e no máximo um 1), depois xor que (não há operador xor no APL, mas ≠ aplicado aos booleanos atuará como um). Agora, temos 0 ou 1.

Para obter SIM ou NÃO: multiplique 0 ou 1 por 3, solte esse número de caracteres de 'YESNO' e, em seguida, pegue os 3 primeiros caracteres.

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