Napisz kilka instrukcji, które będą liczyć liczbę jedności w szesnastobitowej liczbie całkowitej bez znaku.

Na przykład, jeśli dane wejściowe są 1337, to wynik jest taki, 6że 1337jako szesnastobitowa liczba binarna 0000010100111001zawiera sześć.

80386 Kod maszynowy, 4 bajty

F3 0F B8 C1

który przyjmuje liczbę całkowitą cxi wyprowadza licznik ax, i jest równoważny z:

popcnt ax, cx     ; F3 0F B8 C1

I tu jest 11 10 rozwiązanie bajt nie używając POPCNT:

31 C0 D1 E9 10 E0 85 C9 75 F8

co jest równoważne z:

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 bajtów

bin(s).count('1')

binWbudowaną Zwraca całkowitą konwertowane na ciąg binarny. Następnie zliczamy 1cyfry:

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

J (5 znaków)

J nie ma jawnych typów. To robi właściwą rzecz dla wszystkich liczb całkowitych.

+/@#:

• +/ Suma
• @ z
• #: podstawowa reprezentacja dwóch

C, 21

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

powiedziałeś „napisz kilka instrukcji” (a nie „funkcję”), więc założyłem, że liczba jest podana, xa liczba 1 jest zwrócona n. Jeśli nie muszę inicjować n, mogę zapisać 3 bajty.

Jest to adaptacja słynnego wyrażenia x&x-1do testowania, czy coś ma potęgę 2 (fałsz, jeśli tak, prawda, jeśli nie jest).

Tutaj działa on pod numerem 1337 z pytania. Zauważ, że odjęcie 1 odwraca najmniej znaczący 1 bit i wszystkie zera w prawo.

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

EDYCJA: dla kompletności, oto naiwny algorytm, który jest o jeden bajt dłuższy (i nieco wolniejszy).

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

Galaretka , niekonkurująca

Ta odpowiedź nie jest konkurencyjna, ponieważ język został utworzony po opublikowaniu wyzwania.

2 bajty:

BS

Jelly to nowy język napisany przez @Dennis, o składni podobnej do J.

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

Wypróbuj tutaj .

Pyth, 4 bajty

sjQ2

Program przyjmuje numer, którego ciężar wbijający można znaleźć na STDIN.

Julia, 29 27 19 bajtów

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

Stwarza anonimową funkcję, która przyjmuje jeden argument, n. Aby go użyć, przypisz go do czegoś podobnego f=n->...i nazwij tak f(1337).

digits()Funkcje, po wywołaniu z 2 argumentów zwraca tablicę cyfr wejścia w danej podstawy. digits(n, 2)Zwraca więc cyfry binarne z n. Weź sumę tablicy, a będziesz miał ich liczbę w reprezentacji binarnej n.

CJam, 6 bajtów

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

Wypróbuj online tutaj

Joe , 4 bajty

/+Ba

To anonimowa funkcja. Bapodaje binarną reprezentację liczby i /+sumuje ją.

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

R, 24 bajty

sum(intToBits(scan())>0)

scan() odczytuje wejście ze standardowego wejścia.

intToBits() przyjmuje liczbę całkowitą i zwraca wektor typu raw zawierający zera i jedynki reprezentacji binarnej wejścia.

intToBits(scan())>0 zwraca logiczny wektor, w którym znajduje się każdy element TRUE jeśli odpowiadający mu element binarny to 1 (ponieważ wszystkie elementy mają wartość 0 lub 1 i 1> 0), w przeciwnym razie FALSE.

W R można zsumować wektor logiczny, aby uzyskać liczbę TRUEelementów, więc sumowanie wektora logicznego jak wyżej daje nam to, czego chcemy.

Zauważ, że sum()nie można rawbezpośrednio obsługiwać danych wejściowych, dlatego obejście za pomocą logiki.

Rubinowy, 18 bajtów

n.to_s(2).count'1'

Dalej, 48 49 bajtów

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

Jeśli potrzebna jest rzeczywista funkcja, to pojawia się druga linia

: c 0 swap c ;

i nazywacie to „1337 c”. Stosunkowo szczegółowe słowa kontrolne Fortha sprawiają, że jest to trudne (w rzeczywistości sprawia, że ​​wiele z nich jest trudnych).

Edycja: Moja poprzednia wersja nie obsługiwała poprawnie liczb ujemnych.

Mathematica, 22 18 bajtów

Dzięki alephalpha za przypomnienie DigitCount.

DigitCount[#,2,1]&

ES6 (34 22 21 bajtów):

Jest to prosta funkcja rekurencyjna, którą można nieco skrócić. To po prostu zajmuje trochę czasu i uruchamia się ponownie:

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

Wypróbuj na http://www.es6fiddle.net/imt5ilve/ (potrzebujesz varpowodu 'use strict';).

Nie mogę uwierzyć, że pokonałem Fisha !!!

Ten stary:

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

ES5 (39 bajtów):

Obie funkcje można łatwo dostosować do 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;
    }
}

