Açıklama

Bir sayı verildiğinde 1, ikili gösterimdeki miktarını yazdırın .

Giriş

Bir dizi >= 0yüksek numaralı Dil geçmez 10 tabanına işlemek için yapabiliyor.

Çıktı

1İkili gösterimdeki s miktarı .

Kazanma koşulu

En kısa kod kazanır.

İzin verilmeyen

• Bitsel operatörler. Toplama ve çarpma gibi diğer operatörlere izin verilir.
• Yerleşik temel dönüştürme işlevleri.

Örnekler

Input:     Ouput:

56432      8


Input:     Output:

45781254   11


Input:     Output:

0          0

APL, 9 12 karakter

+/2|⌊⎕÷2*⍳32

Bu, yorumlayıcının 32 bit tamsayılar kullandığını ve ⎕IO0'a ayarlandığını varsayar (yani, monadinin ⍳1 yerine 0 ile başlar). Dyalog APL'nin 32 bit sürümünü kullandım .

Sağdan sola açıklama:

• ⍳32ilk 32tamsayıların bir vektörünü üretir (daha önce açıklandığı gibi ⎕IO, 0 olduğu için bu vektör 0 ile başlar).
• *güç işlevidir. Bu durumda, 2vektörün doğru argümanı olarak verilen her bir elemanının gücünü üretir .
• ÷bölünmüş işlevdir. Bize ⎕(değerlendirilen kullanıcı girişi) vektörün her bir elementinin sağına (ikisinin her bir gücü) bölünmesini sağlar.
• ⌊ argümanın her bir öğesini sağına döşer.
• 2|bize sağındaki her öğenin kalanını bölerek verir 2.
• /soldaki fonksiyonu kullanarak sağ argümanını azaltır (katlar) +.

Artık tam 9 karakter değil. :(

Eski, kurallara aykırı versiyon:

+/⎕⊤⍨32/2

Sağdan sola açıklama:

• 32/2: Çoğalt 2, 32kere.
• ⍨ikili işlevi soluna gider, bu durumda ⊤(yani, X⊤⍨Yeşdeğerdir Y⊤X).
• ⊤kodlama fonksiyonudur. Solda verilen tabanda tamsayıyı sağa kodlar. İşe gidip gelme operatörü nedeniyle sağ ve sol argümanların değiştirildiğini unutmayın. Baz, gerekli basamak sayısı için tekrarlanır 32/2.
• ⎕ kullanıcı girişini kabul eden ve değerlendiren niladik bir işlevdir.
• +/kullanarak doğru argümanını azaltır (katlar) +. (0'ları ve 1'leri toplarız.)

Brainbool , 2

,.

Benim düşünceme göre en makul yorum (ve cevapların çoğunun ne kullandığı) "dilinizin işleyebileceği en yüksek sayı", "dilinizin doğal olarak desteklediği en büyük sayıdır ". Brainbool, bayt yerine bit kullanan 0ve 1karakter kodları yerine ikili ( ve karakterler) girdi ve çıktı alan beyin fırtınası türevidir . Bu nedenle yerel olarak desteklenen en büyük sayı 1ve en küçük olanı sırasıyla 0Hamming ağırlıklarına 1ve 0sırasıyla.

Esolang'a göre Brainbool 2010 yılında kuruldu.

J, 13 karakter

(+ sayıdaki basamak sayısı)

+/2|<.n%2^i.32

Kullanımı: nprogramdaki test edilecek sayı ile değiştirin .

Örnekler:

+/2|<.56432%2^i.32
8
+/2|<.45781254%2^i.32
11
+/2|<.0%2^i.32
0

Muhtemelen bunu yeniden düzenlemenin bir yolu var, böylece sayı başlangıçta veya sonunda yerleştirilebilir, ancak bu benim ilk J girişim ve başım biraz acıyor.

Açıklama (esas olarak gelecekte anlayabilmem için)

i.32 - 1'den 32'ye kadar sayılardan oluşan bir dizi oluşturur

2^ - listeyi iki 1 ila 4294967296 arasındaki güçlere dönüştürür

n% - giriş numarasını listedeki her bir öğeye böler

<. - tüm bölme sonuçlarını bir sonraki tamsayıya yuvarlar

2|- %2çoğu dilde olduğu gibi - çiftse 0, tekse 1 döndürür

+/ - listedeki öğeleri toplar (şimdi yalnızca 1 veya 0'dır)

Brainfuck, 53 karakter

Bu zorunlu bir Brainfuck çözümü eksikti, bu yüzden bunu yaptım:

[[->+<[->->>>+<<]>[->>>>+<<]<<<]>>>>[-<<<<+>>>>]<<<<]

Hücre 1'den sayı alır ve sonucu hücre 6'ya koyar.

Kayıtlı olmayan ve yorum yapılan sürüm:

[  while n != 0
  [  div 2 loop
    -
    >+<  marker for if/else
    [->->>>+<<]  if n != 0 inc n/2
    >
    [->>>>+<<]  else inc m
    <<<
  ]
  >>>>  move n/2 back to n
  [-<<<<+>>>>]
  <<<<
]

Python 2.6, 41 karakter

t,n=0,input()
while n:t+=n%2;n/=2
print t

not: Diğer cevabım lambda ve özyineleme kullanıyor ve bu bir while döngüsü kullanıyor. İki cevabı garanti edecek kadar farklı olduklarını düşünüyorum.

Ruby, 38 karakter

f=->u{u<1?0:u%2+f[u/2]}
p f[gets.to_i]

Yakut ve Steven ile aynı özyineli yaklaşımı kullanan başka bir çözüm.

GolfScript, 17 16 karakter

~{.2%\2/.}do]0-,

Düzenleme: yeni sürüm, katlama yerine liste işlemini kullanarak 1 karakteri kaydeder (orijinal sürüm ~{.2%\2/.}do]{+}*, doğrudan sayım sürümü:) ~0\{.2%@+\2/.}do;.

