SWI Prolog. Правила и факты

@Alice Liddell · Регистрация: 04.06.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте. Пробую написать экспертную систему для выбора шампуня, но никак не могу сообразить по правилам... Как сделать, например, так, чтобы при вводе ответа на вопрос определялся сначала тип волос, а затем какая добавка должна быть? Код набросала, но... что-то явно не так... Или можно сделать как-то по-другому? Подскажите, пожалуйста!

Prolog

/*факты*/
/*-----------------------------------*/
/*обычные*/
shampoo('Чистая Линия. Экстракт крапивы').
shampoo('Чистая Линия. Экстракт сока берёзы').
shampoo('Чистая линия. Овсяное молочко').
/*профилактические*/
shampoo('Dove Hair Therapy').
shampoo('Vichy Dercos').
/*лечебные*/
shampoo('Head & Shoulders. 2 in 1. Цитрусовая свежесть').
shampoo('Сульсен').
 
typeofhair('every day','oily hair').
typeofhair('two times at week', 'normal hair').
typeofhair('one times at week', 'dry hair').
/*правила*/
/*------------------------------------*/
add('Крапива'):-typeofhair(_,'oily hair').
add('Берёза'):-typeofhair(_,'dry hair').
add('Овсяное молочко'):-typeofhair(_,'normal hair').
add(C,B):-typeofhair(_,B), add(C).
 
 
run :- write('\nHow many times do you wash your hair?\nevery day\ntwo times at week\none times at week\n'), read(A),
       add(C,A), !,
       write(C).

	22.05.2018, 18:32