Ваша мета - написати програму, яка вирішить будь-яку головоломку Mastermind за 6 і менше рухів.

Фон

Натхненник - настільна гра. Мета гри - точно вгадати поєднання (кольори та порядок) 4 кольорових кілочків, прихованих іншим гравцем. Коли здогадка зроблена, інший гравець відповідає між 0 і 4 білими або червоними кілочками. Червоний кілочок - це правильний колір та розташування. Білий кілочок - це те, де колір зображений на решти фрагментах, але знаходиться в неправильному місці. Якщо у відгадуванні є дублюючі кольори, буде виділено лише один кілочок для відповідного кольору в секреті. (Отже - якби секрет містив 1 Блакитний, а здогад мав 2 блюзи з одним у правильному місці, було б вказано один червоний кілочок). Є 6 різних кольорів, і можуть бути використані дублікати.

Так, наприклад, гра може йти наступним чином: (якщо припустити, що це червоний зелений зелений синій)

1:  Blue Purple Black Green - 2 white pegs
2:  Green Red Black Blue    - 2 white pegs, 1 red peg
3:  Green Green Green Blue  - 3 red pegs
4:  Red Green Green Blue    - 4 red pegs

Правила розширені у Вікіпедії

Вимоги

• Програма повинна читати зі stdin та записувати до stdout
• Я буду використовувати цифри для простоти замість кольорів. Комбінація для здогадки складе 4 числа від 1 до 6

• Вони повинні виводити свої здогадки у вигляді серії з чотирьох розділених пробілами чисел від 1 до 6, що закінчуються новим рядком. Наприклад:

  1 5 2 2 \ n

• Згодом програма отримає як вхід після її здогадки 2 цілих числа між 0 і 4, розділених пробілом і закінчуючи новим рядком. Перша буде кількість білих кілочків, друга кількість червоних кілочків.

• На вході "0 4" (4 червоних кілочки) програма повинна припинитися
• Програма повинна вміти вирішувати будь-яку головоломку менш ніж за 6 оборотів (програма, яка дає вихід, з подальшим входом відповіді - 1 оборот). Не існує бонусу (через складність доказування) за можливість вирішити його менше.
• Розчин повинен бути повністю внутрішнім і включатися до джерела. Дозволені лише стандартні бібліотеки. Тому рішення може не покладатися на будь-які інші файли (наприклад, словники) чи Інтернет.

Приклад введення / виводу

> is your programs output
< is the responding input
Solution is 1 5 6 6

> 1 2 3 4
< 0 1
> 4 1 6 6
< 1 2
> 1 6 5 6
< 2 2
> 1 5 6 6
< 0 4 

Оцінка балів

• Це чистий і простий Code Golf . Виграє найкоротше рішення в байтах .

Це моє перше запитання Code Golf. Вибачте, якщо я зробив щось не так, але я намагався якомога краще переконатись у відсутності неоднозначності та запобігти максимально можливим правилам закону. Якщо я був неоднозначним чи незрозумілим, будь ласка, не соромтесь задавати питання.

Python 2 Python 3, 359 365 338 символів

from itertools import*
from collections import*
m=h=set(product(*['123456']*4))
def f(g,k):b=sum(x==y for x,y in zip(g,k));return'%s %s'%(sum(min(g.count(c),k.count(c))for c in set(g))-b,b)
while len(m)>1:g=min(h,key=lambda g:max(Counter(f(g,k)for k in m).values()));print(*g);s=input();m=set(x for x in m if s==f(g,x))
print(*(m.pop()))

Смішно, мені знадобилося багато редагувань, щоб зрозуміти, що я маю назву змінної п'яти символів.

Мені не подобається довгий імпорт. Складається враження, що я повинен бути в змозі здійснити заміну collections.Counter, щоб зберегти імпорт.

Мені теж не подобається print(*(m.pop()))в кінці. Створюється враження, що він повинен зникнути в циклі, але я не можу знайти спосіб зробити це, не зробивши його довше.

Хаскелл, 317 304

q[0,4]_=error""
q[n,m]l=(\s->all(==4-m)[g s,n+g(u(foldr((u((.drop 1).(++)).).break.(==)))$unzip s)]).c(u(/=)).zip l
u=uncurry;m=map;g=length;c=filter
f a=[head.c(($(zipWith q(take n a)$f a)).all.flip($)).sequence$replicate 4[1..6]|n<-[0..]]
main=interact$unlines.m(unwords.m show).f.m(m read.words).lines

Я люблю писати суто функціональні інтерактивні програми! Але звичайно цей стиль має певні обмеження: він зараз закінчується помилкою, але ви не вказали, що це не нормально. Мені потрібно буде перефактурувати всю річ у IOмонаду, щоб отримати вихід без помилок.

Пітон, 385 357 символів, вирішує в 5 ходів

Чим більше я його змінюю, тим він стає все більше схожим на Стівена Румбальського ... Основна відмінність полягає в тому, що він працює з рядками, а не цілими числами.
Реалізовано алгоритм Кнута (зараз я сподіваюся правильно).
Запозичив бальну функцію від Стівена Румбальського.
Потрібно тривалий час, щоб генерувати першу здогадку, згодом стає краще.
Жорстке кодування його ( g=len(A)==1296 and [1,1,2,2] or ...) полегшує життя, якщо ви хочете перевірити його.
Я не рахую 4 нових рядків + пари вкладок, які можна замінити крапками з комою.

from collections import*
from itertools import*
a=B=A=list(product(*[range(1,7)]*4))
r=lambda g,k:(sum(x==y for x,y in zip(g,k)),sum(min(g.count(c),k.count(c))for c in set(g)))
while a!=4:
    g=A[1:]and min(B,key=lambda x:max(Counter(r(x,i)for i in A).values()))or A[0]
    print"%d "*4%tuple(g)
    b,a=map(int,raw_input().split())
    A=[x for x in A if r(g,x)==(a,a+b)]