Tulis beberapa pernyataan yang akan menghitung jumlah yang dalam bilangan bulat enam belas bit yang tidak ditandatangani.

Misalnya, jika inputnya adalah 1337, maka hasilnya adalah 6karena 1337sebagai angka biner enam belas bit 0000010100111001, yang berisi enam angka .

80386 Kode Mesin, 4 byte

F3 0F B8 C1

yang mengambil bilangan bulat cxdan mengeluarkan hitungan ax, dan setara dengan:

popcnt ax, cx     ; F3 0F B8 C1

Dan berikut adalah solusi 11 10 byte yang tidak menggunakan POPCNT:

31 C0 D1 E9 10 E0 85 C9 75 F8

yang setara dengan:

xor ax, ax        ; 31 C0   Set ax to 0
shr cx, 1         ; D1 E9   Shift cx to the right by 1 (cx >> 1)
adc al, ah        ; 10 E0   al += (ah = 0) + (cf = rightmost bit before shifting)
test cx, cx       ; 85 C9   Check if cx == 0
jnz $-6           ; 75 F8   Jump up to shr cx, 1 if not

Python 2, 17 byte

bin(s).count('1')

The binbuilt-in kembali integer dikonversi ke string biner. Kami kemudian menghitung 1digit:

>>> s=1337
>>> bin(s)
'0b10100111001'
>>> bin(s).count('1')
6

J (5 karakter)

J tidak memiliki tipe eksplisit. Ini melakukan hal yang benar untuk semua bilangan bulat.

+/@#:

• +/ jumlah
• @ dari
• #: representasi dasar dua

C, 21

for(n=0;x;n++)x&=x-1;

Anda mengatakan "tulis beberapa pernyataan" (bukan "fungsi") jadi saya berasumsi nomornya disertakan xdan angka 1 dikembalikan n. Jika saya tidak perlu menginisialisasi, nsaya dapat menyimpan 3 byte.

Ini adalah adaptasi dari ekspresi terkenal x&x-1untuk menguji apakah sesuatu adalah kekuatan 2 (salah jika ya, benar jika tidak.)

Ini dia beraksi pada nomor 1337 dari pertanyaan. Perhatikan bahwa mengurangi 1 membalik 1 bit paling tidak signifikan dan semua nol ke kanan.

0000010100111001 & 0000010100111000 = 0000010100111000
0000010100111000 & 0000010100110111 = 0000010100110000
0000010100110000 & 0000010100101111 = 0000010100100000
0000010100100000 & 0000010100011111 = 0000010100000000
0000010100000000 & 0000010011111111 = 0000010000000000
0000010000000000 & 0000001111111111 = 0000000000000000

EDIT: untuk kelengkapan, inilah algoritma naif, yang satu byte lebih panjang (dan sedikit lebih lambat.)

for(n=0;x;x/=2)n+=x&1;

Jelly , tidak bersaing

Jawaban ini tidak bersaing, karena bahasa tersebut dibuat setelah tantangan diposting.

2 byte:

BS

Jelly adalah bahasa baru yang ditulis oleh @Dennis, dengan sintaksis mirip J.

         implicit: function of command-line arguments
B        Binary digits as list
 S       Sum

Coba di sini .

Pyth, 4 byte

sjQ2

Program ini mengambil nomor yang berat hammingnya dapat ditemukan di STDIN.

Julia, 29 27 19 byte

n->sum(digits(n,2))

Ini menciptakan fungsi anonim yang menerima satu argumen n,. Untuk menggunakannya, tetapkan ke sesuatu seperti f=n->...dan menyebutnya seperti f(1337).

The digits()fungsi, saat dipanggil dengan 2 argumen, mengembalikan array angka dari input di dasar diberikan. Jadi digits(n, 2)mengembalikan digit biner dari n. Ambil jumlah array dan Anda memiliki jumlah yang dalam representasi biner n.

CJam, 6 byte

ri2b:+

ri         "Read the input and convert it to integer";
  2b       "Convert the integer into base 2 format";
    :+     "Sum the digits of base 2 form";

Cobalah online di sini

Joe , 4 byte

/+Ba

Ini adalah fungsi anonim. Bamemberikan representasi biner dari angka dan /+menjumlahkannya.

   (/+Ba)13
3
   (/+Ba)500
6

R, 24 byte

sum(intToBits(scan())>0)

scan() membaca input dari stdin.

