Враховуючи не порожній набір рядків і список рядків, з’ясуйте, скільки разів цей набір відбувається в списку, тобто скільки разів ви могли створити набір з елементами зі списку. Кожен елемент зі списку може бути використаний лише один раз.

Підказка: набір - це не упорядкований список унікальних предметів.

Застосовуються правила вводу / виводу за замовчуванням .

Заборонено використання зовнішніх бібліотек. Стандартні лапки для компілятора / перекладача - це нормально. Це кодовий гольф, тому налічується найкоротше рішення.

Тестові приклади:

["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

EDIT: видалено речення, вказуючи, що параметри введення визначені в локальній області. Це суперечить вищезазначеним правилам вводу-виводу за замовчуванням.

Пітон, 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.

-1 байт завдяки @ETHproductions

-1 байт знову завдяки @ETHproductions

JavaScript (ES6), 56 байт

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

Спробуйте в Інтернеті

JavaScript (ES6), 64 байти

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

Передбачає обидва sі lє масивами об'єктів. Використовується сувора рівність JavaScript для порівнянь, наприклад [] === [], хибна.

Хаскелл , 37 34 байт

Дякуємо @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

Математика, 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 байт

⌊/+/⎕∘.≡⎕

Спробуйте в Інтернеті!

⎕ отримати оцінений вхід (список рядків)

⎕∘.≡ отримати оцінений вхід (не порожній набір рядків) та створити таблицю еквівалентності

+/ додати поперек

⌊/ мінімум поперек

Perl 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 ++, 203 201 байт

Дякуємо @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. Дякую!

Java, 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.

Java, 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)))

Пояснення: створення таблиці з підрахунками лише значень у списку, які також відображаються в підсписку.

Потім я перетворюю змінну у коефіцієнт, щоб генерувати нулі, якщо значення, яке відображається у підспілі, не відображається у списку. Нарешті, я беру мінімум рахунків.

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() повертає найменшого зі списку.

JavaScript (ES6), 59 bytes

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

Try it

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"])([]))