เขียนคำสั่งที่จะนับจำนวนของคำในจำนวนเต็มสิบหกบิตที่ไม่ได้ลงนาม

ตัวอย่างเช่นหากอินพุตคือ1337ผลลัพธ์จะเป็น6เพราะ1337เลขฐานสิบหกบิตเท่ากับ0000010100111001ซึ่งประกอบด้วยหกรายการ

รหัสเครื่อง 80386 ขนาด 4 ไบต์

F3 0F B8 C1

ซึ่งใช้จำนวนเต็มในcxและเอาท์พุทนับในaxและเทียบเท่ากับ:

popcnt ax, cx     ; F3 0F B8 C1

และนี่คือวิธีแก้ปัญหา11 10ไบต์ที่ไม่ได้ใช้ POPCNT:

31 C0 D1 E9 10 E0 85 C9 75 F8

ซึ่งเทียบเท่ากับ:

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 ไบต์

bin(s).count('1')

binในตัวผลตอบแทนจำนวนเต็มแปลงเป็นสตริงไบนารี จากนั้นเราจะนับ1ตัวเลข:

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

J (5 ตัวอักษร)

J ไม่มีประเภทที่ชัดเจน นี่เป็นสิ่งที่ถูกต้องสำหรับจำนวนเต็มทั้งหมด

+/@#:

• +/ ผลรวม
• @ ของ
• #: การเป็นตัวแทนฐานสอง

C, 21

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

คุณกล่าวว่า "เขียนคำสั่งบาง" (ไม่ใช่ "ฟังก์ชั่น") ดังนั้นฉันได้สันนิษฐานว่าจำนวนจะจำหน่ายในxและจำนวน 1 nจะถูกส่งกลับใน หากฉันไม่ต้องเริ่มต้นnฉันสามารถบันทึก 3 ไบต์

นี่คือการปรับตัวของนิพจน์ที่มีชื่อเสียงx&x-1สำหรับการทดสอบว่าบางสิ่งเป็นพลังของ 2 (เท็จถ้าเป็นจริงถ้าไม่ใช่)

ที่นี่มีการใช้งานกับหมายเลข 1337 จากคำถาม โปรดทราบว่าการลบ 1 จะพลิก 1 บิตที่สำคัญน้อยที่สุดและศูนย์ทั้งหมดไปทางขวา

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

แก้ไข: เพื่อความสมบูรณ์นี่เป็นอัลกอริธึมไร้เดียงสาซึ่งมีความยาวหนึ่งไบต์ (และค่อนข้างช้าลงเล็กน้อย)

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

เยลลี่ไม่ใช่การแข่งขัน

คำตอบนี้ไม่ใช่การแข่งขันเนื่องจากภาษาถูกสร้างขึ้นหลังจากการโพสต์ความท้าทาย

2 ไบต์:

BS

Jelly เป็นภาษาใหม่ที่เขียนโดย @Dennis พร้อมกับไวยากรณ์คล้าย J

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

ลองมันนี่

Pyth, 4 ไบต์

sjQ2

โปรแกรมใช้หมายเลขที่จะพบน้ำหนักการขัดขวางบน STDIN

Julia, 29 27 19 ไบต์

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

nนี้จะสร้างฟังก์ชั่นที่ไม่ระบุชื่อที่ยอมรับอาร์กิวเมนต์เดียว ที่จะใช้มันกำหนดให้สิ่งที่ชอบและเรียกมันเหมือนf=n->...f(1337)

digits()ฟังก์ชั่นที่เรียกว่าเมื่อมี 2 ข้อโต้แย้งกลับอาร์เรย์ของตัวเลขของการป้อนข้อมูลในฐานที่กำหนด ดังนั้นจะส่งกลับตัวเลขไบนารีของdigits(n, 2) ใช้ผลรวมของอาร์เรย์และคุณมีจำนวนคนที่อยู่ในฐานเป็นตัวแทนของnn

CJam, 6 ไบต์

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";

ลองออนไลน์ได้ที่นี่

โจ 4 ไบต์

/+Ba

นี่คือฟังก์ชั่นที่ไม่ระบุชื่อ Baให้การแทนเลขฐานสองของจำนวนและ/+ผลรวม

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

R, 24 ไบต์

sum(intToBits(scan())>0)

scan() อ่านอินพุตจาก stdin

