BMO2 2009 의 네 번째 문제에서 영감을 얻었습니다 .

양의 정수 n 을 입력 또는 매개 변수로 지정하면 이진 표현이 n 의 이진 확장에서 블록으로 발생하는 양의 정수 수를 반환합니다 .

예를 들어, 이진의 13이 1101이고 하위 문자열이 있기 때문에 13-> 6 1101, 110, 101, 11, 10, 1입니다. 우리는 0으로 시작하는 이진수를 세지 않으며 0 자체를 세지 않습니다.

테스트 사례

13 -> 6
2008 -> 39
63 -> 6
65 -> 7
850 -> 24
459 -> 23
716 -> 22
425 -> 20
327 -> 16

다음 중 하나로 n 을 사용할 수 있습니다 .

• 정수
• 이진 표현에 대한 진실 / 거짓 값의 목록
• 이진 표현을위한 문자열
• 기본 10 문자열 (아무도 왜 이것을 할 지 모르겠지만)

코드를 가능한 짧게 만드십시오.

파이썬 3, 54 50 바이트

lambda n:sum(bin(i)[2:]in bin(n)for i in range(n))

4 바이트를 절약 한 Rod와 Jonathan Allan에게 감사합니다.

젤리 , 4 바이트

ẆQSḢ

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

0s 및 1s 목록으로 입력을 받습니다.

숫자와 함께 온라인으로 사용해보십시오!

설명:

ẆQSḢ Argument: B = list of bits, e.g. [1, 1, 0, 1]
Ẇ    Get B's non-empty sublists (i.e. [[1], [1], [0], [1], [1, 1], [1, 0], [0, 1], [1, 1, 0], [1, 0, 1], [1, 1, 0, 1]])
 Q   Keep first occurrences (i.e. [[1], [0], [1, 1], [1, 0], [0, 1], [1, 1, 0], [1, 0, 1], [1, 1, 0, 1]])
  S  Reduce by vectorized addition (i.e. [6, 4, 1, 1])
   Ḣ Pop first element (i.e. 6)

작동한다는 증거 :

이 프로그램은 입력 번호 N을 얻습니다. . 이 제품이 수행하는 첫 번째 일은 물론,의 문자열 걸릴 것입니다 N ₂ ( N 자료 2 ). 여기에는 0 또는 1로 시작하는 중복 하위 문자열이 포함됩니다 .

그런 다음 하위 문자열 목록에서 각 값의 첫 번째 항목 만 유지하여 고유 한 하위 문자열을 가져옵니다.

그런 다음이 프로그램은 목록의 첫 번째 요소를 합한 다음 두 번째 요소, 세 번째, 네 번째 등을 합하며 목록 중 하나에 해당 요소 0가없는 것으로 가정합니다. 문제는 효과적으로 묻는 것입니다. 이 숫자는 1로 시작하는 고유 한 하위 문자열 이 몇 개입니까? . 계산할 첫 번째 요소는 모두이므로 1적절한 하위 문자열을 필터링하는 대신 간단히 합할 수 있습니다.

이제 위에서 설명한 합계 목록의 첫 번째 요소는 하위 문자열의 첫 번째 비트 수를 유지하므로 간단히 팝하고 마지막으로 반환합니다.

옥타브 , 62 61 바이트

@(n)sum(arrayfun(@(t)any(strfind((g=@dec2bin)(n),g(t))),1:n))

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

설명

input의 경우이 n코드 는 이진수 표현이 입력 이진 표현의 하위 문자열인지 확인 1하기 n위해 모든 숫자를 테스트합니다 .

@(n)                                                          % Anonymous function of n
        arrayfun(                                      ,1:n)  % Map over range 1:n
                 @(t)                                         % Anonymous function of t
                         strfind(               ,    )        % Indices of ...
                                                 g(t)         % t as binary string ...
                                 (g=@dec2bin)(n)              % within n as binary string
                     any(                             )       % True if contains nonzero
    sum(                                                    ) % Sum of array

05AB1E , 5 바이트

입력을 이진 문자열로 가져옵니다.
헤더는 테스트하기 쉽도록 정수 입력을 2 진으로 변환합니다.

ŒCÙĀO

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

설명

Π       # push all substrings of input
 C       # convert to base-10 int
  Ù      # remove duplicates
   Ā     # truthify (convert non-zero elements to 1)
    O    # sum

Perl 5 , 36 + 1 ( -p) = 37 바이트

/.*(.+?)(?{$k{0|$1}++})(?!)/;$_=%k-1

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

입력을 이진 문자열로 가져옵니다.

PowerShell , 103 92 82 바이트

param($s)(($s|%{$i..$s.count|%{-join$s[$i..$_]};$i++}|sort -u)-notmatch'^0').count

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

