정수가 2의 거듭 제곱인지 확인하는 프로그램을 작성하십시오.

샘플 입력 :

8

샘플 출력 :

Yes

샘플 입력 :

10

샘플 출력 :

No

규칙 :

• +, -작업을 사용하지 마십시오 .

• 숫자를 얻으려면 일종의 입력 스트림을 사용하십시오. 입력은 변수에 초기에 저장되어서는 안됩니다.

• 가장 짧은 코드 (바이트)가 이깁니다.

진실 / 거짓 응답을 사용할 수 있습니다 (예 : true/ false). 입력 번호가보다 크다고 가정 할 수 있습니다 0.

GolfScript, 6 자, 감소 없음

~.3/&!

다음 x & (x-1)은 어떤 형태로든 메소드를 사용하지 않는 솔루션입니다 . x & (x/3)대신 사용 합니다. ;-) 참 0이면 거짓이면 출력 1합니다.

설명:

• ~ 입력 문자열을 회피하여 숫자로 변환
• .그것을 복제합니다 (다음에 &).
• 3/ 3으로 나눕니다 (잘라 내기).
• & 원래 값으로 나눈 값의 비트 AND를 계산합니다. 입력이 0이거나 2의 거듭 제곱 (즉, 최대 하나의 비트 세트가있는 경우) 인 경우에만 0이됩니다.
• ! 0을 1로, 다른 모든 값을 0으로 매핑하여 논리적으로 이것을 무시합니다.

노트:

• 명확한 규칙에 따라 0은 유효한 입력이 아니므로1 입력이 0 인 경우 에도 출력되지만이 코드는 정상 입니다.

• GolfScript 감소 연산자 (가 허용되면 aditsu 가 게시 한 5 자 솔루션 이면 충분합니다. 그러나 그것은 문자가 아니라면 규칙의 정신에 위배 되는 것 같습니다 .~.(&!

• 나는 x & (x/3)Fun With Perl 메일 링리스트에서 몇 년 전에 트릭을 생각 해냈다. (저는 그것을 처음 발견 한 것이 아니라고 생각하지만, 독립적으로 (재) 발행했습니다.) 여기 에는 실제로 작동한다는 증거를 포함 하여 원본 게시물에 대한 링크가 있습니다.

APL (7)

예, 7 바이트 입니다. 유니 코드 대신 IBM 코드 페이지 907을 사용하고 각 문자가 바이트 인 순간을 가정하십시오. :)

0=1|2⍟⎕

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

GolfScript, 11 (1 (참) 및 0 (거짓))

.,{2\?}%?0>

스택에 숫자를 넣은 다음 실행하십시오.

GolfScript, 22 (예 / 아니오)

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

변환 어떻게 사랑 1/ 0에 Yes/ No도전 자체가 많은 코드로합니다 : D를

경고 : 매우 비효율적 인;) 최대 10000까지의 숫자에는 정상적으로 작동하지만 일단 그 높이에 도달하면 약간의 지연이 발생하기 시작합니다.

설명:

• .,: ( 복제, 0..n 범위) n로 바뀝니다.n 0..n.,
• {2\?}: 2의 거듭 제곱
• %: "0..n"위에 "power of 2"를 매핑하여 n [1 2 4 8 16 ...]
• ?0>: 배열에 숫자가 포함되어 있는지 확인합니다 (0이 인덱스보다 큼)

매스 매 티카 28

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

2의 정수 제곱의 경우 밑이 2 인 로그의 분자는 1이됩니다 (로그가 단위 분수임을 나타냄).

여기에서는 추정 입력을 표시하도록 함수를 약간 수정합니다. 우리 는 순수한 기능을 정의하기 위해 #대신 사용 Input[]하고 추가 &합니다. 사용자가 위 함수에 숫자를 입력하면 반환되는 것과 동일한 답변을 반환합니다.

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

참
거짓

