도전 :

1범위 사이의 모든 숫자의 이진 표현에서 1의 수를 계산하십시오 .

입력 :

두 개의 10 진수가 아닌 양의 정수

출력 :

1두 숫자 사이의 범위에있는 모든의 합입니다 .

예 :

4 , 7        ---> 8
4  = 100 (adds one)   = 1
5  = 101 (adds two)   = 3
6  = 110 (adds two)   = 5
7  = 111 (adds three) = 8

10 , 20     ---> 27
100 , 200   ---> 419
1 , 3       ---> 4
1 , 2       ---> 2
1000, 2000  ---> 5938

나는 첫 번째 예제 만 설명했다. 그렇지 않으면 모든 것을 설명하려고 시도하면 엄청난 양의 공간을 차지했을 것입니다.

노트 :

• 숫자는 1000 이상으로 나눌 수 있습니다
• 모든 입력이 유효합니다.
• 최소 출력은 1입니다.
• 숫자를 두 요소의 배열로 사용할 수 있습니다.
• 숫자 순서를 선택할 수 있습니다.

우승 기준 :

이것은 코드 골프 이므로 각 언어마다 가장 짧은 바이트 단위의 코드가 승리합니다.

자바 스크립트 (ES6), 38 바이트

카레 구문으로 입력을 (a)(b)받습니다.

a=>b=>(g=c=>a>b?0:1+g(c^c&-c||++a))(a)

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

댓글

a => b => (         // given the input values a and b
  g = c =>          // g = recursive function taking c = current value
    a > b ?         // if a is greater than b:
      0             //   stop recursion and return 0
    :               // else:
      1 +           //   add 1 to the final result
      g(            //   and do a recursive call to g() with:
        c ^ c & -c  //     the current value with the least significant bit thrown away
        || ++a      //     or the next value in the range if the above result is 0
      )             //   end of recursive call
)(a)                // initial call to g() with c = a

파이썬 2 , 47 바이트

f=lambda x,y:y/x and bin(x).count('1')+f(x+1,y)

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

자바 (JDK 10) , 55 바이트

a->b->{int c=0;for(;a<=b;)c+=a.bitCount(b--);return c;}

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

05AB1E , 4 바이트

ŸbSO

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

파이썬 2 , 45 바이트

lambda x,y:`map(bin,range(x,y+1))`.count('1')

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

MATL , 5 4 바이트

&:Bz

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

바이트를 저장 한 Luis Mendo에게 감사합니다!

(implicit input a and b, a<b)
&:                              % two-element input range, construct [a..b]
  B                             % convert to Binary as a logical vector (matrix)
   z                            % number of nonzero entries
(implicit output of the result)

R , 41 34 바이트

function(a,b)sum(intToBits(a:b)>0)

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

ngm의 다른 R 솔루션에서 많은 영향을 받았습니다 . 이것은 비트로 변환 한 후에 다른 접근법을 사용합니다. 가능한 34 바이트 솔루션을 암시하는 Giuseppe에게 큰 감사를드립니다.

젤리 , 4 바이트

rBFS

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

설명

rBFS – 전체 프로그램. 명령 행 인수에서 두 입력을 가져옵니다.
r – 범위.
 B – 각각에 대해 이진으로 변환합니다.
  FS – 평탄화 및 합계.

Pyth , 8 7 바이트

Mr. Xcoder 덕분에 1 바이트.

ssjR2}F

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

APL (Dyalog Unicode) , 16 바이트

{≢⍸(⍵⍴2)⊤⍺↓0,⍳⍵}

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

H.PWiz 덕분에 -1 .

왼쪽 인수 = 최소
오른쪽 인수 = 최대

파이썬 3 , 56 54 52 바이트

이보다 더 많은 골프를하실 수 있습니다. Mr.Xcoder 덕분에 -2 바이트 MI Wright 덕분에 더 많은 바이트

lambda a,b:''.join(map(bin,range(a,b+1))).count('1')

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

Stax , 6 바이트

çy╠Ƽ☻

실행 및 디버깅

배쉬 + 공통 유틸리티, 50

jot -w%o - $@|tr 247356 1132|fold -1|paste -sd+|bc

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

정수를 이진 문자열로 변환하는 것은 항상 bash에서 약간의 고통입니다. 여기서의 접근 방식은 약간 다릅니다. 정수를 8 진수로 변환 한 다음 각 8 진수를 포함하는 이진수 1의 수로 바꿉니다. 그런 다음 변환 된 모든 자릿수를 합할 수 있습니다

APL + WIN, 33 26 바이트

정수 벡터에 대한 프롬프트 :

+/,((↑v)⍴2)⊤(1↓v)+0,⍳-/v←⎕

온라인으로 사용해보십시오! Dalog Classic의 의례

설명:

v←⎕ prompt for input of a vector of two integers max first

(v←1↓v)+0,⍳-/ create a vector of integers from min to max

(↑v)⍴2 set max power of 2 to max 

⊤ convert integers to a matrix of binaries

+/, convert matrix to a vector and sum

R , 44 40 37 바이트

function(a,b)sum(c(0,intToBits(a:b)))

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

이전 :

function(a,b)sum(strtoi(intToBits(a:b)))
function(a,b)sum(as.integer(intToBits(a:b)))

통신 도구 상자가있는 옥타브 , 21 바이트

@(a,b)nnz(de2bi(a:b))

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

코드는 분명해야합니다. 범위 내 각 숫자의 이진 표현에서 0이 아닌 요소의 수입니다.

