task8, Prolog - rextester

Language: Layout:

%commands to the interpreter are submitted from stdin input ('show input' box below)
%'halt.' will be automatically appended to stdin input.
%swi-prolog 7.6.4

:-initialization(main).
main :-nl.
char("короткошерстная",1).
char("длинношерстная",2).
char("рост выше 45 см",3).
char("рост ниже 45 см",4).
char("низкопосаженный хвост",5).
char("высокий хвост",6).
char("длинные уши",7).
char("короткие уши",8).
char("хороший характер",9).
char("плохой характер",10).
char("вес более 100 фунтов",11).
char("вес менее 100 фунтов",12).

breed(B, X, Y, Z, T, W, M) :- (B="английский бульдог", char("короткошерстная",X), char("рост ниже 45 см",Y), char("низкопосаженный хвост",Z), char("короткие уши",T), char("хороший характер",W),char("вес менее 100 фунтов",M);

B="гончая", char("короткошерстная",X), char("рост ниже 45 см",Y), char("высокий хвост",Z), char("длинные уши",T), char("хороший характер",W), char("вес менее 100 фунтов",M);
                             
                             B="дог", char("короткошерстная",X), char("рост выше 45 см",Y), char("высокий хвост",Z), char("длинные уши",T), char("хороший характер",W), char("вес более 100 фунтов",M);
                             
                             B="американская гончая", char("короткошерстная",X), char("рост выше 45 см",Y), char("низкопосаженный хвост",Z), char("длинные уши",T), char("хороший характер",W), char("вес более 100 фунтов",M);
                             
                             B="коккер-спаниель", char("длинношерстная",X), char("рост ниже 45 см",Y), char("низкопосаженный хвост",Z), char("длинные уши",T), char("хороший характер",W), char("вес менее 100 фунтов",M);
                             
                             B="ирландский сеттер", char("длинношерстная",X), char("рост выше 45 см",Y), char("высокий хвост",Z), char("длинные уши",T), char("хороший характер",W), char("вес более 100 фунтов",M);
                             
                             B="колли", char("длинношерстная",X), char("рост выше 45 см",Y), char("низкопосаженный хвост",Z),  char("короткие уши",T), char("хороший характер",W), char("вес более 100 фунтов",M);
                             
                             B="сенбернар", char("длинношерстная",X), char("рост выше 45 см",Y), char("низкопосаженный хвост",Z), char("короткие уши",T), char("хороший характер",W), char("вес более 100 фунтов",M);
                             
                             B="чихуахуа", char("короткошерстная",X), char("рост ниже 45 см",Y), char("высокий хвост",Z), char("длинные уши",T), char("плохой характер",W), char("вес менее 100 фунтов",M);
                             
                             B="алабай", char("короткошерстная",X), char("рост выше 45 см",Y), char("высокий хвост",Z), char("короткие уши",T), char("хороший характер",W), char("вес более 100 фунтов",M);
                             
                             B="хаски", char("короткошерстная",X), char("рост выше 45 см",Y), char("высокий хвост",Z), char("короткие уши",T), char("хороший характер",W), char("вес более 100 фунтов",M)).

[ - ] Show input
Absolute running time: 0.36 sec, cpu time: 0.2 sec, memory peak: 7 Mb, absolute service time: 0,46 sec