Stary:

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

@ user1455003 dał mi naprawdę świetny pomysł, który „uruchomił” najmniejszy:

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

Dostosowałem go do ES6 i sprawiłem, że rekurencyjne jest znaczne skracanie!

> <> (Ryba) , 24 bajty + 2 = 26

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

Program po prostu wykonuje powtarzany mod 2, odejmuje i dzieli, aż liczba wejściowa osiągnie zero, a następnie drukuje sumę mod 2s.

Testuj z -vflagą, np

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

PHP (38 bajtów):

Używa tego samego podejścia, co moja odpowiedź ES6

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

Jest to pełny kod, wystarczy umieścić go w pliku i uzyskać do niego dostęp w przeglądarce za pomocą parametru n=<number>.

PHP <4.2 (32 bajty):

To jest trochę krótsze:

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

Działa to niezawodnie tylko w PHP <4.2, ponieważ dyrektywa register_globalszostała Offdomyślnie ustawiona od PHP4.2 do PHP5.4 (do tego czasu została usunięta).

Jeśli utworzysz php.iniplik za pomocą register_globals=On, to zadziała.

Aby użyć kodu, uzyskaj dostęp do pliku za pomocą przeglądarki, używając POST lub GET.

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

Podał 2 naprawdę dobre sugestie, które mają bardzo ciekawe zastosowanie tej funkcji array_sum:

38 bajtów:

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

45 bajtów:

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

To naprawdę świetny pomysł i można go nieco skrócić, aby miał 36 bajtów:

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

C #, 45 bajtów

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

https://dotnetfiddle.net/kJDgOY

Japt, 3 bajty (niekonkurencyjny)

¢¬x

Wypróbuj tutaj.

wosk pszczeli ,31 27 bajtów

Odpowiedź niekonkurencyjna. Wosk pszczeli jest nowszy niż to wyzwanie.

W tym rozwiązaniu Brian Kherigan zlicza zestawy bitów ze strony internetowej „Bit Twiddling Hacks”.

po prostu przebiega przez pętlę, zwiększając liczbę bitów, i iterując number=number&(number-1)aż do number = 0. Rozwiązanie przechodzi przez pętlę tylko tak często, jak jest ustawionych bitów.

Mógłbym ogolić 4 bajty, zmieniając kilka instrukcji. Zaktualizowano kod źródłowy i objaśnienie:

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

Wyjaśnienie:

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)

Sklonuj moje repozytorium GitHub zawierające interpreter wosku pszczelego, specyfikację języka i przykłady.

Java, 17 bajtów

Działa na byte, short, char, i int. Użyj jako lambda.

Integer::bitCount

Przetestuj tutaj

Bez użycia wbudowanych:

42 bajty

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

Przetestuj tutaj

Klip , 6

2 drogi:

cb2nx1

Jest to proste tłumaczenie tego wymogu: liczba jedynek w reprezentacji liczby podstawowej 2.

r+`b2n

Inna metoda, która przyjmuje sumę cyfr reprezentacji base-2.

Oktawa, 18 lat

sum(dec2bin(s)-48)

Przykład:

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

GML (Game Maker Language), 21 bajtów

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

C # 39 bajtów

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

Perl, 21

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

PowerShell (51 bajtów)

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

Objaśnienie:
[convert]::ToString($s,2)tworzy binarną reprezentację ciągu znaków z $s.
[char[]]rzuca go jako tablicę znaków i pozwala nam wyliczyć każdy znak.
|%{"+$_"}poprzedza każdy znak znakiem +
"$()"niejawnie wywołuje .ToString()wynikowe wyrażenie podrzędne
|iexsumuje potokowy ciąg znaków (tj. „+1 +0 +1 +1 +0 +1 +0 +0” = 4)

Clojure, 42 bajty

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

Czytanie od prawej do lewej, konwersja na ciąg binarny, konwersja na ciąg znaków, filtrowanie 1 si i liczenie, ile masz.

EDYCJA Z pomocą Sieg

Haskell 42 znaki

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

deklaruje f :: Integer -> Integer
użycie funkcji z interaktywnego interpretera jako f <number>lub dodaje linię main=print$f <number>na końcu pliku.

Matlab, 13 bajtów

de2bitworzy wektor zer i jedynek reprezentujących liczbę binarną, i sumpo prostu zwraca sumę wszystkich wpisów.

sum(de2bi(n))

𝔼𝕊𝕄𝕚𝕟, 4 znaki / 11 bajtów (niekonkurencyjne)

⨭⟦ïⓑ

Try it here (Firefox only).

Wyjaśnienie

Konwertuje dane wejściowe na binarne, dzieli wzdłuż znaków i otrzymuje sumę wynikowej tablicy.