intToBits()mengambil integer dan mengembalikan vektor tipe yang rawberisi nol dan representasi biner dari input.

intToBits(scan())>0mengembalikan vektor logis di mana setiap elemen adalah TRUEjika elemen vektor biner yang sesuai adalah 1 (karena semua elemen adalah 0 atau 1 dan 1> 0), jika tidak FALSE.

Dalam R, Anda dapat menjumlahkan vektor logis untuk mendapatkan jumlah TRUEelemen, jadi menjumlahkan vektor logis seperti di atas memberi kita apa yang kita inginkan.

Catatan yang sum()tidak dapat menangani rawinput secara langsung, oleh karena itu solusinya menggunakan logika.

Ruby, 18 byte

n.to_s(2).count'1'

Keempat, 48 49 byte

: c ?dup if dup 1- and recurse 1+ then ;
0 1337 c

Jika fungsi aktual diperlukan maka baris kedua menjadi

: c 0 swap c ;

dan Anda menyebutnya dengan "1337 c". Kata-kata kontrol Forth yang relatif verbose membuat ini sulit (sebenarnya, mereka membuat banyak ini sulit).

Sunting: Versi saya sebelumnya tidak menangani angka negatif dengan benar.

Mathematica, 22 18 byte

Terima kasih kepada alephalpha untuk mengingatkan saya pada DigitCount.