intToBits()รับจำนวนเต็มและคืนค่าเวกเตอร์ประเภทrawที่มีเลขศูนย์และอันของการแทนค่าฐานสองของอินพุต

intToBits(scan())>0ส่งกลับเวกเตอร์ตรรกะที่แต่ละองค์ประกอบคือTRUEถ้าสอดคล้องเวกเตอร์ไบนารี 1 (ตั้งแต่องค์ประกอบทั้งหมดที่มี 0 หรือ 1 และ 1> 0) FALSEมิฉะนั้น

ใน R คุณสามารถหาผลรวมของเวกเตอร์เชิงตรรกะเพื่อให้ได้จำนวนTRUEองค์ประกอบดังนั้นการรวมเวกเตอร์ของตรรกะดังกล่าวข้างต้นทำให้เราได้รับสิ่งที่เราต้องการ

โปรดทราบว่าsum()ไม่สามารถจัดการrawอินพุตโดยตรงดังนั้นวิธีแก้ปัญหาโดยใช้โลจิคัล

ทับทิมขนาด 18 ไบต์

n.to_s(2).count'1'

Forth, 48 49 ไบต์

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

หากจำเป็นต้องใช้ฟังก์ชันจริงบรรทัดที่สองจะกลายเป็น

: c 0 swap c ;

และคุณเรียกมันว่า "1337 c" คำที่ใช้ในการควบคุมอย่างละเอียดของ Forth ทำให้สิ่งนี้เป็นคำที่ยาก (อันที่จริงแล้ว

แก้ไข: รุ่นก่อนหน้าของฉันจัดการตัวเลขลบไม่ถูกต้อง

Mathematica, 22 18 ไบต์

ขอขอบคุณที่ alephalpha DigitCountสำหรับการเตือนฉันของ

DigitCount[#,2,1]&

ES6 (34 22 21 ไบต์):

นี่เป็นฟังก์ชั่นแบบเรียกซ้ำง่าย ๆ ที่สามารถย่อให้สั้นได้อีกเล็กน้อย ใช้เวลาเพียงเล็กน้อยและรันตัวเองอีกครั้ง:

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

ลองใช้กับhttp://www.es6fiddle.net/imt5ilve/ (คุณต้องใช้varเพราะ'use strict';)

ฉันไม่อยากจะเชื่อเลยว่าฉันถูกตีปลา !!!

อันเก่า:

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

ES5 (39 ไบต์):

ทั้งสองฟังก์ชั่นสามารถปรับใช้กับ 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;
    }
}

อันเก่า:

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

@ user1455003ให้ความคิดที่ยอดเยี่ยมแก่ฉันนั่นคือ 'จุดประกาย ' ที่เล็กที่สุด:

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

ฉันได้ดัดแปลงเป็น ES6 และทำให้มันซ้ำเพื่อให้สั้นลงมาก!

> <> (ปลา) , 24 ไบต์ + 2 = 26

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

โปรแกรมเพิ่งทำ mod 2 ซ้ำแล้วลบและหารจนกว่าจำนวนอินพุตจะกลายเป็นศูนย์จากนั้นพิมพ์ผลรวมของ mod 2s

ทดสอบกับ-vธงเช่น

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

PHP (38 ไบต์):

สิ่งนี้ใช้ aproach เหมือนกับคำตอบ ES6ของฉัน

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

n=<number>นี่คือรหัสเต็มคุณจะต้องใส่ไว้ในไฟล์และการเข้าถึงผ่านเบราว์เซอร์ที่มีพารามิเตอร์

PHP <4.2 (32 ไบต์):

สั้นกว่านี้เล็กน้อย:

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

สิ่งนี้ทำงานได้อย่างน่าเชื่อถือบน PHP <4.2 เพราะคำสั่งregister_globalsถูกตั้งค่าเป็นค่าOffเริ่มต้นจาก PHP4.2 ถึง PHP5.4 (ซึ่งถูกลบออกไปแล้ว)

หากคุณสร้างphp.iniไฟล์ด้วยregister_globals=Onสิ่งนี้จะทำงาน

ในการใช้รหัสให้เข้าถึงไฟล์โดยใช้เบราว์เซอร์ด้วย POST หรือ GET

@ViniciusMonteiro 's ข้อเสนอแนะ (38/45 bytes):

