Prolog

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Prolog SWI Prolog ввод вывод https://www.cyberforum.ru/ prolog/ thread202363.html Здравствуйте!:) У меня вопрос - как в swi-прологе осуществляется ввод и вывод данных? Есть простая задача открыть файл *.pl ввести число вывести числи Излазил весь интернет, найденные примеры слишком сложны для понимания и не раскрывают сути.	Обход конем шахматного поля Prolog пожалуйста, помогите решить такую задачу: нужно обойти конем все поле шахматной доски не наступив дважды на одно и то же.
Prolog Файлы в прологе https://www.cyberforum.ru/ prolog/ thread201513.html _____________________________________________________________ /* Программа: А - 1 /Вывод инфо на экран дисплея / /* и а принтер */ domains str = string predicates	Prolog Строки пролог https://www.cyberforum.ru/ prolog/ thread201507.html Помогите решить задачу, в строках вообще 0 полный Извлечите подстроки, расположенные в верхнем столбце, из заданных строк в нижнем столбце: Выходные подстроки "Tom Shallack" "account" "Juniper tar" "anti-itch" "skin disorders"
Количество вхождений заданного символа в строку Prolog Создадим предикат, который по строке и символу подсчитает количество вхождений этого символа в данную строку. domains i=integer predicates char_count(string,char,i) clauses char_count("",_,0).	Prolog strawberry prolog логика https://www.cyberforum.ru/ prolog/ thread201023.html Всем, здравствуйте, если есть возможность помогите пожалуйста.Задача на strawberry prolog/ Звучит она так: Отец дал для каждой из своих дочерей по 8 рублей на покупки. Я хочу, чтобы к Восьмому марта каждая из вас, -сказал он, купила подарки для тети Нади, тети Дины, тети РОзы и тети Сони. Но при этом постарайтесь выполнить три условия. Каждый подарок должен стоить целое число рублей. Каждая из...
Prolog добавить реверс вот программа domains i=integer l=i* predicates parse(l,l) del(l,l) append(l,l,l) https://www.cyberforum.ru/ prolog/ thread200804.html	Prolog Порядок соединения списков (append) Требуется соединить три списка l1, l2 и l3. В какой последовательности применять предикат append к этим спискам для минимизации времени соединения и почему? Что-то у меня нету идей по этому поводу.... Может кто подскажет?
Prolog Ханойские башни со списками Помогите кто может! нужно написать решение всем известной задачи про ханойские башни с N дисками. но не обычное как во всех учебниках по прологу, а с помощью списков. т.е. на каждом шаге нужно выводить 3 списка А, В и С. https://www.cyberforum.ru/ prolog/ thread200580.html	Prolog Упрощение тригонометрических выражений https://www.cyberforum.ru/ prolog/ thread200243.html Здравствуйте. Очень нужна помощь в написании программы на SWI-Prolog, которая упрощает тригонометрические выражения. Может что-то подскажете(почитать). Или может кто-то имеет готовую прогамму. Крайне необходимо. Спасибо большое за внимание.
Prolog Разложение числа на суммы [SWI-Prolog] Помогите пожалуйста с этой задачей. Нужно разложить любое выбранное число, в диапазоне от 3 до 45, на все возможные суммы чисел. Цифры больше 9 или повторяющиеся должны отсеиваться (,). Пример: 11=,,,,,, и т.д	Prolog Пролог готовая программа(нужны комментарии) https://www.cyberforum.ru/ prolog/ thread199919.html Добрый день, есть готовый код , помогите кто нибудь пожалуйста понять его, затвра сдавать надо уже , горю Задание было такое- Дана карта автомобильных дорог, соединяющая N населенных пунктов, для каждой дороги задано расстояние и максимальная скорость. Построить путь из пункта A в пункт B по критерию: а) минимального времени; б) минимального расстояния. пролог 5.2 domains s=string ...

arlat

794 / 598 / 156

Регистрация: 07.10.2013

