task7, 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("вес более 100 фунтов",8).
char("-",9).
 
breed(B, X, Y, Z, T, W) :- (B="английский бульдог", char("короткошерстная",X), char("рост ниже 45 см",Y), char("низкопосаженный хвост",Z), char("хороший характер",T), char("-",W);
                             B="гончая", char("короткошерстная",X), char("рост ниже 45 см",Y), char("длинные уши",Z), char("хороший характер",T), char("-",W);
                             B="дог", char("короткошерстная",X), char("рост выше 45 см",Y), char("длинные уши",Z), char("хороший характер",T), char("вес более 100 фунтов",W);
                             B="американская гончая", char("короткошерстная",X), char("низкопосаженный хвост",Y), char("длинные уши",Z), char("хороший характер",T), char("-",W);
                             B="коккер-спаниель", char("длинношерстная",X), char("рост ниже 45 см",Y), char("низкопосаженный хвост",Z), char("длинные уши",T), char("хороший характер",W);
                             B="ирландский сеттер", char("длинношерстная",X), char("рост выше 45 см",Y), char("длинные уши",Z), char("-",T), char("-",W);
                             B="колли", char("длинношерстная",X), char("рост выше 45 см",Y), char("низкопосаженный хвост",Z), char("хороший характер",T), char("-",W);
                             B="сенбернар", char("длинношерстная",X), char("низкопосаженный хвост",Y), char("хороший характер",Z), char("вес более 100 фунтов",T), char("-",W);
                             B="чихуахуа", char("короткошерстная",X), char("рост ниже 45 см",Y), char("длинные уши",Z), char("-",T), char("-",W);
                             B="алабай", char("короткошерстная",X), char("рост выше 45 см",Y), char("хороший характер",Z), char("вес более 100 фунтов",T), char("-",W);
                             B="хаски", char("короткошерстная",X), char("рост выше 45 см",Y), char("хороший характер",Z), char("-",T), char("-",W)).

[ - ] Show input
Absolute running time: 0.32 sec, cpu time: 0.16 sec, memory peak: 7 Mb, absolute service time: 0,5 sec