เขาให้คำแนะนำที่ดีจริงๆ 2 ข้อซึ่งมีการใช้งานฟังก์ชั่นที่น่าสนใจมากarray_sum:

38 ไบต์:

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

45 ไบต์:

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

นี่เป็นแนวคิดที่ยอดเยี่ยมและสามารถย่อให้สั้นลงได้อีก 36 ไบต์:

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

C #, 45 ไบต์

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

https://dotnetfiddle.net/kJDgOY

Japt 3 ไบต์ (ไม่ใช่การแข่งขัน)

¢¬x

ลองที่นี่

ขี้ผึ้ง ,วันที่ 31 27 ไบต์

คำตอบที่ไม่ใช่การแข่งขัน Beeswax ใหม่กว่าความท้าทายนี้

วิธีนี้ใช้วิธีนับจำนวนบิตของ Brian Kherigan จากเว็บไซต์“ Bit Twiddling Hacks”

มันเป็นเพียงแค่วิ่งผ่านห่วงที่เพิ่มขึ้นนับบิตในขณะที่การทำซ้ำผ่านจนกว่าnumber=number&(number-1) number = 0การแก้ปัญหาจะต้องผ่านการวนซ้ำบ่อยเท่าที่มีการตั้งค่าบิต

ฉันสามารถโกน 4 ไบต์ด้วยการจัดเรียงคำสั่งใหม่ ทั้งซอร์สโค้ดและคำอธิบายได้รับการอัพเดต:

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

คำอธิบาย:

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)

โคลนที่เก็บ GitHub ของฉันที่มีตัวแปลขี้ผึ้งข้อมูลจำเพาะภาษาและตัวอย่าง

Java, 17 ไบต์

การทำงานสำหรับbyte, short, และchar intใช้เป็นแลมบ์ดา

Integer::bitCount

ทดสอบที่นี่

โดยไม่ต้องใช้บิวด์อิน:

42 ไบต์

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

ทดสอบที่นี่

คลิป 6

2 วิธี:

cb2nx1

นี่คือการแปลข้อกำหนดที่ตรงไปตรงมา: การนับจำนวนในการแสดงเลขฐาน 2

r+`b2n

วิธีอื่นซึ่งใช้ผลรวมของตัวเลขของการแสดงฐาน 2

ระดับแปดเสียง, 18

sum(dec2bin(s)-48)

ตัวอย่าง:

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

GML (ภาษาผู้สร้างเกม) ขนาด 21 ไบต์

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

C # 39 ไบต์

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

Perl, 21

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

PowerShell (51 ไบต์)

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

คำอธิบาย: ผลิตแสดงสตริงไบนารีจาก
[convert]::ToString($s,2) ปลดเปลื้องมันเป็นอาร์เรย์ถ่านและช่วยให้เราระบุถ่านแต่ละตัว เติมอักขระแต่ละตัวด้วยเครื่องหมาย + โดยนัยการเรียกในนิพจน์ย่อยผลลัพธ์จะรวมสตริง piped (เช่น "+1 +0 +1 +1 +1 +0 +1 +0 +0" = 4)$s
[char[]]
|%{"+$_"}
"$()".ToString()
|iex

Clojure 42 ไบต์

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

อ่านจากขวาไปซ้าย, แปลงเป็นสตริงไบนารี, แปลงเป็นลำดับของอักขระ, กรองบน1s และนับจำนวนคุณ

แก้ไข ด้วยความช่วยเหลือจาก Sieg

Haskell 42 ตัวอักษร

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

ประกาศการf :: Integer -> Integer
ใช้ฟังก์ชั่นจากล่ามแบบโต้ตอบเป็นf <number>หรือเพิ่มบรรทัดmain=print$f <number>ในตอนท้ายของไฟล์

Matlab ขนาด 13 ไบต์

de2biสร้างเวกเตอร์ของศูนย์และคนที่เป็นตัวแทนของเลขฐานสองและsumเพียงแค่ส่งกลับผลรวมของรายการทั้งหมด

sum(de2bi(n))

𝔼𝕊𝕄𝕚𝕟, 4 ตัวอักษร / 11 ไบต์ (ไม่แข่งขัน)

⨭⟦ïⓑ

Try it here (Firefox only).

คำอธิบาย

แปลงอินพุตเป็นไบนารีแยกตามตัวอักษรและรับผลรวมของอาร์เรย์ที่ได้