C, 45

f(n,c){for(c=0;n;n/=2)c+=n%2;printf("%d",c);}

Burada C golf için gerçekten özel bir şey yok: örtük dönüş türü, parametreler için örtük tamsayı türü.

Python 2.6, 45 karakter

b=lambda n:n and n%2+b(n/2) 
print b(input())

Perl, 45 43 36 Karakter

$n=<>;while($n){$_+=$n%2;$n/=2}print

45-> 43 için Howard'a ve 43-> 36 için User606723'e teşekkürler.

Perl, 30 karakter

$==<>;1while$_+=$=%2,$=/=2;say

Dayanarak PhiNotPi çözümüyle bazı ekstra golf ile. perl -M5.010Perl 5.10 sayözelliğini etkinleştirmek için ile çalıştırın .

Ortak Lisp, 12 karakter

(1 karakter değişkeni adı varsayıldığında - ör: 11 + sayı uzunluğu)

Bu bir temel dönüştürme işlevi değildir, bu yüzden çalışması gerekir:

(logcount x)

Örnekler:

[1]> (logcount 0)
0
[2]> (logcount 1)
1
[3]> (logcount 1024)
1
[4]> (logcount 1023)
10
[5]> (logcount 1234567890123456789012345678901234567890)
68

(GNU CLISP kullanarak.)

C, 61 60 57 53 karakter

void f(x){int i=0;for(;x;x/=2)i+=x%2;printf("%u",i);}

İşlev gövdesi yalnızca 38 karakterdir. Düzenleme : bitsel operatör kaldırıldı Düzenleme : printfyorumlarda önerildiği gibi döngüden çıkarın Düzenleme : K&R bildirimine geçin; ayrıca, bu artık C99'a özgü değil

dc - 26 karakter

Bu, çoğunlukla ilmek yapılarının eksikliğinden dolayı oldukça uzundur dc.

0?[d2%rsi+li2/d0<x]dsxx+p

Sayının modulo 2'sini toplar ve sayıyı sıfıra ulaşıncaya kadar böler. Rasgele uzun tamsayılarla başa çıkabilir.

Misal:

$ dc -e '0?[d2%rsi+li2/d0<x]dsxx+p' <<< 127
7
$ dc countones.dc <<< 1273434547453452352342346734573465732856238472384263456458235374653784538469120235
138

C, 66 karakter

main(int n,char **a){printf("%u",__builtin_popcount(atoi(a[1])))};

Not: gcc veya gcc uyumlu derleyici gerektirir (örn. ICC, clang).

Bazı CPU'lar __builtin_popcountiçin tek bir komutu derler (örneğin POPCNTx86'da).

JavaScript, 78 72 71 karakter

Soruyu göndermeden önce bulduğum ilk çözümümü de göndereceğim. Yine de çok daha iyi bir JavaScript cevabı var :)

for(n=prompt(a=0),j=1;j<=n;j*=2)for(i=j;i<=n;i+=2*j)n<i+j&&a++;alert(a)

http://jsfiddle.net/Mk8zd/1/

Fikir, kartlarını göstererek ve numaralarının hangi kartlarda göründüğünü söylemelerine izin vererek, başka birinin aklındaki numarayı elde etmenizi sağlayan belirli "zihin okuma kartlarından" gelir.

Çalışır, çünkü her sayı ikili olarak 1s / 0s'nin benzersiz bir kombinasyonudur . Benim çözümüm, kaç tane kart olduğunu belirlemek için sayının hangi "kartlar" üzerinde göründüğünü kontrol eder 1. Yine de çok verimli değil ...

Zihin okuma tekniğini özetleyen bu belgeyi buldum .

Haskell (60 karakter)

f n=sum[1|x<-[0..n],odd$n`div`2^x]
main=interact$show.f.read

PHP, 57

$i=$s=0;for(;$i<log($n,2);){$s+=$n/pow(2,$i++)%2;}echo$s;

Bu $n, test edilecek değeri tutan varsayımdır .

PHP, 55 (alternatif çözüm)

function b($i){return$i|0?($i%2)+b($i/2):0;}echo b($n);