입력을 1and 의 배열로 0가져옵니다 (PowerShell에서 진실하고 거짓). 루프를 통해 $s(즉, 입력 배열의 요소 수) 현재 번호에서 루프, 우리 루프 내부에서 (로 저장 $i까지) $s.count. 각각의 내부 루프 -join는 배열 슬라이스를 문자열로 만듭니다. 우리는 다음 sort과 -u(보다 짧은 nique 플래그 select와 -unique 플래그와 우리는 그들이 분류 여부를하든 상관하지 않습니다)로 시작하지 않는 사람들을 0, 그리고 전체를 취할 .count. 그것은 파이프 라인에 남아 있으며 출력은 암시 적입니다.

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

f=(s,q="0b"+s)=>q&&s.includes((q--).toString(2))+f(s,q)

입력을 이진 문자열로 가져옵니다.

숫자와 재귀 함수를 사용하여 슬픈 시도를합니다.

f=(n,q=n)=>q&&(g=n=>n?n^q&(h=n=>n&&n|h(n>>1))(q)?g(n>>1):1:0)(n)+f(s,q-1)

이전 접근 방식, 74 바이트

s=>(f=s=>+s?new Set([+s,...f(s.slice(1)),...f(s.slice(0,-1))]):[])(s).size

입력을 이진 문자열로 사용합니다.

파이썬 2 ,  118  81 바이트

37 바이트를 절약 한 @Rod에게 감사드립니다!

lambda n:len({int(n[i:j+1],2)for i in range(len(n))for j in range(i,len(n))}-{0})

입력을 이진 문자열로 가져옵니다.

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

파이썬 2 , 81 바이트

@Rod에게 감사합니다!

lambda n:len({n[i:j+1]for i in range(len(n))for j in range(i,len(n))if'1'==n[i]})

입력을 이진 문자열로 가져옵니다.

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

젤리 , 5 바이트

ẆḄQṠS

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

1과 0의 목록으로 입력을받습니다. 링크의 바닥 글은 게시물의 각 예제에 기능을 적용합니다.

Jonathan Allan ẆḄQTL은 5 바이트 대안을 사용하여T 은 모든 진실 요소의 색인을 찾는 원자를 .

설명

bin (13) = 1101을 예로 들어 보겠습니다. 입력은[1,1,0,1]

ẆḄQṠS
Ẇ       All contiguous sublists -> 1,1,0,1,11,10,01,110,101,1101 (each is represented as a list)
 Ḅ      From binary to decimal. Vectorizes to each element of the above list -> 1,1,0,1,3,2,1,6,5,13
  Q     Unique elements
   Ṡ    Sign. Positive nums -> 1 , 0 -> 0.
    S   Sum

05AB1E 답변 에서 "truthify"(이 경우 서명) 아이디어를 얻었습니다.

R , 88 77 바이트

function(x)sum(!!unique(strtoi(mapply(substring,x,n<-1:nchar(x),list(n)),2)))

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

입력을 이진 문자열로 가져옵니다.

를 사용 mapply하여 입력의 모든 하위 문자열 배열을 생성합니다. strtoi기본 2정수 로 변환하고 !!결과에서 항목 의 논리적 변환 ( )의 합을 취합니다 .

망막 , 37 29 바이트

.+
*
+`(_+)\1
$1#
#_
_
wp`_.*

온라인으로 사용해보십시오! 방금 Retina 1.0의 w수정자를 사용해 보았습니다 . 편집 : @MartinEnder 덕분에 8 바이트가 절약되었습니다. 설명:

.+
*

십진수에서 단항으로 변환합니다.

+`(_+)\1
$1#
#_
_

#for 0와 _1을 사용하여 단항에서 이진으로 변환 합니다.

wp`_.*

로 시작하는 문자열을 생성 1, 내 말은 _. w수정은 모든 문자열, 각각의 시작에서뿐만 아니라 긴 하나와 일치 _그동안, p수정 중복 제거 성냥. 마지막으로 이것이 마지막 단계이므로 일치 횟수가 암시 적으로 반환됩니다.

Pyth , 8 바이트

l #{vM.:

여기 사용해보십시오!

입력을 이진 문자열로 가져옵니다.

