Toggle navigation
?
users online
Logout
Open hangout
Open chat for current file
% nacteni: /* ['8.1_3.pl']. */ % kb_agent_action(+KB,+ATime,+Percept,-Action,-NewATime) kb_agent_action(KB,ATime,Percept,Action,NewATime):- make_percept_sentence(Percept,ATime,Sentence), tell(KB,Sentence), % pridame vysledky pozorovani do KB make_action_query(ATime,Query), ask(KB,Query,Action), % zeptame se na dalsi postup make_action_sentence(Action,ATime,ASentence), tell(KB,ASentence), % pridame informace o akci do KB NewATime is ATime + 1.
true