Tamsayının 2 olup olmadığını kontrol eden bir program yazın.

Örnek giriş:

8

Örnek çıktı:

Yes

Örnek giriş:

10

Örnek çıktı:

No

Kurallar:

• Kullanmayın +, -işlemler.

• Numarayı almak için bir tür giriş akışı kullanın. Girişin başlangıçta bir değişkende saklanması gerekmiyor.

• En kısa kod (bayt cinsinden) kazanır.

Herhangi bir truthy / falsy yanıtını kullanabilirsiniz (örneğin, true/ false). Giriş numarasının büyük olduğunu varsayabilirsiniz 0.

GolfScript, 6 karakter, azalma yok

~.3/&!

İşte kullanmayan bir çözüm x & (x-1)yöntemi herhangi formda. Bunun x & (x/3)yerine kullanır . ;-) 0False 1ise çıktı, true ise.

Açıklama:

• ~ sayıyı döndürmek için giriş dizesini değiştirir,
• .kopyalar (sonrakiler için &),
• 3/ üçe bölünür (kısaltılır),
• & bölünmüş değerin bit cinsinden AND değerini orijinalle hesaplar; bu değer, yalnızca giriş sıfırsa veya ikinin gücü olduğunda (yani en fazla bir bit ayarlanmışsa) sıfır olur ve
• ! Mantıksal olarak bunu reddeder, sıfıra bir ile diğer tüm değerleri sıfıra eşler.

Notlar:

• Açıklanan kurallara göre, sıfır geçerli bir giriş değildir , bu nedenle 1giriş sıfır olsa bile çıktı verilmesine rağmen bu kod tamamdır .

• GolfScript azaltma işlecine (izin verilirse, aditsu tarafından gönderilen 5 karakterlik çözüm yeterlidir. Ancak, mektubu değilse , kuralların ruhuna aykırı görünüyor .~.(&!

• x & (x/3)Hile ile yıllar önce Fun With Perl posta listesine geldim . (Onu ilk keşfeden ben değilim, fakat bağımsız olarak icat ettim (yeniden).) İşte, asıl işe yaradığının bir kanıtı da dahil olmak üzere , asıl gönderiye bir link .

APL (7)

Evet, bu 7 bayttır . Şu an için Unicode yerine IBM codepage 907 kullandığımı ve sonra her karakterin bir bayt olduğunu varsayalım :)

0=1|2⍟⎕

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

GolfScript, 11 (1 (doğru) ve 0 (yanlış))

.,{2\?}%?0>

Numarayı yığına koyun ve sonra çalıştırın.

GolfScript, 22 (Evet / Hayır için)

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

Dönüştürme nasıl Seviyorum 1/ 0için Yes/ Nomeydan kendisi kadar kod olarak alır: D

Uyarı: KESİNLİKLE verimsiz;) 10000'e kadar sayılar için iyi çalışıyor, ancak bir kez o kadar yükselirseniz hafif bir gecikme fark etmeye başlarsınız.

Açıklama:

• .,: Dönüşler niçine n 0..n( .yinelenen, ,0..n aralık)
• {2\?}: 2 gücüne
• %: harita "2" nin gücü "0..n" yerine n [1 2 4 8 16 ...]
• ?0>: dizinin sayı içerip içermediğini kontrol eder (0, indeksten büyüktür)

Mathematica 28

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

2 tamsayılı güçler için, 2 baz kütüğünün payı 1 olacaktır (kütüğün bir birim kesir olduğu anlamına gelir).

Burada varsayılan girişi görüntülemek için fonksiyonu biraz değiştiriyoruz. Biz kullanmak #yerine Input[]ve eklemek &saf fonksiyonunu tanımlamak için. Kullanıcı yukarıdaki fonksiyonda sayıyı girerse geri döndürülecek cevabı verir.

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

Doğru
Yanlış

Bir seferde birkaç sayıyı test etmek.

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

{Doğru, Doğru, Yanlış, Yanlış}

Perl 6 (17 karakter)

say get.log(2)%%1

Bu program, STDIN'den bir hattı alır get, fonksiyon o (ilgili taban 2 ile logaritma hesaplar log(2)(1 ile böler varsa) ve kontrol %%1, %%operatörün bölme olan). GolfScript çözümü kadar kısa değil, ama bunu kabul edilebilir buluyorum (GolfScript zaten her şeyi kazanıyor), ama çok daha hızlı (Perl 6'nın şu anda yavaş olduğunu düşünüyor olsa bile).

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

Oktav ( 15 23)

EDIT: Kullanıcı girişi gereksinimi nedeniyle güncellendi;

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

Kullanıcının bir değer girmesine izin verir ve true için 1, false için 0 verir.

Octave'da test edilmiş, Matlab'da da çalışmalı.

R, 13 11

Perl çözümüne göre. FALSEVeya döndürür TRUE.

!log2(i)%%1

Parametre i, giriş değişkenini temsil eder.

Kullanıcı girişi olan alternatif bir versiyon:

!log2(scan())%%1

GolfScript, 5

