Вступ

Dobble / SpotIt - це карткова гра, де люди повинні за короткий час помітити один і той же символ на пару карт, вказати його та перейти до наступної пари. Кожна карта має кілька символів (8 у звичайній версії), але саме одна є загальною між кожною парою карт.

Приклад з фізичної копії гри:

Виклик

Напишіть програму, в якій заданий набір символів (поодинокі символи ascii) та кількість символів на одній картці дадуть вихідні листи з переліком символів для кожної картки. Очевидно, що багато еквівалентних комбінацій, ваша програма просто повинна написати будь-яку комбінацію, яка виробляє найбільшу кількість карт за даний вхід.

Це код-гольф, тому коротше код, тим краще.

Було б також чудово, якщо обчислення закінчиться до теплової смерті Всесвіту для найскладнішого випадку.

Вхідні дані

Два аргументи до функції / stdin (на ваш вибір)

• Спочатку це колекція символів, на кшталт "ABCDE" або ["A", "B", "C", "D", "E"] - ваш вибір формату, будь то рядок, набір, список, потік або будь-яка інша мова для вибору мови. Символи будуть надані з набору [A-Za-z0-9], без дублікатів (тому максимальний розмір набору символів введення - 62). Вони не обов'язково будуть впорядковані в ( тож ви можете отримати "yX4i9A" також для 6-символьного випадку).

• Другий аргумент - ціле число, що вказує кількість символів на одній карті. Це буде <= розмір набору символів.

Вихідні дані

Роздрукуйте кілька рядків, розділених новими рядками, кожен з яких містить символи для однієї картки.

Приклади

ABC
2
>>>>
AB
BC
AC

Або

ABCDEFG
3
>>>>
ABC
BDE
CEF
BFG
AEG
CDG
ADF

Або

ABCDE
4
>>>>
ABCD

Підказки

• Кількість виготовлених карток не може перевищувати кількість виразних символів, і в багатьох комбінаціях вона буде значно меншою
• Можливо, ви захочете прочитати деякий математичний фон, якщо вам потрібна допомога з математичної сторони проблеми

Це мій перший виклик гольфу з кодом, тому, будь ласка, пробачте можливі проблеми із форматуванням / стилем - я спробую виправити помилки, якщо ви вкажете їх у коментарях.

Python 2 , 192 162 байти

У мене є аргумент, що це створює максимальний набір карт для кожного сценарію, і він обробляє 3 тестові справи.

from itertools import*
def m(a,s):
    C=["".join(x)for x in combinations(a,s)]
    while len(C):
        print C[0]
        C=list(set(A for A in C if len(set(A)&set(C[0]))==1<s))

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

Алгоритм

Враховуючи алфавіт aта розмір картки s, візьміть усі комбінації sелементів aта назвіть її C, а потім:

• Візьміть перший елемент C, назвіть йогоC0
• Зберегти C0
• Видаліть з нього всі елементи, Cякі мають з'єднання з C0рівним1
• Повторіть з другим елементом C
• Продовжуйте, поки Cпорожньо не буде

Потім надрукуйте збережені елементи.

Аргумент

Деякий непорожня підмножина Cнашого максимальне рішення K. Оскільки він містить щонайменше один елемент, а будь-які два елементи не відрізняються, виберіть довільний елемент C0, з якого Cслід входити K. Для будь-якого елемента eв K, простота eоб'єднання xдорівнює 1 для x != eв K; таким чином, усуньте всі елементи C, з’єднання з якими C0не має кардинальної стихії 1. За тими ж міркуваннями виберіть новий довільний елемент у C, додайте його Kта зменшіть C. Врешті-решт, Cце порожній набір і Kстане максимальним рішенням, оскільки ні в якому разі ми не вибрали елемент, який відрізнявся від будь-якого іншого елемента.

Випробування

Ці тестові справи були написані ще до того, як я зрозумів, що друк - це вимога.

a=["a","b","c"]
b=2
c=3
d=m(a,b)
print d,len(d)==c
>> ['bc', 'ab', 'ac'] True

a=["a","b","c","d","e","f","g"]
b=3
c=7
d=m(a,b)
print d,len(d)==c
>> ['aef', 'abc', 'bde', 'ceg', 'adg', 'cdf', 'bfg'] True

a=["a","b","c","d","e"]
b=4
c=1
d=m(a,b)
print d,len(d)==c
>> ['abcd'] True

Оновлення

• +9 [16-12-07] Встановіть вимогу друку
• -11 [16.12.2007] Гольф з моєї Rзмінної
• -30 [16-12-09] Я переграв мою Kзмінну, завдяки @Leo !

Haskell, 175 156 байт

Моє перше заняття гольфом, дайте мені знати, чи я щось зіпсував.

import Data.List
f 0_=[[]]
f n a=g$c n a
c n a=[a!!i:x|i<-[0..(length a)-1],x<-f(n-1)(drop(i+1)a)]
g[]=[]
g(x:t)=x:g(filter(\z->length(z`intersect`x)<= 1)t)

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

Дякуємо @Paul Mutser за покращення та -19 байт

Оригінальна версія

Perl 6 , 88 77 байт

{+(combinations($^a,$^n),{my \d=.[0];say d.join;grep *∩d==1,.[1..*]}...!*)}

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