文字列のハミングの重みを計算するプログラムを作成します。勝者は、最低のハミング重量を持つプログラムです。

ルール：

• ASCII文字のハミングの重みは、1バイナリ表現で設定されるビットの総数として定義されます。
• 入力エンコードが7ビットASCIIであり、言語の標準的な入力メカニズム（stdin、argsなど）を通過すると仮定します。
• 結果を数値として、標準出力または言語が使用するデフォルト/通常の出力メカニズムに出力します。
• 言うまでもありませんが、実際のプログラムを有効に実行するには、実際にプログラムを実行できる必要があります。
• 勝者は、コードのハミング重みが最も低いソリューションです。
• 申し訳ありませんが、これには空白の解決策はありません！OK、ルールを整理したので、空白でコーディングできます:)

文字ごとの例：

char |  binary  | weight
-----+----------+-------
a    | 01100001 | 3
x    | 01111000 | 4
?    | 00111111 | 6
\x00 | 00000000 | 0
\x7F | 01111111 | 7

J（33）

34よりも1つ低い！

+/,#:3 u:

この回答に大きく影響を受けましたが、ハミングウェイトは1つ低くなります。

   +/,#:3 u:'+/,#:3 u:'
33

J、重量34

+/,#:a.i.

使用法-測定する文字列を最後に引用符で囲みます。

   +/,#:a.i.'+/,#:a.i.'
34

または、キーボードから入力する（ウェイト54）：

   +/,#:a.i.1!:1[1
hello
21

J、39

+/,#:a.i:]

これは、1つの引数を取る関数です。（または]、文字列に直接置き換えます。Garethが述べているように、コストを34に削減します。）

   + /、＃：ai：] 'hello world'
45
   + /、＃：ai：] '+ /、＃：ai：]'
39

Python、189

print sum(bin(ord(A)).count("1")for A in raw_input())

QBasic、 322 311 286 264

H$=COMMAND$
FOR A=1 TO LEN(H$)
B=ASC(MID$(H$,A,1))
WHILE B>0
D=D+B MOD 2
B=B\2
WEND
NEXT
?D

仕事に適したツールの種類は、もちろんもちろん悪いことです。

単項0

あなたは皆、それが来ることを知っていました。最初のBrainFuckプログラム：

