Tulis program yang memeriksa apakah bilangan bulat adalah kekuatan 2.

Input sampel:

8

Output sampel:

Yes

Input sampel:

10

Output sampel:

No

Aturan:

• Jangan gunakan +, -operasi.

• Gunakan semacam aliran input untuk mendapatkan nomor. Input semula tidak seharusnya disimpan dalam variabel.

• Kode terpendek (dalam byte) menang.

Anda dapat menggunakan respons yang benar / salah (misalnya, true/ false). Anda dapat berasumsi bahwa jumlah input lebih besar dari 0.

GolfScript, 6 karakter, tanpa pengurangan

~.3/&!

Inilah solusi yang tidak menggunakan x & (x-1)metode dalam bentuk apa pun . Ini menggunakan x & (x/3)sebagai gantinya. ;-) Keluaran 0jika salah, 1jika benar.

Penjelasan:

• ~ evals string input untuk mengubahnya menjadi angka,
• .duplikat (untuk selanjutnya &),
• 3/ membaginya dengan tiga (memotong ke bawah),
• & menghitung bitwise AND dari nilai yang dibagi dengan yang asli, yang akan menjadi nol jika dan hanya jika inputnya nol atau memiliki kekuatan dua (yaitu memiliki paling banyak satu set bit), dan
• ! secara logis meniadakan ini, memetakan nol ke satu dan semua nilai lainnya ke nol.

Catatan:

• Sesuai aturan yang diklarifikasi, nol bukan input yang valid , jadi kode ini tidak apa-apa, meskipun output 1jika inputnya nol.

• Jika operator decrement GolfScript (diperbolehkan, maka 5 karakter solusi ~.(&! diposting oleh aditsu cukup. Namun, tampaknya bertentangan dengan semangat aturan , jika bukan surat itu.

• Saya menemukan x & (x/3)triknya bertahun-tahun yang lalu di milis Fun With Perl. (Saya yakin saya bukan orang pertama yang menemukannya, tetapi saya memang menciptakannya kembali.) Berikut ini tautan ke pos asli , termasuk bukti bahwa itu benar-benar berfungsi.

APL (7)

Ya, itu 7 byte . Asumsikan untuk saat ini saya menggunakan IBM codepage 907 alih-alih Unicode dan kemudian setiap karakter adalah byte :)

0=1|2⍟⎕

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

GolfScript, 11 (untuk 1 (benar) dan 0 (salah))

.,{2\?}%?0>

Masukkan nomor pada tumpukan dan kemudian jalankan.

GolfScript, 22 (untuk Ya / Tidak)

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

Saya suka bagaimana mengkonversi 1/ 0ke Yes/ Nomengambil kode sebanyak tantangan itu sendiri: D

Peringatan: SANGAT tidak efisien;) Tidak berfungsi dengan baik untuk angka hingga 10.000, tetapi begitu Anda mendapatkan setinggi itu, Anda mulai melihat sedikit jeda.

Penjelasan:

• .,: berubah nmenjadi n 0..n( .duplikat, ,rentang 0..n)
• {2\?}: dengan kekuatan 2
• %: memetakan "kekuatan 2" lebih dari "0..n" sehingga menjadi n [1 2 4 8 16 ...]
• ?0>: memeriksa untuk melihat apakah array berisi angka (0 lebih besar dari indeks)

Mathematica 28

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

Untuk kekuatan bilangan bulat 2, pembilang dari log basis 2 akan menjadi 1 (artinya log adalah fraksi satuan).

Di sini kita memodifikasi fungsi sedikit untuk menampilkan input yang diduga. Kami menggunakan #menggantikan Input[]dan menambahkan &untuk mendefinisikan fungsi murni. Ini mengembalikan jawaban yang sama yang akan dikembalikan jika pengguna memasukkan angka dalam fungsi di atas.

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

Benar
salah

Menguji beberapa angka sekaligus.

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

{Benar, Benar, Salah, Salah}

Perl 6 (17 karakter)

say get.log(2)%%1

