task 6, Prolog - rextester

task 6

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


run \| edit \| history \| help	0