비어 있지 않은 문자열 집합과 문자열 목록이 제공되면 목록에서 집합이 몇 번 발생하는지, 즉 목록의 항목으로 집합을 만들 수있는 횟수를 확인하십시오. 목록의 모든 요소는 한 번만 사용할 수 있습니다.

힌트 : 세트는 순서가없는 고유 항목 목록입니다.

기본 입력 / 출력 규칙이 적용됩니다.

외부 라이브러리는 허용되지 않습니다. 컴파일러 / 인터프리터 표준 라이브러리는 괜찮습니다. 이것은 코드 골프이므로 가장 짧은 솔루션 수입니다.

테스트 사례 :

["apple", "banana"], ["apple", "pear", "apple", "banana", "banana"] => 2

["apple", "banana"], ["apple", "pear", "apple", "banana", "apple"] => 1

["apple", "banana", "pear"], ["apple", "banana", "kiwi", "apple"] => 0

["coconut"], [] => 0

편집 : 입력 매개 변수가 로컬 범위에서 정의되었다는 문장을 제거했습니다. 이것은 위에 링크 된 기본 IO 규칙과 모순됩니다.

파이썬, 30 바이트

lambda s,l:min(map(l.count,s))

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

젤리 , 4 바이트

⁼þSṂ

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

어떻게?

⁼þSṂ - Main link: list theSet, list theList
 þ   - outer product using the dyadic operation:
⁼    -     is equal? (non-vectorising)
  S  - sum (vectorises) (yields the number of times each element of theSet appears in theList)
   Ṃ - minimum (can only make the minimum as a multiple)

젤리 , 6 5 4 바이트

ċ@€Ṃ

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

프로그램의 첫 번째 인수는 세트이고 두 번째 인수는 목록입니다.

설명

ċ@€Ṃ
ċ@   -- Create a link which finds the number of occurrences of 
          its left argument in its right argument (the list)
  €  -- Map this link over each element in the first argument
          of the program (the set)
   Ṃ -- Minimum value of this.

@ETHproductions 덕분에 -1 바이트

@ETHproductions 덕분에 다시 1 바이트

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

f=(n,h)=>Math.min(...n.map(c=>h.filter($=>$==c).length))

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

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

(s,l)=>l.map(e=>m[s.indexOf(e)]++,m=s.map(e=>0))&&Math.min(...m)

가정 모두 s와 l객체의 배열입니다. 비교에 JavaScript 엄격한 동등성을 사용하므로 예를 들어 [] === []false입니다.

하스켈 , 37 34 바이트

3 바이트를 줄인 @Laikoni에게 감사드립니다.

s#l=minimum[sum[1|y<-l,y==x]|x<-s]

파생 (set::[a]) # (list::[a])되는 a모든 유형은 어디 에서나 호출하십시오 Eq.

CJam , 11 바이트

q~f{\e=}:e<

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

설명

q~           e# Read and eval the input
  f{\e=}     e# Map each item in the set to the number of times it appears in the list
        :e<  e# Find the minimum of the resulting list

Mathematica, 24 바이트