Program ini mendapat garis dari getfungsi STDIN , menghitung logaritma dengan basis 2 di atasnya ( log(2)), dan memeriksa apakah hasilnya dibagi dengan 1 ( %%1, di mana %%dibagi oleh operator). Tidak sesingkat solusi GolfScript, tapi saya menemukan ini dapat diterima (GolfScript memenangkan segalanya), tetapi lebih cepat (bahkan mengingat Perl 6 sedang lambat saat ini).

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

Oktaf ( 15 23)

EDIT: Diperbarui karena persyaratan input pengguna;

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

Memungkinkan pengguna memasukkan nilai dan output 1 untuk true, 0 untuk false.

Diuji dalam Oktaf, harus bekerja di Matlab juga.

R, 13 11

Berdasarkan solusi Perl. Pengembalian FALSEatau TRUE.

!log2(i)%%1

Parameter i mewakili variabel input.

Versi alternatif dengan input pengguna:

!log2(scan())%%1

GolfScript, 5

Output 1 untuk true, 0 untuk false. Berdasarkan ide user3142747:

~.(&!

Catatan: (adalah pengurangan, mudah-mudahan itu tidak dihitung sebagai -:)
Jika ya (dan komentar OP menyarankan itu mungkin), maka silakan merujuk ke solusi Ilmari Karonen sebagai gantinya.
Untuk output Y / N, tambahkan 'NY'1/=di akhir (7 byte lebih).

Python, 31

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

C, 48

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

Saya memutuskan untuk menggunakan pendekatan lain, berdasarkan jumlah populasi atau jumlah sideways dari jumlah (jumlah 1-bit). Idenya adalah bahwa semua kekuatan dua memiliki tepat satu1 bit, dan tidak ada angka lainnya. Saya menambahkan versi JavaScript karena menurut saya itu lucu, meskipun tentu tidak akan memenangkan kompetisi golf.

J, 14 15 karakter (output 0 atau 1)

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

JavaScript, 76 karakter (output benar atau salah)

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

Klip , 9 8 7

!%lnxWO

Membaca angka dari stdin.

Penjelasan:

Untuk mulai dengan, Z= 0, W= 2dan O= 1. Ini memungkinkan penempatan Wdan di Osamping satu sama lain, sedangkan menggunakan 2dan 1akan ditafsirkan sebagai angka 21 tanpa ruang pemisah (karakter tambahan yang tidak diinginkan). Dalam Klip, fungsi modulo ( %) bekerja pada non-integer, jadi, untuk mengetahui apakah beberapa nilai vadalah integer, Anda memeriksa apakah vmod 1 = 0. Menggunakan sintaksis Klip, ini ditulis sebagai =0%v1. Namun, sebagai booleans disimpan sebagai 1(atau apa pun) dan 0, memeriksa apakah ada yang sama dengan 0hanya 'tidak' itu. Untuk ini, Clip memiliki !operator. Dalam kode saya, vadalah lnx2. xadalah input dari stdin,nmengkonversi string ke nomor dan labbasis log .bdari a. Oleh karena itu, program ini menerjemahkan (lebih mudah dibaca) menjadi0 = ((log base 2 of parseInt(readLine)) mod 1)

Contoh:

8

output

1

dan

10

output

0

Sunting 1: diganti 0, 1dan 2dengan Z, OdanW .

Sunting 2: diganti =Zdengan! .

Juga:

Pyth , 5

Kompres versi Klip lebih jauh, karena Pyth memiliki Q untuk input yang sudah dievaluasi dan fungsi log2 (a), bukan hanya log umum (a, b).

!%lQ1

Javascript (37)

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

Skrip sederhana yang hanya dibagi 2 berulang kali dan memeriksa sisanya.

Mathematica (21)

IntegerQ@Log2@Input[]

Tanpa input sedikit lebih pendek

IntegerQ@Log2[8]

Benar

IntegerQ@Log2[7]

Salah

JavaScript, 41 40 karakter

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

Cara kerjanya: Anda menggunakan logaritma di base 2 menggunakan l(prompt()) / l(2) , dan jika hasil modulo 1 sama dengan nol, maka itu adalah kekuatan 2.

Sebagai contoh: setelah mengambil logaritma 8 di pangkalan 2, Anda dapatkan 3.3 modulo 1sama dengan 0, jadi ini mengembalikan true.

Setelah mengambil logaritma 7 pada basis 2, Anda dapatkan 2.807354922057604. 2.807354922057604 modulo 1sama dengan 0.807354922057604, jadi ini mengembalikan false.

JavaScript, 35

Bekerja untuk byte.

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

Versi 46 karakter , Berfungsi untuk angka 16 bit.

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

Trik ini berfungsi dalam sebagian besar bahasa dinamis.

Penjelasan: Konversi angka menjadi basis 2, tafsirkan string itu sebagai basis 10, lakukan modulo 9 untuk mendapatkan jumlah digit, yang harus 1.

Perl 5.10+, 13+ 1 = 14 karakter

say!($_&$_/3)

Menggunakan metode yang sama dari utas FWP lama sebagai entri GolfScript saya . Mencetak 1jika input adalah kekuatan dua, dan jalur kosong sebaliknya.

Perlu dijalankan perl -nE; yang n biaya satu char tambahan , untuk total 14 karakter. Atau, inilah versi 18 karakter yang tidak memerlukan n:

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

python 3, 38

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

python, 32

Namun, kode tidak berfungsi di setiap versi.

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

Perhatikan bahwa solusinya juga berfungsi untuk 0 (cetak Salah).

Ruby - 17 karakter (percobaan keempat)

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

Yang terbaik saat ini adalah gabungan dari jawaban @ steenslag dengan jawaban saya sendiri. Di bawah ini adalah upaya saya sebelumnya.

Ruby - 19 karakter (percobaan ketiga)

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

Ruby - 22 karakter (percobaan kedua)

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

Ruby - 24 karakter (percobaan pertama)

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

K / Kona ( 24 17)

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

Mengembalikan 1 jika benar dan 0 jika salah. Setiap kekuatan 2 memiliki bit tunggal sama dengan 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)