Doğru için 1, yanlış için 0 çıktı. User3142747'nin fikrine dayanarak:

~.(&!

Not: (Azalmadır, umarım sayılmaz -:)
Olursa (ve OP'nin yorumları olabileceğini söylüyorsa), lütfen bunun yerine Ilmari Karonen'in çözümüne bakın .
Y / N çıktısı 'NY'1/=için sonuna ekleyin (7 bayt daha).

Python, 31

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

C, 48

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

Nüfus sayımına veya sayının yan toplamına (1-bit sayısı) dayanarak başka bir yaklaşım kullanmaya karar verdim . Fikir, ikisinin tüm güçlerinin tam olarak bir 1bitinin olduğu ve başka hiçbir sayının olmadığıdır. Bir JavaScript sürümü ekledim çünkü eğlenceli buldum, ancak kesinlikle herhangi bir golf yarışmasını kazanmayacak.

J, 14 15 karakter (0 veya 1 çıkış)

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

JavaScript, 76 karakter (çıktılar doğru veya yanlış)

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

Klips , 9 8 7

!%lnxWO

Stdin'den bir sayı okur.

Açıklama:

Z= 0, W= 2Ve O= 1 ile başlamak . Bu, birbirinin içine Wve Oyanına yerleştirilmesine izin verirken, kullanıldığında 2ve 1aralarında boşluk bırakılmadan 21 sayısı olarak yorumlanmasını (istenmeyen bir ekstra karakter) sağlar. Klip'te, modulo işlevi ( %) tamsayı olmayanlar üzerinde çalışır, bu nedenle bazı değerlerin vbir tamsayı olup olmadığını kontrol etmek için, vmod 1 = 0 olup olmadığını kontrol edin . Clip sözdizimini kullanarak, bu şekilde yazılır =0%v1. Bununla birlikte, boolean'lar 1(veya başka bir şey) olarak saklandığı ve 0bir şeyin eşit olup olmadığını kontrol etmek 0sadece 'fark etmiyor'. Bunun için Clip !operatöre sahiptir. Benim kodunda, volduğu lnx2. xstdin'den bir girdidir,nBir dizgiyi sayıya dönüştürür velabgünlük nokta barasında a. Bu nedenle program (daha okunaklı) ile çevrilir 0 = ((log base 2 of parseInt(readLine)) mod 1).

Örnekler:

8

çıktılar

1

ve

10

çıktılar

0

Düzenleme 1: değiştirilir 0, 1ve 2ile Z, Ove W.

Düzenleme 2: değiştirilmiştir =Zile !.

Ayrıca:

Pyth , 5

Pyth, halihazırda değerlendirilmiş girdi için Q'ya ve sadece genel log (a, b) yerine log2 (a) fonksiyonuna sahip olduğundan, Clip versiyonunu daha da sıkıştırır.

!%lQ1

Javascript (37)

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

Basitçe tekrar tekrar 2'ye bölen ve kalanı kontrol eden basit bir komut dosyası.

Mathematica (21)

IntegerQ@Log2@Input[]

Giriş olmadan biraz daha kısa

IntegerQ@Log2[8]

Doğru

IntegerQ@Log2[7]

Yanlış

JavaScript, 41 40 karakter

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

Bu nasıl çalışır: kullanarak üs 2'de logaritma alırsınız l(prompt()) / l(2) ve bu modulo 1 sıfıra eşitse, o zaman 2'nin gücü olur.

Örneğin: 8 logaritmasını baz alındıktan sonra 2elde edersiniz 3.3 modulo 10'a eşittir, bu doğru olur.

2 numaralı üssün 7 logaritmasını aldıktan sonra elde edersiniz 2.807354922057604. 2.807354922057604 modulo 1eşittir 0.807354922057604, bu yüzden yanlış döndürür.

JavaScript, 35

Bayt için çalışıyor.

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

46 karakter sürümü , 16 bit sayılar için çalışır.

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

Hile en dinamik dillerde çalışır.

Açıklama: Sayıyı taban 2'ye dönüştürün, bu dizgiyi taban 10 olarak yorumlayın, 1 olması gereken sayı toplamını elde etmek için modulo 9 yapın.

Perl 5.10+, 13 + 1 = 14 karakter

say!($_&$_/3)

Aynı yöntemi kullanır eski FWP iplikten olarak benim GolfScript girişi . 1Giriş iki gücün ve aksi halde boş bir satırsa yazdırır .

Çalıştırılması Gerekenler perl -nE; n bir ekstra kömürü maliyeti 14 karakter olmak üzere toplam. Alternatif olarak, burada gerekmeyen 18 karakterlik bir sürüm n:

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

python 3, 38

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

python, 32

However, the code doesn't work in every version.

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

Notice that the solution works also for 0 (print False).

Ruby — 17 characters (fourth try)

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

My current best is a fusion of @steenslag's answer with my own. Below are my previous attempts.

Ruby — 19 characters (third try)

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

Ruby — 22 characters (second try)

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

Ruby — 24 characters (first try)

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