이것은 @(a,b)nnz(dec2bin(a:b)-48)통신 도구 상자 가 없을 것 입니다.

껍질 , 4 바이트

Σṁḋ…

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

설명

Σṁḋ…
   …     Get the (inclusive) range.
 ṁḋ      Convert each to binary and concatenate.
Σ        Get the sum.

루비 , 38 바이트

->a,b{("%b"*(b-a+1)%[*a..b]).count ?1}

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

PHP, 97 바이트

(단축 될 수 있지만 기능을 사용하고 싶음)

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

암호

<?=substr_count(implode(array_map(function($v){return decbin($v);},
 range($argv[0],$argv[1]))),1);

설명

<?=
 substr_count(   //Implode the array and count every "1"
  implode(
    array_map(function($v){return decbin($v);}, //Transform every decimal to bin
          range($argv[0],$argv[1])   //generate a range between the arguments
     )
),1);   //count "1"'s

PowerShell , 72 바이트

param($x,$y)$x..$y|%{$o+=([convert]::ToString($_,2)-replace0).length};$o

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

바이너리로 변환 [convert]::ToString($_,2)하고 0을 제거 하기 때문에 오래 걸립니다 -replace0. 그렇지 않으면 우리는 입력 숫자를 취하고 범위를 만들고 범위의 $x..$y각 숫자에 대해 이진수로 변환하고 0을 제거하고 0을 제거하고 .length(즉, 남은 숫자 수) $output에 추가합니다 .

하스켈 , 42 바이트

import Data.Bits
a%b=sum$popCount<$>[a..b]

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

핍 , 10 바이트

$+JTB:a\,b

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

설명

            a and b are command-line args (implicit)
      a\,b  Inclusive range from a to b
   TB:      Convert to binary (: forces TB's precedence down)
  J         Join into a single string of 1's and 0's
$+          Sum (fold on +)

양성자 , 40 37 바이트

x=>y=>str(map(bin,x..y+1)).count("1")

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

숯 , 10 바이트

ＩΣ⭆…·ＮＮ⍘ι²

온라인으로 사용해보십시오! 링크는 자세한 버전의 코드입니다. 설명:

     ＮＮ     Input numbers
   …·       Inclusive range
  ⭆         Map over range and join
        ι   Current value
         ²  Literal 2
       ⍘    Convert to base as string
 Σ          Sum of digits
Ｉ           Cast to string
            Implicitly print

Brachylog , 8 바이트

⟦₂ḃᵐcọht

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

설명

⟦₂         Ascending range between the two elements in the input
  ḃᵐ       Map to base 2
    c      Concatenate
     ọ     Occurrences of each element
      h    Head: take the list [1, <number of occurrences of 1>]
       t   Tail: the number of occurrences of 1

Bash + coreutils, 38 32 바이트

seq -f2o%.fn $*|dc|tr -d 0|wc -c

6 바이트를 골라 낸 @Cowsquack에게 감사드립니다!

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

K (ngn / k) , 19 13 바이트

{+//2\x_!1+y}

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

{ }인수가있는 함수 x이며y

!1+y 목록입니다 1 1 ... y

x_ 첫 x 요소를 삭제합니다

2\ 각 int를 동일한 길이의 이진 숫자 목록으로 인코딩합니다 (ngn / k에만 해당).

+/ 합집합

+//수렴까지의 합; 이 경우 모든 이진수 목록의 합의 합

펄 6 , 32 30 바이트

Brad Gillbert 덕분에 -1 바이트

{[…](@_)>>.base(2).comb.sum}

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

설명:

[…](@_)    #Range of parameter 1 to parameter 2
       >>    #Map each number to
                      .sum  #The sum of
                 .comb      #The string of
         .base(2)    #The binary form of the number

J , 16, 15 14 바이트

FrownyFrog 덕분에 1 바이트가 절약되었습니다!

+/@,@#:@}.i.,]

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

설명:

이항 동사, 왼쪽 인수는 m범위의 하한, 오른쪽은 상단 n입니다.

            ,    append                      
             ]   n to the
          i.     list 0..n-1
         }.      drop m elements from the beginning of that list 
      #:@        and convert each element to binary 
    ,@           and flatten the table
 +/@             and find the sum

Q 기본, 95 93 83 82 바이트

@DLosc 나에게 구원을 몇 바이트의 많은!

이 기술을 사용하여 다른 바이트를 저장했습니다 !

INPUT a,b
FOR i=a TO b
k=i
FOR j=i TO 0STEP-1
x=k>=2^j
s=s-x
k=k+x*2^j
NEXT j,i
?s

이달의 언어 FTW!

설명

INPUT a,b           Ask user for lower and upper bound
FOR i=a TO b        Loop through that range
k=i                 we need a copy of i to not break the FOR loop
FOR j=i TO 0STEP-1  We're gonna loop through exponents of 2 from high to low.
                    Setting the first test up for 4 to 2^4 (etc) we know we're overshooting, but that 's OK
x=k>=2^j            Test if the current power of 2 is equal to or smaller than k 
                    (yields 0 for false and -1 for true)
s=s-x               If k is bigger than 2^j, we found a 1, so add 1 to our running total s
                    (or sub -1 from the total s...)
k=k+x*2^j           Lower k by that factor of 2 if the test is true, else by 0
NEXT                Test the next exponent of 2
NEXT                process the next number in range
?s                  print the total

Dosbox에서 실행되는 QBasic 4.5에서는 1000에서 2000까지의 마지막 테스트 케이스가 실제로 작동합니다.