[Cl-irc-cvs] CVS update: cl-irc/example/eliza-rules.lisp

Brian Mastenbrook bmastenbrook at common-lisp.net
Tue Jul 20 19:18:43 UTC 2004


Update of /project/cl-irc/cvsroot/cl-irc/example
In directory common-lisp.net:/home/bmastenbrook/cl-irc/example

Modified Files:
	eliza-rules.lisp 
Log Message:
add inscruitable song reference requested by nyef

Date: Tue Jul 20 12:18:43 2004
Author: bmastenbrook

Index: cl-irc/example/eliza-rules.lisp
diff -u cl-irc/example/eliza-rules.lisp:1.5 cl-irc/example/eliza-rules.lisp:1.6
--- cl-irc/example/eliza-rules.lisp:1.5	Tue Jul  6 14:30:44 2004
+++ cl-irc/example/eliza-rules.lisp	Tue Jul 20 12:18:43 2004
@@ -20,7 +20,27 @@
 
    ((more (?* ?x))
     (?x me harder))
-   
+
+   ((what s the difference between (?* ?x) and (?* ?y))
+    (?x has similar features but longer hair)
+    (?y has similar features but longer hair))
+
+   ((what are the differences between (?* ?x) and (?* ?y))
+    (?x has similar features but longer hair)
+    (?y has similar features but longer hair))
+
+   ((what is the difference between (?* ?x) and (?* ?y))
+    (?x has similar features but longer hair)
+    (?y has similar features but longer hair))
+
+   ((the difference between (?* ?x) and (?* ?y))
+    (?x has similar features but longer hair)
+    (?y has similar features but longer hair))
+
+   ((the differences between (?* ?x) and (?* ?y))
+    (?x has similar features but longer hair)
+    (?y has similar features but longer hair))
+
    (((?* ?x) you (?* ?y) written (?* ?z))
     (|I'm| written in Common Lisp))
 





More information about the cl-irc-cvs mailing list