한 번에 여러 숫자를 테스트합니다.

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

{참, 참, 거짓, 거짓}

Perl 6 (17 자)

say get.log(2)%%1

이 프로그램은 STDIN get함수 에서 한 줄을 가져오고 밑이 2 인 로그 ( log(2))를 계산 하고 결과가 1 ( %%1, 여기서 %%연산자로 나눔)로 나뉘 는지 확인합니다 . GolfScript 솔루션만큼 짧지는 않지만 이것이 허용됩니다 (GolfScript는 모든 것을 이깁니다). 그러나 Perl 6이 느리다는 것을 고려하더라도 더 빠릅니다.

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

옥타브 ( 15 23)

편집 : 사용자 입력 요구 사항으로 인해 업데이트되었습니다.

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

사용자가 값을 입력하고 1은 true, 0은 false를 출력합니다.

Octave에서 테스트되었으며 Matlab에서도 작동합니다.

제 13 권

Perl 솔루션을 기반으로합니다. 반환 FALSE또는 TRUE.

!log2(i)%%1

매개 변수 i는 입력 변수를 나타냅니다.

사용자 입력이있는 대체 버전 :

!log2(scan())%%1

골프 스크립트, 5

1을 true로, 0을 false로 출력합니다. user3142747의 아이디어를 기반으로 :

~.(&!

참고 : (같은 희망은 계산하지 않습니다, 감소입니다 -:)
는 않습니다 (그리고 OP의 코멘트가 수도하는 것이 좋습니다) 경우, 다음을 참조하십시오 Ilmari 카로 넨의 솔루션 대신.
Y / N 출력의 'NY'1/=경우 끝에 7 바이트를 더하십시오.

파이썬, 31

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

C, 48

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

인구 수 또는 측면 수 (1 비트 수)의 합 을 기반으로 다른 접근법을 사용하기로 결정했습니다 . 아이디어는 2의 모든 거듭 제곱은 정확히 하나의 1비트를 가지며 다른 숫자는 없다는 것입니다. 골프 경기에서 확실히 이길 수는 없지만 JavaScript 버전을 추가했습니다.

J, 14 15 자 (출력 0 또는 1)

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

자바 스크립트, 76 자 (참 또는 거짓 출력)

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

클립 , 9 8 7

!%lnxWO

stdin에서 숫자를 읽습니다.

설명:

시작하는, Z= 0, W= 2및 O= 1이 허용의 배치 W및 O사용하는 반면, 서로 이웃 2하고 1분액 공간 (원하지 않는 추가적인 문자)없이 숫자 (21)로 해석 될 것이다. Clip에서 모듈러스 함수 ( %)는 정수가 아닌 정수에서 작동하므로 일부 값 v이 정수인지 확인하려면 vmod 1 = 0 인지 확인합니다. Clip 구문을 사용하면이 값이로 작성됩니다 =0%v1. 그러나 부울이 1(또는 다른 것) 으로 저장되어 있기 때문에 0무언가가 같은지 확인하는 0것은 단지 '하지 않습니다. 이를 위해 Clip에는 !연산자가 있습니다. 내 코드에서 v입니다 lnx2. xstdin의 입력입니다.n문자열을 숫자로 변환하고의 lablog base b입니다 a. 따라서이 프로그램은 (더 읽기 쉽게)로 번역됩니다 0 = ((log base 2 of parseInt(readLine)) mod 1).

예 :

8

출력

1

과

10

출력

0

편집 1 : 대체 0, 1그리고 2와 Z, O와 W.

편집 2 :로 대체 =Z되었습니다 !.

또한:

파이스 , 5

Pyth에는 일반 로그 (a, b) 대신 이미 평가 된 입력 및 log2 (a) 함수에 대해 Q가 있으므로 클립 버전을 더욱 압축합니다.

!%lQ1

자바 스크립트 (37)

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

2로 반복해서 나누고 나머지를 확인하는 간단한 스크립트.

매스 매 티카 (21)

IntegerQ@Log2@Input[]

입력이 없으면 조금 짧습니다

IntegerQ@Log2[8]

참된

IntegerQ@Log2[7]

그릇된

JavaScript, 41 40 자

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

작동 방식 : 2를 사용하여 로그를 가져옵니다. l(prompt()) / l(2) 결과 모듈로 1이 0이면 2의 거듭 제곱입니다.

예를 들어, log on base on 8 2을 얻으면을 얻습니다 3. 3 modulo 10과 같으므로 true를 반환합니다.

밑이 2 인 7의 로그를 취하면을 얻습니다 2.807354922057604. 2.807354922057604 modulo 1이 같으 0.807354922057604므로 false를 반환합니다.

자바 스크립트, 35

바이트에서 작동합니다.

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

46 자 버전 , 16 비트 숫자에서 작동합니다.

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

이 트릭은 대부분의 동적 언어에서 작동합니다.

설명 : 숫자를 기수 2로 변환하고 해당 문자열을 기수 10으로 해석하고 모듈로 9를 수행하여 숫자 합계 (1이어야 함)를 가져 오십시오.

Perl 5.10+, 13 + 1 = 14 자

say!($_&$_/3)

기존 FWP 스레드 에서 내 GolfScript 항목 과 동일한 방법 을 사용합니다 . 1입력이 2의 거듭 제곱 인 경우 인쇄 하고, 그렇지 않으면 빈 줄을 인쇄합니다.

다음을 실행해야합니다 perl -nE. 는 n 하나 개의 여분의 문자 요금 14 개 문자의 총. 또는 다음 이 필요하지 않은 18 자 버전입니다 n.

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

파이썬 3, 38

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

파이썬, 32

그러나 코드가 모든 버전에서 작동하지는 않습니다.

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

솔루션은 0 (인쇄 False)에도 작동합니다.

루비 — 17 자 (4 번째 시도)

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

내 현재 최고는 @steenslag의 답변과 내 자신의 융합입니다. 아래는 나의 이전 시도입니다.

루비 — 19 자 (세 번째 시도)

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

루비 — 22 자 (두 번째 시도)

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

루비 — 24 자 (첫 번째 시도)

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

K/Kona (24 17)

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

Returns 1 if true and 0 if false. Any power of 2 has a single bit equal to 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)

