문자열 의 해밍 가중치 를 계산하는 프로그램을 작성하십시오 . 우승자는 해밍 무게가 가장 낮은 프로그램입니다.

규칙 :

• ASCII 문자의 해밍 가중치 1는 이진 표현으로 설정된 총 비트 수로 정의됩니다 .
• 입력 인코딩이 7 비트 ASCII라고 가정하고 사용자 언어에 맞는 입력 메커니즘 (예 : stdin, args)을 통과합니다.
• stdout 또는 언어가 사용하는 기본 / 정상 출력 메커니즘에 결과를 숫자로 출력하십시오.
• 말할 것도없이 실제로 유효한 프로그램 이 되려면 실제로 실제 프로그램을 실행할 수 있어야합니다 .
• Winner는 코드가 해밍 가중치가 가장 낮은 솔루션입니다.
• 죄송합니다. 이 공백 에는 해결책이 없습니다 ! 좋아, 이제 공백으로 코딩 할 수 있습니다. 규칙을 정렬했습니다. :)

문자 별 예 :

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

J (33)

하나는 34보다 낮습니다!

+/,#:3 u:

심하게 영감 에 의해 이 대답 하지만, 하나의 해밍 무게가 내립니다.

   +/,#: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:]

이것은 하나의 인수를 취하는 함수입니다. (또는 ]Gareth가 지적했듯이 비용을 34로 낮추는 문자열로 직접 교체하십시오 .)

   + /, # : ai :] 'hello world'
45
   + /, # : ai :] '+ /, # : ai :]'
39

파이썬, 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

우리는 NULL 문자 \ x00 '0'과 붐에 대한 단항 구현을 사용하며 해밍 가중치는 0입니다.

보너스 질문 : 어떤 ASCII 문자 c에 대해 N회귀 로 구성된 문자열에서이 프로그램을 실행 하고 해당 문자를 출력 할 수 있습니다. (EG 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);}

주로 표준 골프 기술을 사용했습니다.
단일 루프는 가중치를 계산하고 (오른쪽으로 이동하고 0까지 추가) 문자열을 스캔합니다 (0에 도달하면 포인터를 전진).
가정 D이 2 (단일 매개 변수)로 초기화 되었다고 가정합니다 .

해밍 가중치 별 최적화 :
1. ABDH가중치가 각각 2 인 이름에 사용됩니다.
2. *++H선호 H[1].

골프 스크립트 84 72 58

{2base~}%{+}*

(하워드와 피터 테일러에게 도움을 주셔서 감사합니다)

입력 : 입력 문자열은 스택에 있어야합니다 (명령 줄 인수로 전달되거나 단순히 스택에 배치됨).

명령 행에서 실행하는 경우 반드시를 사용하십시오 echo -n. 그렇지 않으면 후행 줄 바꿈도 계산됩니다.

출력 : 해밍 중량 값을 콘솔에 인쇄

이 프로그램은 여기에서 테스트 할 수 있습니다 .

펄 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

문자열을 입력하여 zvs 에 저장합니다 Q.

여기에서 온라인으로 사용해보십시오 .

스칼라 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

자체 테스트 수정.

자바, 무게 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을 사용하려면 +1 -r이어야합니까?)

소스 라인 당 단항 값으로 출력합니다. 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)을 선호합니다. 패턴 구분 기호로 @(점수 1) 또는 !(점수 2)를 선호합니다 /.

참고-올바른 문자 집합을 얻으려면이 표를의 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

수정 된 버전은 편리한 'count_ones'기능을 사용하여 6을 절약합니다 (262).

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

내장 된 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 주요 프로그래밍 언어), 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

펄 6 , 102

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

온라인으로 사용해보십시오!

이것이 코드 골프는 아니지만 가장 짧은 솔루션은 해밍 무게가 가장 작은 것 같습니다 ...