Цікава задачка

[pasha]

Досить цікава задачка http://golovolomki.go4u.ru/go4u-11.htm , якщо хтось хоче,гляньте, вона не дуже важка.

[Jangir]

а ты отгадал?)

[pasha]

ага,за 15 хвилин))

[forthe]

где-то я читал, что только 2% могут решить ее без подручных средств (бумага, страница браузера), т.е. в голове, имея перед глазами только условие. а с интерфейсом, который есть на сайте, она действительно решается легко.

[pasha]

я її розвязував на перерві з умовою і листком паперу,а ту таблицю використав лише для перевірки

[Baro]

ничего интересного) мы в школе еще решали)

[pasha]

кому як

[veron]

где-то я читал, что только 2% могут решить ее без подручных средств

интересно, где бы ты мог ее прочитать?!)))

а загадка старая.
очень баян.
но интересная.
и без бумажки/др. подручных средств я никогда бы ее не решила

[mouse]

Осень 2007, дискретная математика, visual prolog:

Код: Виділити все

next_to(X, Y, List) :- iright(X, Y, List).
next_to(X, Y, List) :- iright(Y, X, List).

iright(L, R, [L | [R | _]]).
iright(L, R, [_ | Rest]) :- iright(L, R, Rest).

einstein(Houses, Fish_Owner) :-
 =(Houses, [[house, norwegian, _, _, _, _], _, [house, _, _, _, milk, _], _, _]),
 member([house, brit, _, _, _, red], Houses),
 member([house, swede, dog, _, _, _], Houses),
 member([house, dane, _, _, tea, _], Houses),
 iright([house, _, _, _, _, green], [house, _, _, _, _, white], Houses),
 member([house, _, _, _, coffee, green], Houses),
 member([house, _, bird, pallmall, _, _], Houses),
 member([house, _, _, dunhill, _, yellow], Houses),
 next_to([house, _, _, dunhill, _, _], [house, _, horse, _, _, _], Houses),
 member([house, _, _, _, milk, _], Houses),
 next_to([house, _, _, marlboro, _, _], [house, _, cat, _, _, _], Houses),
 next_to([house, _, _, marlboro, _, _], [house, _, _, _, water, _], Houses),
 member([house, _, _, winfield, beer, _], Houses),
 member([house, german, _, rothmans, _, _], Houses),
 next_to([house, norwegian, _, _, _, _], [house, _, _, _, _, blue], Houses),
 member([house, Fish_Owner, fish, _, _, _], Houses). 

Зима 2010, пьяный спор, листок\ручка

[Jangir]

я разгадал