where can i get teach or help files for semantic
networks?
also i got this error but converse is defined...???
also problems with name proceedure and names.p
** [hello]
** [what is your name ?]
? doc
** [hello doc it is nice to meet you again]
;;; MISHAP - enp: EXECUTING NON-PROCEDURE
;;; INVOLVING: <undef converse>
;;; DOING : start pop_setpop_compiler runproc
runproc
;;;define introduction(); ;;;output welcome
instructions
[] -> database;
load 'memory.p';
load 'names.p';
define start();
user();
converse();
;;;name;
enddefine;
define user();
vars name,list;
[hello] =>
[what is your name?] =>
;;;repeat forever
readline()-> name;
add(name);
if present([??name]) then
[hello ^^name it is nice to meet you again] =>
else
[hello ^^name it is nice to meet you] =>
endif;
;;;quitif(list = [ok]);
;;;add(line);
;;;endrepeat;
storedata('names.p');
enddefine;
;;;[pleased to meet you ^^name] =>
define converse();
vars name;
;;;user();
lvars name,list;
[well...] =>
[what do you want to talk about?] =>
repeat forever
lvars line;
readline() -> line;
quitif(line = [bye]);
add(line);
;;; quitif(line = [bye]);
endrepeat;
;;;[bye name] =>
storedata('memory.p');
[goodbye ^name - talk to you next time.] =>
enddefine;
/*
foreach [??x is a ??y] do
lookup([??x lives in ??y]);
lookup([??x is a ??y]);
[the home of ^x is ^^y] =>
[^x is a ^y] =>
endforeach ;
*/
[Hello, I am Bot.] =>
[Please communicate with simple sentences and I will
answer as best I can.] =>
[If you need help about using me: Type "help".] =>
[Type all words in lowercase letters only] =>
[and then press "ENTER"] =>
[To exit my program type - bye - and then press -
ENTER] =>
__________________________________
Do you Yahoo!?
Yahoo! Mail Address AutoComplete - You start. We finish.
http://promotions.yahoo.com/new_mail
|