,[[>++[>>+>+<<<-]>>>
[<<<+>>>-]>>[-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>
[<<<<<<+>>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-]
[-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>[<<<<<<->>>->>>
[-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]<<<
[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>]<<<<<<
[>>+<[>>+>+<<<-]>>>[<<<+>>>-]>>[-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>
[<<<<<<+>>>>>>-]<<<[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]> 
[-]>[<<<<<<->>>->>>[-]<<<<<<[>>>>+>>+<<<<<<-]>>>>>>[<<<<<<+>>>>>>-]<<<
[>>+>+<<<-]>>>[<<<+>>>-][-]<<[>>[-]<[>[-]+<[-]]<[-]]>[-]>]<<<<<<]>>>
[>+>+<<-]>>[<<+>>-][-]+<[>[-]<<[<<->>-]<<[>>+<<-]>>>[-]]>[<<<+<[-]>>>>
[-]]<<[->>>>+<<<<]<[-<<+>>]<<],]>>>>>>>.

「読み取り可能」にするために改行を追加しましたが、ハミングの重みは4066です。入力文字列の商/剰余を繰り返し取得し、残りをすべて加算することで機能します。もちろん、それを自分自身で実行する必要があります：226（4066％256）（技術的には\ xe2）なので、明らかに勝者になります。

次に、それを単項に変換して取得します

000 ... 9*google^5.9 0's ... 000

'0'にNULL文字\ x00を使用し、0の重みをハミングする単項実装を使用します。

おまけの質問：どのASCII文字に対して、cこのプログラムをNレプリションで構成される文字列で実行し、その文字を出力させることができます。（たとえば、32個のスペースのストリングはスペースを与えます）。N仕事の価値（無限の数が機能するか、機能しない）。

C、重量322 263 256

ハミング重量のハミング重量はカウントされますか？

main(D,H,A)char*A,**H;{for(A=*++H;*A;A+=!(*A/=2))D+=*A%2;printf("%d",D-2);}

主に標準的なゴルフ技術を使用しました。
単一のループが重みを計算し（右にシフトしてゼロになるまで追加）、文字列をスキャンします（ゼロに達するとポインターを進めます）。
想定Dは2（単一パラメーター）に初期化されます。

ハミングの重み固有の最適化：
1. ABDH、名前に使用される重み2をそれぞれ使用。
2.に*++H優先H[1]。

Golfscript 84 72 58

{2base~}%{+}*

（協力してくれたハワードとピーター・テイラーに感謝）

入力：入力文字列はスタック上にある必要があります（コマンドライン引数として渡されるか、単にスタック上に配置されます）。

コマンドラインから実行する場合は、必ず使用してくださいecho -n。そうしないと、末尾の改行もカウントされます。

出力：ハミング重量値をコンソールに出力します

ここでプログラムをテストできます。

Perl、80（22文字）

完了および完了：

perl -0777nE 'say unpack"%32B*"'

または、重み77（21文字）の代替バージョンがあります。

perl -0777pE '$_=unpack"%32B*"'

ただし、その出力では最後の改行が省略されるため、このバージョンはあまり好きではありません。

重量を計算するために、通常の方法で文字をカウントしていると仮定しています（perl -e/ を除く-Eが、他のオプション文字を含む）。何らかの理由で人々がこれについて文句を言う場合、オプションなしでできる最善の方法は90（26文字）です。

$/=$,,say unpack"%32B*",<>

サンプル使用法：

$ perl -0777nE 'say unpack"%32b*"' rickroll.txt
7071

ブーム。

パイス-15

免責事項：Pythはこのチャレンジよりも若いため、この回答は勝ちません。

.Bバイナリ表現に使用し、の数をカウントし"1"ます。

/.BQ\1

z対で保存する文字列の入力を受け取りますQ。

こちらからオンラインでお試しください。

Scala 231

readLine().map(_.toInt.toBinaryString).flatten.map(_.toInt-48)sum

自己診断コード：

"""readLine().map(_.toInt.toBinaryString).flatten.map(_.toInt-48)sum""".map(_.toInt.toBinaryString).flatten.map(_.toInt-48)sum

セルフテストの変更。

Javaの、重量931 774 499 454

これは、現時点で約300を超える重みを持つ唯一の答えだと思います。

class H{public static void main(String[]A){System.out.print(new java.math.BigInteger(A[0].getBytes()).bitCount());}}

コマンドライン引数として入力を期待します。

GNU sed -r、467 + 1

（+1の使用-r-またはそれは+4ですか？）

ソース行ごとに単項値として出力します。10進数の合計に変換するには、出力をにリダイレクトします| tr -d "\n" | wc -c。すべての印刷可能なASCII文字（32〜126）と改行（10）をカウントします。

s@[a-z]@\U& @g
s@[?{}~]@      @g
s@[][/7;=>OW|^]@     @g
s@[-'+.3569:<GKMNSUVYZ\\]@    @g
s@[#%&)*,CEFIJL1248ORTX]@   @g
s@$|[!"$(ABDH0P`]@  @g
y! @!11!

すべての文字をリストすることを避けるのは困難ですが、小文字のハミングの重みが対応する大文字よりも1つ大きいことを観察して、これを減らすことができます。ステートメントの区切り文字として、セミコロン（スコア5）よりも改行（スコア2）の方が適しています。パターンの区切り文字として（スコア5）よりも@（スコア1）または!（スコア2）を優先し/ます。

注-適切な文字セットを取得するために、の1つからこのテーブルを作成しman ascii、重みでソートしました。スコアを左右に追加するだけで、各キャラクターの全体的な重みを取得できます。

   2 4   3 5 6   7 
   ---  ------   - 
0:   @   0 P `   p |0

1: ! A   1 Q a   q | 
2: " B   2 R b   r |1
4: $ D   4 T d   t | 
8: ( H   8 X h   x | 

3: # C   3 S c   s | 
5: % E   5 U e   u | 
6: & F   6 V f   v |2
9: ) I   9 Y i   y | 
A: * J   : Z j   z | 
C: , L   < \ l   | | 

7: ´ G   7 W g   w | 
B: + K   ; [ k   { |3
D: - M   = ] m   } | 
E: . N   > ^ n   ~ | 

F: / O   ? _ o     |4
   ---  ------   -  
    1      2     3

これは、他の人に役立つかもしれません。

ジュリア262268

変更されたバージョンは、6の節約のために便利な「count_ones」関数を使用します（262）

show(mapreduce(x->count_ones(x),+,map(x->int(x),collect(ARGS[1]))))

組み込みのワンカウント機能を使用しない古いバージョン（268）

show(mapreduce(x->int(x)-48,+,mapreduce(x->bits(x),*,collect(ARGS[1]))))

入力にコマンドライン引数を使用します。

CJam 52または48

入力がまだスタックにない場合（52）

q:i2fbs:s:i:+

入力がスタック上にある場合（48）

:i2fbs:s:i:+

例えば

"Hello World":i2fbs:s:i:+

ジュリア、HW 199

H=mapreduce;H(B->B=='1',+,H(P->bits(P),*,collect(A[:])))

と

A="H=mapreduce;H(B->B=='1',+,H(P->bits(P),*,collect(A[:])))"

または直接文字列を挿入することにより：

julia> H=mapreduce;H(B->B=='1',+,H(P->bits(P),*,collect("H=mapreduce;H(B->B=='1',+,H(P->bits(P),*,collect(A[:])))")))
199

改変されていないバージョン（HW 411）は次のようになります。

bitstring=mapreduce(x->bits(x),*,collect(teststring[:]))
mapreduce(checkbit->checkbit=='1',+,bitstring)

そして、その楽しみのために、この問題に対するbakergの見解の最適化バージョン（Hamming Weight 231）を以下に示します。

A=mapreduce;show(A(B->int(B)-48,+,A(B->bits(B),*,collect(H[:]))))

と

H="A=mapreduce;show(A(B->int(B)-48,+,A(B->bits(B),*,collect(H[:]))))"

HPPPL（HP Prime Programming Language）、74

sum(hamdist(ASC(a),0))

HP Primeグラフ電卓には、組み込みのhamdist（）関数があります。各キャラクターのハミングウェイトは、0からのハミング距離と同じです。

ASC（string）は、文字列内の各文字のASCII値の配列を作成します。

hamdist（value、0）は、ASCII値ごとに0からハミング距離を計算します

sum（）はすべての値を合計します。

独自のソースコードのハミングウェイトの計算：

05AB1E、重み17（4 バイト）

ÇbSO

オンラインそれを試してみてくださいまたはいくつかのより多くのテストケースを検証します。

説明：

Ç       # Convert the characters in the (implicit) input to their ASCII decimal values
        #  i.e. "Test" → [84,101,115,116]
 b      # Convert those values to binary
        #  i.e. [84,101,115,116] → ["1010100","1100101","1110011","1110100"]
  S     # Split it into a list of 0s and 1s (implicitly flattens)
        #  i.e. ["1010100","1100101","1110011","1110100"]
        #   → [1,0,1,0,1,0,0,1,1,0,0,1,0,1,1,1,1,0,0,1,1,1,1,1,0,1,0,0]
   O    # Sum those (and output implicitly)
        #  i.e. [1,0,1,0,1,0,0,1,1,0,0,1,0,1,1,1,1,0,0,1,1,1,1,1,0,1,0,0] → 16

Perl 6の、102

+*.ords>>.base(2).comb(~1)

オンラインでお試しください！

これはコードゴルフではありませんが、最短の解決策は最小のハミング重量を持っているようです...