Сообщений: 1,327

25.11.2013, 15:34

Кто кого нарисовал? - Prolog - Ответ 5387730

25.11.2013, 15:34. Показов 2625. Ответов 5

Метки (Все метки)

Ответ

Сообщение от ВикторБаранович

Четыре девочки: Надя, Вера, Галя и Люба, нарисовали по одному животному.
Получились две лошади, одна овца и одна корова. Что нарисовала каждая девочка, если:
– Надя и Вера не рисовали овцу;
– Галя не рисовала корову;
– Люба не рисовала лошадь;
– Вера и Галя, Галя и Люба, Надя и Люба нарисовали разных животных.

На логическом уровне расклады таковы:
Вариант 1 Надя-Лошадь,Вера-Корова,Галя-Лошадь,Люба-Овца
Вариант 2 Надя-Лошадь,Вера-Лошадь,Галя-Овца,Люба-Корова

SWI-Prolog, для VIP подправьте и/или доработайте сами.

Prolog

girls(['Nad', 'Ver', 'Gal', 'Lub']).
 
pets(['Losh', 'Losh', 'Ovca', 'Koro']).
 
pics(Pics) :-
    girls(Girls),
    pets(Pets),
    pics(Girls, Pets, Pics),
    rule_diff_pic([['Ver', 'Gal'], ['Gal', 'Lub'], ['Nad', 'Lub']], Pics).
pics([], _, []).
pics([Girl|Girls], Pets, [[Girl, Pet]|Pics]) :-
    select(Pet, Pets, Pets1),
    rule_no_pic(Girl, Pet),
    pics(Girls, Pets1, Pics).
    
rule_no_pic(Girl, Pet) :-
    member(Girl, ['Nad', 'Ver']),
    not(Pet = 'Ovca').
rule_no_pic('Gal', Pet) :-
    not(Pet = 'Koro').
rule_no_pic('Lub', Pet) :-
    not(Pet = 'Losh').
 
rule_diff_pic([], _).
rule_diff_pic([[Girl1, Girl2]|Pairs], Pics) :-
    member([Girl1, Pet1], Pics),
    member([Girl2, Pet2], Pics),
    not(Pet1 = Pet2),
    rule_diff_pic(Pairs, Pics).

?- setof(Pics, pics(Pics), Set).
Set = [[['Nad', 'Losh'], ['Ver', 'Koro'], ['Gal', 'Losh'], ['Lub', 'Ovca']], [['Nad', 'Losh'], ['Ver', 'Losh'], ['Gal', 'Ovca'], ['Lub', 'Koro']]].

Вернуться к обсуждению:
Кто кого нарисовал? Prolog

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

25.11.2013, 15:34

Готовые ответы и решения:

Определите, кто является поэтом, кто композитором, кто художником и у кого есть борода
Андреев, Борисов и Николаев – поэт, композитор и художник. У поэта нет бороды, и он зарабатывает...

Кто из актёров кого играет
В одном театре работают четыре актёра: Смирнов, Снегов, Морев и Никитин. Один из них играет роль...

Логическая задача (кто кого выгуливает)
Помогите пожалуйста с задачей: Трое ребят вышли гулять с собакой, кошкой и хомячком. Известно, что...

Кто для кого?
Вот меня пребило. Вот в чем вопрос. Сложилась такая ситуация, когда создатели сайтов вынуждены их...

	25.11.2013, 15:34

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

25.11.2013, 15:34

Помогаю со студенческими работами здесь

Google - Yandex кто кого ?
1 января Гооги открывает свое представительство в Москве. B-)

Кто от кого получил подарок?
Здравствуйте. Помогите решить такую вот интересную задачку(заранее спасибо): Петя сам решил...

Кто кого поддержит на выборах?
Я-ПРОТИВ ВСЕХ:p

Как определить кто у кого спер контент?
Достался сайт. Половина страниц не уникальна по копискейпу (на каждую 2-3 точных копии). Некоторые...

Наверх