eml / 253

вопрос('Ты работаешь?').
вопрос('Ты моешься?').
вопрос('Ты кодишь?').
вопрос('Ты мыслишь?').

ответ([0,0,0,0],'Ты-бомж.').
ответ([0,0,0,1],'Ты-бомж с умом.').
ответ([0,0,1,0],'Ты-бомж,который пишет быдлокод.').
ответ([0,0,1,1],'Ты-типичный студент ИТМО.').
ответ([0,1,0,0],'Ты-ТП.').
ответ([0,1,0,1],'Ты-домосед.').
ответ([0,1,1,0],'Ты-быдлокодер-чистюля.').
ответ([0,1,1,1],'Ты-студент(ка) ИТМО-чистюля.').
ответ([1,0,0,0],'Ты-дворник.').
ответ([1,0,0,1],'Ты Гогги.').
ответ([1,0,1,0],'Как так можно?').
ответ([1,0,1,1],'Ты-типичный программист.').
ответ([1,1,0,0],'Ты-тестировщик.').
ответ([1,1,0,1],'Наверно ты просто обычный человек.').
ответ([1,1,1,0],'Ты странный.').
ответ([1,1,1,1],'Ты-офигенный программист!Так держать!').


список_вопросов(L):- findall(X,вопрос(X),L).

получить_список_ответов([],[]):-!.
получить_список_ответов(L,L1):- L = [H|T],
write(H),nl,
read(A),(A = 'y',A1 is 1;A = 'n',A1 is 0;A1 is 2),
(A1<2,
получить_список_ответов(T,S),
L1 = [A1|S],!.
список_ответов(L):- список_вопросов(X), получить_список_ответов(X,L).
go:- список_ответов(L),ответ(L,X),write(X),!.