Yine, bu $ntest edilecek değeri tutan varsayımdır . Bu bir alternatiftir çünkü floorgirdiye or-operatörünü kullanır .

Her iki çözüm de işe yarar ve bildirimlere neden olmaz.

Ocaml, 45 karakter

@Leah Xue'nin çözümüne dayanıyor. Üç boşluk kaldırılabilir ve if-then-else yerine işlevi kullanmak biraz daha kısadır (~ 3 karakter).

let rec o=function 0->0|x->(x mod 2)+(o(x/2))  

Mathematica 26

Count[n~IntegerDigits~2,1]

Scala, 86 karakter

object O extends App{def f(i:Int):Int=if(i>0)i%2+f(i/2)else 0
print(f(args(0).toInt))}

Kullanımı: scala O 56432

D (70 karakter)

int f(string i){int k=to!int(i),r;while(k){if(k%2)r++;k/=2;}return r;}

R, 53 karakter

o=function(n){h=n%/%2;n%%2+if(h)o(h)else 0};o(scan())

Örnekler:

> o=function(n){h=n%/%2;n%%2+if(h)o(h)else 0};o(scan())
1: 56432
2: 
Read 1 item
[1] 8
> o=function(n){h=n%/%2;n%%2+if(h)o(h)else 0};o(scan())
1: 45781254
2: 
Read 1 item
[1] 11
> o=function(n){h=n%/%2;n%%2+if(h)o(h)else 0};o(scan())
1: 0
2: 
Read 1 item
[1] 0

Numarayı girmek karakter sayısının bir parçası değilse, 43 karakterdir:

o=function(n){h=n%/%2;n%%2+if(h)o(h)else 0}

test senaryoları ile

> o(56432)
[1] 8
> o(45781254)
[1] 11
> o(0)
[1] 0

OCaml, 52 karakter

let rec o x=if x=0 then 0 else (x mod 2) + (o (x/2))

düzen

Meydan okumaya eklemek için kuralları biraz cilaladım. İşlev, sayının tabanını umursamaz çünkü kendi ikili ölçeğini kullanır. Analogdan sayısal dönüşüme kadar ilham aldım. Ben sadece bunun için düz özyineleme kullanın:

(define (find-ones n)
  (define (nbits n)
    (let nbits ([i 2])
      (if (< i n) (nbits (* i 2)) i)))
  (let f ([half (/ (nbits n) 2)] [i 0] [n n])
    (cond [(< half 2) i]
      [(< n i) (f (/ half 2) i (/ n 2))]
      [else (f (/ half 2) (+ i 1) (/ n 2))])))

Bir sayıyı ikiliye okumak ya da ikiliden bir "yerleşik temel dönüştürme işlevi" yazdırmak, böylece yukarıdaki printbir tamsayıyı geçersiz kılmak değil mi? Yukarıdaki yanıtların hemen hemen hepsi gibi bir tamsayıyı okumaya ve yazdırmaya izin verirseniz, yerleşik bir popcountişlev kullanarak talepte bulunacağım :

Haskell, 50

Bir yoktu popCounteklenen rutin Data.BitsGHC v7.2.1 / v7.4.1 bu yaz için modülün (biletler konusunda bkz primop ve bağlayıcı ).

import Data.Bits
main=interact$show.popCount.read

GMP de bir popcount işlevi sunmasına rağmen, GMP için kendi GMPYveya GMP::Mpzmodüllerini kullanarak yukarıdaki Python ve Perl puanlarını ne yazık ki yenemiyorum .

JavaScript, 49 47 45 42 bayt

for(n=prompt(o=0);n=n/2|0;o+=n%2);alert(o)

Demo: http://jsfiddle.net/hcYdx/4/

Düzenleme 1: Çıkarın qve ~~yuvarlamak için kullanın , 2 karakter kaydedin.

Düzenleme 2: kullanım |0operatörü yuvarlama yerine ~~parantezler (2 karakter) kaydedin.

Düzenleme 3: basitleştirmek n>0için nve birleşerek n=n/2|0tüm koşulu yapmak; şimdi ifade alanı boşa harcadı :(

Java 7, 36 bayt

int b(Long a){return a.bitCount(a);}

Elbette bu, her şeyden ötürü, Java'nın yerleşik olduğu bir şeydir ...

TI-Basic (TI-84 Plus CE), 30 bayt

Prompt X
0→S
While X
S+remainder(2,X→S
int(X/2→X
End
S

TI-Basic dizgecikli dil olarak, tüm belirteçleri ama remainder(olan bir baytlık , geri kalan iki

PHP, 36 bayt

while($n){$o+=$n%2;$n/=2*1;}echo $o;

Varsayım $n, test edilecek sayıdır, bir PHP Bildirimi gösterir $ove $n0 olduğunda tam olarak çalışmaz (hiçbir şey çıktılamaz).

PHP, 53 bayt

$n=$argv[1];$o=0;while($n){$o+=$n%2;$n/=2*1;}echo $o;

Komut satırı girişini kabul eder, bir PHP Bildirimi göstermez ve 0 için doğru çıktı verir.