(ini mencetak semua kekuatan 2 (dari 0 hingga 9) dalam bentuk biner)

Jadi saya meringkas semua komponen dari ekspresi biner xdan melihat apakah itu sama dengan 1; jika ya maka x=2^n, sebaliknya tidak.

... tahu aku bisa membuatnya lebih kecil

C # (54 karakter)

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

Rebmu (9 karakter)

z?MOl2A 1

Uji

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

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

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

Rebmu adalah dialek bahasa Rebol yang terbatas. Kode dasarnya adalah:

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

Alternatif

14 karakter — Rebmu tidak memiliki bitwise 'bubur' DAN ~

z?AND~aTIddA 3

Dalam Rebol:

zero? a & to-integer a / 3

GTB , 46 byte

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'

Tidak hanya menggunakan operasi +/-, tetapi operasi matematika selain mengonversi ke bentuk biner.

Hal-hal lain (menarik, tetapi tidak untuk kompetisi):

Saya juga memiliki versi regexp (61) :

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

(Menyukai idenya, tetapi fungsi impor dan cocok membuatnya terlalu lama)

Dan versi operasi bitwise yang bagus, tetapi membosankan (31) :

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

(ya, ini lebih pendek, tetapi ia menggunakan ~ -x untuk decrement yang comtains - operasi)

Python 2.7 ( 30 29 39 37)

EDIT: Diperbarui karena persyaratan input pengguna;

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

Brute force, coba bagi hingga = 1 (berhasil) atau <1 (gagal)

Python (33)

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

Ruby, 33 , 28 , 25

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

APL (12 untuk 0/1, 27 untuk ya / tidak)

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

atau, jika kita harus menampilkan teks:

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

Baca dalam A. Bentuk vektor 0..A, lalu vektor 2 ⁰ ..2 ^A (ya, itu jauh lebih dari yang diperlukan), kemudian vektor yang membandingkan A dengan masing-masing (menghasilkan vektor 0 dan paling banyak satu 1), lalu xor itu (tidak ada xor operator di APL, tetapi ≠ yang diterapkan pada boolean akan bertindak sebagai satu.) Kita sekarang memiliki 0 atau 1.

Untuk mendapatkan YA atau TIDAK: kalikan 0 atau 1 dengan 3, jatuhkan jumlah karakter ini dari 'YESNO', lalu ambil 3 karakter pertama dari ini.

C, 65 byte

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