Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
:- dynamic list_of_excuses/1. list_of_excuses(['I see.', 'Very interesting.', 'Tell me more.', 'Fascinating.']). eliza :- write('Hello! My name is eliza.'), nl, eliza_loop. eliza_loop :- write('Eliza > '), read(Input), respond(Input). respond(Input) :- member(Term, Input), member(Term, [ quit, exit, leave ]), write('Goodbye!'). respond([my,name,is,Name | _ ]) :- write('Hello, '), write(Name), write('! Pleased to meet you.'), nl, eliza_loop. respond([my,Thing,is,called,Name | _ ]) :- write(Name), write(' is a nice name for a '), write(Thing), write('.'), nl, eliza_loop. respond(Input) :- member(Animal, Input), member(Animal, [ cat, dog, fish, hamster, gerbil, snake, tortoise ]), write('You just mentioned your '), write(Animal), write('. Tell me more about your '), write(Animal), nl, eliza_loop. respond(Input) :- member(Term, Input), member(Term, [ hate, dislike ]), member(Term2, Input), member(Term2, [ you ]), write(':('), nl, eliza_loop. respond([ _ ]) :- retract(list_of_excuses([ Next | Rest ])), append(Rest, [ Next ], NewExcuseList), asserta(list_of_excuses(NewExcuseList)), write(Next), nl, eliza_loop.