.:모든 하위 문자열을 생성하고, vM각각을 평가하고 (즉, 각각을 이진에서 변환) {중복 제거 <space>#하고 ID별로 필터링 l하고 길이를 가져옵니다.

Wolfram Language (Mathematica) , 35 바이트

이 코드는 설명이 필요한지 확실하지 않지만 1로 시작하는 이진 표현의 고유 한 하위 시퀀스를 계산합니다.

Union@Subsequences@#~Count~{1,___}&

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

펄 6 , 47 바이트

->\n{+grep {n.base(2).contains(.base: 2)},1..n}

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

줄리아 0.6 , 37 바이트

~n=sum(contains.([bin(n)],bin.(1:n)))

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

방송과 함께 요소 별 함수 애플리케이션에 사용 하는 J843136028 의 Python 답변 Juliafication. . ( 링크 )

자바, 232 바이트

String b=toBin(n);
l.add(b);
for(int i=1;i<b.length();i++){
for(int j=0;j<=b.length()-i;j++){
String t="";
if((""+b.charAt(j)).equals("0"))continue;
for(int k=0;k<i;k++){
t+=""+b.charAt(j+k);
}
if(!l.contains(t))l.add(t);
}
}
return l.size();

여기서 n은 입력이고 b는 이진 표현이고 l은 모든 하위 문자열의 목록입니다. 여기에 처음 게시 할 때는 반드시 개선해야하며 실수를 지적해도됩니다! 가독성을 위해 약간 편집했습니다.

첨부 , 35 바이트

`-&1@`#@Unique@(UnBin=>Subsets@Bin)

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

동등하게 :

{#Unique[UnBin=>Subsets[Bin[_]]]-1}

설명

나는 두 번째 버전을 설명하기가 더 쉽습니다 (명시적임).

{#Unique[UnBin=>Subsets[Bin[_]]]-1}
{                                 }   lambda: _ = first argument
                        Bin[_]        convert to binary
                Subsets[      ]       all subsets of input
         UnBin=>                      map UnBin over these subsets
  Unique[                      ]      remove all duplicates
 #                              -1    size - 1 (since subsets is improper)

루비 41 36 27 바이트

이진 문자열을 입력으로 사용

매우 비효율적입니다

->n{(?1..n).count{|j|n[j]}}

이 파이썬 3 답변에서 부분적으로 영감을 얻었습니다.

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

자바 (8), 160 (159) 158 바이트

import java.util.*;b->{Set s=new HashSet();for(int l=b.length(),i=0,j;i<l;i++)for(j=l-i;j>0;s.add(new Long(b.substring(i,i+j--))))s.add(0L);return~-s.size();}

이진 문자열로 입력하십시오.
더 짧은 방법이 있어야합니다 ..>.>

설명:

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

import java.util.*;          // Required import for Set and HashSet
b->{                         // Method with String as parameter and integer as return-type
  Set s=new HashSet();       //  Create a Set
  for(int l=b.length(),      //  Set `l` to the length of the binary-String
      i=0,j;i<l;i++)         //  Loop from 0 up to `l` (exclusive)
    for(j=l-i;j>0;           //   Inner loop from `l-i` down to `0` (exclusive)
      s.add(new Long(b.substring(i,i+j--))))
                             //    Add every substring converted to number to the Set
      s.add(0L);             //    Add 0 to the Set
  return~-s.size();}         //  Return the amount of items in the Set minus 1 (for the 0)

C ++, 110 바이트

#include<set>
std::set<int>s;int f(int n){for(int i=1;i<n;i+=i+1)f(n&i);return n?s.insert(n),f(n/2):s.size();}

재귀 함수입니다. 우리는 std::set중복을 무시하고 값을 계산 하기 위해 a 를 사용합니다 . 두 개의 재귀 호출은 왼쪽 ( f(n&i)) 및 오른쪽 ( f(n/2))에서 비트를 마스크하여 결국 모든 하위 문자열을 정수로 생성합니다.

다시 전화를 걸려면 통화 s간에 지워 져야합니다.

테스트 프로그램

#include <cstdlib>
#include <iostream>

int main(int, char **argv)
{
    while (*++argv) {
        auto const n = std::atoi(*argv);
        s={};
        std::cout << n << " -> " << f(n) << std::endl;
    }
}

결과

./153846 13 2008 63 65 850 459 716 425 327
13 -> 6
2008 -> 39
63 -> 6
65 -> 7
850 -> 24
459 -> 23
716 -> 22
425 -> 20
327 -> 16

J , 34 바이트

f=.3 :'<:#~.,(#:i.2^##:y)#.;.1#:y'

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

J , 15 바이트

#.\\.#@=@-.&,0:

입력은 이진 목록입니다. 온라인으로 사용해보십시오!

#.\\.               Convert every substring to decimal
         -.&,0:     Flatten and remove the 0s.        
     #@=            How many unique elements?

펄 6 , 34 바이트

{+unique ~«(.base(2)~~m:ex/1.*/)}

그것을 테스트

넓히는:

{
  +                                # turn into Numeric (number of elements)
   unique                          # use only the unique ones
          ~«(                      # turn into strings
             .base(2)              # the input in base 2
                     ~~
                       m:ex/1.*/   # :exhaustive match substrings
                                )
}