Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
% вывод строки, хочет ли обьект сосать писос % запятая - И % точка с запятой - ИЛИ hochet_sosat(X) :- write(X), write(': '), hochet_sosat_pisos(X) % условие (врайт всегда правда) -> % то (write('hochet sosat pisos'), nl) ; % иначе (write('ne hochet sosat pisos'), nl) . % соснут все (всегда правда, т.к. врайт всегда правда) budet_sosat(X) :- (write(X), write(': '), write('budet sosat pisos'), nl). % рекурсивный обход всех элементов списка в вопросе kto_hochet_sosat_pisos([X|Y]) :- (hochet_sosat(X)), kto_hochet_sosat_pisos(Y). kto_budet_sosat_pisos([X|Y]) :- (budet_sosat(X)), kto_budet_sosat_pisos(Y). % ты хочешь сосать писос hochet_sosat_pisos(ti).