Min[#/.Rule@@@Tally@#2]&

제안 된 순서대로 두 목록을 인수로 사용하고 음이 아닌 정수를 리턴하는 순수 함수. Tally입력 목록에서 발생하는 모든 기호의 발생 횟수를 세고 #/.Rule@@@입력 세트의 각 요소를 해당 발생 횟수로 변환합니다.

T-SQL, 62 59 바이트

일치하지 않는 세트에서는 이전 버전이 작동하지 않았습니다.

select top 1(select count(*)from l where l=s)from s order by 1

s 및 l을 테이블로 사용하고 테이블과 동일한 이름의 열

select top 1         -- return only the first result
    (select count(*) -- count of rows
     from l          -- from table l
     where l=s)      -- for each l equal
from s               -- to each from s
order by 1           -- sort by count ascending

스위프트, 39 바이트

s.map{w in l.filter{$0==w}.count}.min()

설명:

s.map{} s의 각 단어를 통과하고 카운트의 배열을 생성합니다

w in 다음 필터에서 사용할 맵핑 된 단어의 이름을 지정합니다.

l.filter{} 필터를 l 배열에 적용

$0==w 필터 조건 일치 단어 w

.count 조건을 만족하는 l의 요소 수를 제공합니다.

.min() 매핑 된 결과에서 가장 낮은 개수를 반환합니다.

APL (Dyalog) , 9 바이트

⌊/+/⎕∘.≡⎕

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

⎕ 입력 평가 (문자열 목록) 가져 오기

⎕∘.≡ 입력을 평가하고 (빈 문자열 집합이 아닌) 등가 테이블을 만듭니다.

+/ 에 걸쳐 추가

⌊/ 최소

펄 6 ,  37  18 바이트

37

{+(($_=@^a⊍@^b)≽@a)&&.values.min}

시도 해봐

넓히는:

{
  +( # turn into a 0 if False

    (
      $_ =        # store into $_ the result of
        @^a ⊍ @^b # use the baggy multiplication operator
    ) ≽ @a        # is that the baggy superset of the set
  )

  &&          # if that is True

  .values.min # get the minimum value from the Bag in $_
}

자세한 내용은 세트, 백 및 믹스 를 참조하십시오.

18

{@^b.Bag{@^a}.min}

시도 해봐

설명:

@^b.Bag값 키 에서 해당 백에 백 을 작성하고
{@^a}(카운트 목록을 리턴 함)
.min결과 목록의 최소값을 얻습니다.

공리, 42 바이트

f(a,b)==reduce(min,[count(x,b)for x in a])

테스트 코드 및 결과

(28) -> f(["1","2"], ["1", "2", "1", "1", "7"])
   (28)  1
                                                    Type: PositiveInteger
(29) -> f(["apple","banana"],["apple","pear","apple","banana","banana"])
   (29)  2
                                                    Type: PositiveInteger
(30) -> f(["apple","banana"],["apple","pear","apple","banana","apple"])
   (30)  1
                                                    Type: PositiveInteger
(31) -> f(["apple","banana","pear"],["apple","banana","kiwi","apple"])
   (31)  0

C ++, 203201 바이트

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

#import<vector>
#import<string>
using T=std::vector<std::string>;
int f(T S,T L){for(int j,b,i=0;;++i)for(auto s:S){for(b=j=0;j<L.size();++j)if(L[j]==s){b=1;L.erase(begin(L)+j);break;}if(!b)return i;}}

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

PHP, 74 바이트

<?foreach($_GET[0]as$v)$t[]=array_count_values($_GET[1])[$v];echo+min($t);

테스트 케이스

PHP, 108 바이트

<?[$x,$y]=$_GET;echo($a=array_intersect)($x,$y)==$x?min(($a._key)(array_count_values($y),array_flip($x))):0;

테스트 케이스

Pyth, 5 바이트

hS/LF

목록을 먼저 가져오고 두 번째로 설정합니다. 테스트 스위트.

설명:

    F  Expand the input into l and s (not literally, 
                  since those are function names in Pyth, but...)
   L   for d in s:
  /        Count instances of d in l
   L   Package all the results as a list
 S     Sort the results smallest-first
h      grab the smallest element

C #, 36 바이트

f=(n,h)=>n.Min(c=>h.Count(x=>x==c));

n하고 h있는 string[]출력은이다 int.

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

이 답변은 @ovs와 @Alberto Rivera의 논리에서 영감을 얻었습니다. 감사합니다!

자바, 135 바이트

int f(List<String> s,List<String> l){int n=0,i=0;while(i<s.size()){if(!l.remove(s.get(i++)))break;if(i==s.size()){n++;i=0;}};return n;}

이것은 내 첫 번째 코드 골프 도전과 답변이므로 형식에 대해 확실하지 않습니다. 전체 컴파일 프로그램이어야합니까? 매개 변수를 정의해야합니까? 제안에 감사드립니다.

편집 : 함수에 코드를 래핑했습니다. 감사합니다 @Steadybox

05AB1E , 7 바이트

v²y¢})W

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

v   }   # For each item in the first list...
 ²y¢    # Count the occurances in the second list.
     )W # Take the minimum occurrence count, return.

자바, 114 바이트

<T>int a(Set<T>b,List<T>c){int m=2e32;b.stream().map(i->{int j=java.util.Collections.frequency(c,i);m=j<m?j:m;});return m;}

티 오오

설명

• 지역 변수 m을 만듭니다.

• 세트를 스트림에 맵합니다.

• 각 요소에 대해 목록에서 요소의 발생 수가 m보다 작 으면 m이 해당 값으로 설정됩니다.

• 집합의 전체 버전 수인 m을 반환합니다.

R 54 바이트

f<-function(s,l) min(table(factor(l[l%in%s],levels=s)))

설명 : 서브리스트에도 나타나는 목록의 값 수만있는 테이블을 작성합니다.

그런 다음 하위 목록에 나타나는 값이 목록에 나타나지 않으면 0을 생성하기 위해 변수를 인수로 바꿉니다. 마지막으로, 나는 카운트의 최소값을 취합니다.

R, 61 57 44 바이트

print(min(sapply(s,function(x)sum(l%in%x))))

익명의 기능. 분명히이 도전에 대한 기능을 정의 할 필요는 없습니다. 카운트 덕분에 13 바이트를 절약했습니다.

설명:

sum(l%in%x))에서 문자열 s이 발견 된 횟수를 반환합니다 l.

lapply(s,function(x)) 각 문자열에 적용 s 개별적으로 합계 목록을 반환합니다.

min() 해당 목록에서 가장 작은 값을 반환합니다.

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

a=>b=>a.reduce((x,y)=>(l=b.filter(s=>s==y).length)>x?x:l)|0

시도 해봐

f=

a=>b=>a.reduce((x,y)=>(l=b.filter(s=>s==y).length)>x?x:l)|0

console.log(f(["apple","banana"])(["apple","pear","apple","banana","banana"]))
console.log(f(["apple","banana"])(["apple", "pear", "apple", "banana", "apple"]))
console.log(f(["apple","banana","pear"])(["apple","banana","kiwi","apple"]))
console.log(f(["coconut"])([]))