DigitCount[#,2,1]&

ES6 (34 22 21 byte):

Ini adalah fungsi rekursif sederhana yang dapat disingkat lebih sedikit. Hanya perlu sedikit dan berjalan sendiri lagi:

B=n=>n&&(1&n)+B(n>>1)

Cobalah di http://www.es6fiddle.net/imt5ilve/ (Anda memerlukannya varkarena 'use strict';).

Aku tidak percaya aku telah mengalahkan Fish !!!

Yang tua:

n=>n.toString(2).split(1).length-1

ES5 (39 byte):

Kedua fungsi dapat dengan mudah disesuaikan dengan ES5:

function B(n){return n?(1&n)+B(n>>1):0}

//ungolfed:

function B(number)
{
    if( number > 0 )
    {
        //arguments.callee points to the function itself
        return (number & 1) + arguments.callee( number >> 1 );
    }
    else
    {
        return 0;
    }
}

Yang lama:

function(n){return n.toString(2).split(1).length-1}

@ user1455003 memberi saya ide yang sangat bagus, yang 'memicu' yang terkecil:

function B(n,x){for(x=0;n;n>>=1)x+=n&1;return x}

Saya telah mengadaptasinya ke ES6 dan membuatnya rekursif untuk mempersingkat banyak!

> <> (Ikan) , 24 byte + 2 = 26

0$11.>~n;
2,:?!^:2%:{+}-

Program hanya mengulangi mod 2, kurangi dan bagi sampai jumlah input menjadi nol, lalu cetak jumlah mod 2s.

Uji dengan -vbendera, mis

py -3 fish.py ones.fish -v 1337

PHP (38 byte):

Ini menggunakan pendekatan yang sama dengan jawaban ES6 saya

<?=count(split(1,decbin($_GET[n])))-1;

Ini adalah kode lengkap, Anda hanya perlu memasukkannya ke dalam file dan mengaksesnya melalui browser, dengan parameter n=<number>.

PHP <4.2 (32 byte):

Ini sedikit lebih pendek:

<?=count(split(1,decbin($n)))-1;

Ini hanya berfungsi dengan baik pada PHP <4.2 karena arahan register_globalsdiatur ke Offdefault dari PHP4.2 hingga PHP5.4 (yang telah dihapus saat itu).

Jika Anda membuat php.inifile dengan register_globals=On, ini akan berfungsi.

Untuk menggunakan kode, akses file menggunakan browser, dengan POST atau GET.

@ViniciusMonteiro 's saran (38/45 bytes):

Dia memberikan 2 saran yang sangat bagus yang memiliki fungsi penggunaan yang sangat menarik array_sum:

38 byte:

<?=array_sum(str_split(decbin(1337)));

45 byte:

<?=array_sum(preg_split('//', decbin(1337)));

Ini adalah ide yang sangat bagus dan dapat dipersingkat lebih lama, menjadi 36 byte:

<?=array_sum(split(1,decbin(1337)));

C #, 45 byte

Convert.ToString((ushort)15,2).Sum(b=>b-48);

https://dotnetfiddle.net/kJDgOY

Japt, 3 byte (tidak kompetitif)

¢¬x

Coba di sini.

lilin lebah ,31 27 byte

Jawaban tidak bersaing. Lilin lebah lebih baru dari tantangan ini.

Solusi ini menggunakan cara Brian Kherigan untuk menghitung bit yang ditetapkan dari situs web "Bit Twiddling Hacks".

itu hanya berjalan melalui loop, menambah jumlah bit, sementara iterasi number=number&(number-1)sampai number = 0. Solusinya hanya melewati loop sesering ada bit yang ditetapkan.

Saya bisa mencukur 4 byte dengan mengatur ulang beberapa instruksi. Kode sumber dan penjelasan diperbarui:

pT_
>"p~0+M~p
d~0~@P@&<
{@<

Penjelasan:

pT_            generate IP, input Integer, redirect
>"             if top lstack value > 0 jump next instruction,
               otherwise continue at next instruction
  p            redirect if top lstack value=0 (see below)
   ~           flip top and 2nd lstack values
    0+         set top lstack value to 0, set top=top+2nd
      M        decrement top lstack value
       ~       flip top and 2nd lstack values
        p      redirect to lower left
        <      redirect to left
       &       top=top&2nd
      @        flip top and 3rd lstack values
    @P         increment top lstack value, flip top and 3rd values
 ~0~           flip top and 2nd values, set top=0, flip top and 2nd again
d              redirect to upper left
>"p~0+M.....   loop back

  p            if top lstack = 0 at " instruction (see above), redirect
  0            set lstack top to zero (irrelevant instruction)
  <            redirect to the left
 @             flip top and 3rd lstack values
{              output top lstack value as integer (bitcount)

Klon repositori GitHub saya yang berisi juru bahasa lilin lebah, spesifikasi bahasa, dan contoh-contoh.

Java, 17 byte

Bekerja untuk byte, short, char, dan int. Gunakan sebagai lambda.

Integer::bitCount

Tes di sini

Tanpa menggunakan built-in:

42 byte

s->{int c=0;for(;s!=0;c++)s&=s-1;return c}

Tes di sini

Klip , 6

2 cara:

cb2nx1

Ini adalah terjemahan langsung dari persyaratan: hitungan yang ada di representasi angka-2 basis.

r+`b2n

Metode lain, yang mengambil jumlah digit dari representasi basis-2.

Oktaf, 18

sum(dec2bin(s)-48)

Contoh:

octave:1> s=1337
s =  1337
octave:2> sum(dec2bin(s)-48)
ans =  6

GML (Game Maker Language), 21 byte

for(n=0;x;n/=2)n+=x&1

C # 39 byte

Convert.ToString(X,2).Count(C=>C=='1');

Perl, 21

$r=grep$v&1<<$_,0..15

PowerShell (51 byte)

"$([char[]][convert]::ToString($s,2)|%{"+$_"})"|iex

Penjelasan:
[convert]::ToString($s,2)menghasilkan representasi string biner dari $s.
[char[]]melemparkannya sebagai array char dan memungkinkan kita untuk menghitung setiap char.
|%{"+$_"}menambahkan setiap karakter dengan tanda +
"$()"secara implisit memanggil .ToString()sub ekspresi yang dihasilkan
|iexmenjumlahkan string yang disalurkan (mis. "+1 +0 +1 +1 +0 +1 +0 +0" = 4)

Clojure, 42 byte

#(count(filter #{\1}(Long/toString % 2)))

Membaca dari kanan ke kiri, mengonversi ke string biner, mengonversi ke urutan karakter, memfilter 1s dan menghitung berapa banyak yang Anda miliki.

Diedit dengan bantuan dari Sieg

Haskell 42 karakter

t 0=[]
t n=t(quot n 2)++[rem n 2]
f=sum.t

mendeklarasikan penggunaan fungsi f :: Integer -> Integer
dari interpreter interaktif sebagai f <number>atau menambahkan baris main=print$f <number>ke akhir file.

Matlab, 13 byte

de2bimembuat vektor nol dan yang mewakili angka biner, dan sumhanya mengembalikan jumlah semua entri.

sum(de2bi(n))

𝔼𝕊𝕄𝕚𝕟, 4 karakter / 11 byte (tidak kompetitif)

⨭⟦ïⓑ

Try it here (Firefox only).

Penjelasan

Mengonversi input ke biner, membelah karakter, dan mendapatkan jumlah array yang dihasilkan.