(this prints out all the powers of 2 (from 0 to 9) in binary)

So I sum up all the components of the binary expression of x and see if it's equal to 1; if yes then x=2^n, otherwise nope.

...knew I could make it smaller

C# (54 characters)

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

Rebmu (9 chars)

z?MOl2A 1

Test

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

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

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

Rebmu is a constricted dialect of Rebol. The code is essentially:

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

Alternative

14 chars—Rebmu does not have a 'mushed' bitwise 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'

Doesn't use not only +/- operations, but any math operations aside from converting to binary form.

Other stuff (interesting, but not for competition):

I have also a regexp version (61):

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

(Love the idea, but import and match function make it too long)

And nice, but boring bitwise operations version (31):

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

(yes, it's shorter, but it uses ~-x for decrement which comtains - operation)

Python 2.7 (30 29 39 37)

EDIT: Updated due to user input requirement;

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

Brute force, try to divide until =1 (success) or <1 (fail)

Python (33)

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

Ruby, 33, 28, 25

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

APL (12 for 0/1, 27 for yes/no)

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

or, if we must output text:

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

Read in A. Form a vector 0..A, then a vector 2⁰..2^A (yes, that's way more than necessary), then a vector comparing A with each of those (resulting in a vector of 0's and at most one 1), then xor that (there's no xor operator in APL, but ≠ applied to booleans will act as one.) We now have 0 or 1.

To get YES or NO: multiply the 0 or 1 by 3, drop this number of characters from 'YESNO ', then take the first 3 characters of this.

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