mirror of
https://github.com/kennethreitz/elizagen.org.git
synced 2026-06-21 15:10:57 +00:00
jeffshrager
2923 lines
74 KiB
Common Lisp
2923 lines
74 KiB
Common Lisp
; (load (compile-file "coselleliza1969and1972.lisp"))
|
|
|
|
;;; ELIZA in Lisp by Bernie Cosell
|
|
;;; For more information see http://elizagen.org or http://shrager.org/eliza
|
|
|
|
;;; To suppress autostart on load change this to nil:
|
|
(defparameter *autostart* t)
|
|
|
|
;;; To test w/o autostart, after loading, enter:
|
|
;;; (e69:doctor)
|
|
;;; or, for the new version use (e72:doctor)
|
|
;;; then try:
|
|
;;; I AM GOD!
|
|
|
|
;;; TODO:
|
|
;;; Get Clock working in 1972
|
|
;;; Check nlistp and bl:get definitions
|
|
;;; MEMB in 1972 code was replaced with member -- what's the right thing?
|
|
;;; Double check the 1972 globals/specials.
|
|
;;; GENERAL NOTES:
|
|
|
|
;;; This file contains two separate, complete Elizas: one from 1969
|
|
;;; and one from 1972. Each has a function part and a script part.
|
|
;;; Both are loaded when this file is loaded, but both their functionality
|
|
;;; and script are fully separate. (e69:doctor) and (e72:doctor) use the
|
|
;;; respective versions.
|
|
|
|
;;; ACKNOWLEDGEMENTS:
|
|
|
|
;;; Thanks to the following for assistance in transcribing this code
|
|
;;; from the original printouts, and then making it work: eMBee, Dave
|
|
;;; Cooper, Bob Felts, Saul Good, Ben Hyde, Simon Leinen, Patrick May,
|
|
;;; Charlie McMackin, Paul Nathan, Matt Niemeir, Peter De Wachter,
|
|
;;; Thomas Russ, Patrick Stein, and Jeff Shrager. Made to work in
|
|
;;; modern CL by Peter De Wachter, Matt Niemeir, and Jeff Shrager.
|
|
|
|
;;; For more information, please contact Jeff Shrager (jshrager@stanford.edu)
|
|
|
|
;;; LICENSE:
|
|
|
|
;;; Cosell's original code is licensed under the Creative Commons
|
|
;;; "Attribution-ShareAlike 3.0 Unported" license, which is described
|
|
;;; here: http://creativecommons.org/licenses/by-sa/3.0/deed.en_US
|
|
|
|
;;; The remainder of the code and mods are licensed as follows:
|
|
|
|
;;; Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
;;; of this software and associated documentation files (the "Software"), to deal
|
|
;;; in the Software without restriction, including without limitation the rights
|
|
;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
;;; copies of the Software, and to permit persons to whom the Software is
|
|
;;; furnished to do so, subject to the following conditions:
|
|
;;;
|
|
;;; The above copyright notice and this permission notice shall be included in
|
|
;;; all copies or substantial portions of the Software.
|
|
;;;
|
|
;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
;;; THE SOFTWARE.
|
|
|
|
;;; ===================================================================================
|
|
;;; | CL MACROS &C TO MAKE OLD BBN CODE WORK |
|
|
;;; ===================================================================================
|
|
|
|
|
|
(defpackage :bbn-lisp
|
|
(:use :cl)
|
|
(:nicknames :bl)
|
|
(:shadow :cons :cdr :rplacd :rplaca :nth :prin1 :get)
|
|
(:export :defineq :setqq :rplqq :tconc :clock :put :getp
|
|
:quotient :spaces :remainder :plus :minus :pack
|
|
:greaterp :igreaterp :iminus :idifference :iplus :nlistp
|
|
:nlambda :*bbn-readtable* :*patient-readtable*
|
|
:lispxprin1 :lispxprint :lispxterpri
|
|
;; Also export Symbols named for CL symbols
|
|
;; Exports include e.g. BBN-LISP:CONS, and CL:DEFUN
|
|
;; but not CL:CONS.
|
|
. #.(loop for s being each external-symbol of :cl
|
|
collect (symbol-name s))))
|
|
|
|
(in-package :bl)
|
|
|
|
|
|
;;; The goal is to do as little damage as possible to the original
|
|
;;; code.
|
|
|
|
(eval-when
|
|
(:compile-toplevel :load-toplevel :execute)
|
|
|
|
;;; Turns out that arguments are optional in BBN lisp and (I assume)
|
|
;;; get filled in with NILs.
|
|
|
|
(defmacro defineq (&rest fns)
|
|
(labels ((build-lambda-list (args)
|
|
(cond ((null args) nil)
|
|
((consp args) `(&optional ,@args))
|
|
(t `(&rest ,args))))
|
|
|
|
(build-defun (name args body)
|
|
`(defun ,name ,(build-lambda-list args) ,@body))
|
|
|
|
;; TODO: simplify this quasiquote hell...
|
|
(build-defmacro (name args body)
|
|
(let ((tmp (gensym)))
|
|
`(defmacro ,name (&rest ,tmp)
|
|
`(destructuring-bind ,',(build-lambda-list args) (quote ,,tmp)
|
|
,@',body)))))
|
|
|
|
`(progn
|
|
(declaim (ftype function ,@(loop for (name (lmbda &rest nil)) in fns
|
|
when (eq lmbda 'lambda) collect name)))
|
|
,@(loop for (name (lmbda args . body)) in fns
|
|
when (eq lmbda 'lambda) collect (build-defun name args body)
|
|
when (eq lmbda 'nlambda) collect (build-defmacro name args body)))))
|
|
|
|
|
|
(defmacro setqq (sym val)
|
|
`(setf ,sym ',val))
|
|
|
|
;;;
|
|
|
|
(defun put (sym prop val)
|
|
(setf (cl:get sym prop) val))
|
|
|
|
;;; BBN Lisp CONS creates a cons cell, like (list nil) or (cons nil
|
|
;;; nil), but (CL:CONS) is an error, so we define (BL:CONS)
|
|
|
|
(defun cons (&optional car cdr)
|
|
(cl:cons car cdr))
|
|
|
|
;;; BL:CDR of a symbol is (symbol-plist symbol),
|
|
;;; and similarly in rplcd'ing symbols.
|
|
|
|
(defun cdr (x)
|
|
(cond ((listp x) (cl:cdr x))
|
|
((symbolp x) (symbol-plist x))
|
|
((numberp x) nil)
|
|
(t (error "CDR expected a list, a symbol or a number: ~W" x))))
|
|
|
|
;;; TODO: Should we have all C[AD]+R variations?
|
|
|
|
(defun rplacd (x y)
|
|
(cond ((consp x) (cl:rplacd x y))
|
|
((symbolp x) (setf (symbol-plist x) y))
|
|
(t (error "RPLACD expected a cons or a symbol: ~W" x))))
|
|
|
|
(defun rplaca (x y)
|
|
(cond ((consp x) (cl:rplaca x y))
|
|
((symbolp x) (setf (symbol-value x) y))
|
|
(t (error "RPLACA expected a cons or a symbol: ~W" x))))
|
|
|
|
;;; Approx. InterLISP's GETPROP -- by Peter De Wachter. The code wants
|
|
;;; to have property lists that aren't attached to a symbol and it
|
|
;;; achieves this by creating "fake symbols": property lists with a
|
|
;;; NIL in front of them to maintain the CDR property.
|
|
|
|
(defun getp (sym prop)
|
|
(getf (bl:cdr sym) prop))
|
|
|
|
(defun get (list prop)
|
|
(getf (cdr list) prop))
|
|
|
|
(defun nth (x n)
|
|
(nthcdr n (cons nil x)))
|
|
|
|
;;; BBN's prin1 is cl's princ (and probably v.v!!!)
|
|
|
|
(defmacro prin1 (&rest what)
|
|
`(princ ,@what))
|
|
|
|
(defmacro lispxprin1 (&rest what)
|
|
`(prin1 ,@what))
|
|
|
|
(defun lispxterpri (s) (terpri s))
|
|
|
|
(defun lispxprint (o s)
|
|
(terpri s)
|
|
(prin1 o s))
|
|
|
|
;;; Various bbn fns missing in cl
|
|
|
|
(defun quotient (a b) (floor a b))
|
|
(defun remainder (a b) (mod a b))
|
|
(defun plus (&rest l) (apply #'+ l))
|
|
(defun minus (x) (- x))
|
|
(defun greaterp (a b) (> a b))
|
|
(defun igreaterp (a b) (> a b))
|
|
(defun iminus (a) (- a))
|
|
(defun idifference (a b) (- a b))
|
|
(defun iplus (a b) (+ a b))
|
|
(defun nlistp (l) (not (listp l))) ;; needs checked
|
|
|
|
(defvar *clock-version* 1969)
|
|
|
|
(defun clock ()
|
|
(ccase *clock-version*
|
|
(1969 ;; Seconds since midnight
|
|
(mod (get-universal-time) 86400))
|
|
(1972 ;; Some millisecond counter??
|
|
(floor (* (get-internal-real-time) 1000)
|
|
internal-time-units-per-second))))
|
|
|
|
(defun pack (l)
|
|
(intern (format nil "~{~A~}" l)))
|
|
|
|
;;; I'm sure that some fancy format can do this better:
|
|
(defun spaces (n) (loop repeat n do (princ #\Space)))
|
|
|
|
|
|
(defun sds940-code-char (n)
|
|
"Interpret SDS940 character codes, as used in SETSEPR and SETBRK."
|
|
(code-char (mod (+ n 32) 128)))
|
|
|
|
;;; Read hack due to Matt Niemeir. Conveniently, Eliza uses RATOM,
|
|
;;; which isn't normally defined, so we make it do a read with a fancy
|
|
;;; read table, that parses punctuation properly.
|
|
|
|
(defparameter *patient-readtable* (copy-readtable ())
|
|
"A readtable for reading patient input.
|
|
It will parse terminals and punctuation as
|
|
their own symbol, and will allow quote as a
|
|
character in symbol names.")
|
|
|
|
(defun symbolize-character-reader (stream char)
|
|
"Read the given character and return it as a symbol"
|
|
(declare (ignore stream))
|
|
(nth-value 0 (intern (string char))))
|
|
|
|
(mapcar (lambda (ch)
|
|
(set-macro-character
|
|
ch
|
|
#'symbolize-character-reader
|
|
()
|
|
*patient-readtable*))
|
|
;; break characters copied from the SETBRK call
|
|
'(#\. #\, #\? #\! #\- #\( #\) #\; #\: #\#))
|
|
|
|
;; allow quote in symbols
|
|
(set-syntax-from-char #\' #\a *patient-readtable*)
|
|
|
|
;;; Read Table for reading BBN Code.
|
|
|
|
(let ((open-paren '#:open)
|
|
(close-paren '#:close)
|
|
;;cache a single readtable as (list original superparenified)
|
|
rt-cache)
|
|
|
|
(defun superparenify (readtable)
|
|
(if (member *readtable* rt-cache)
|
|
(second rt-cache)
|
|
(let ((new-rt (copy-readtable readtable)))
|
|
(set-syntax-from-char #\] #\) new-rt readtable)
|
|
(set-macro-character #\( (constantly open-paren) () new-rt)
|
|
(set-macro-character #\) (constantly close-paren) () new-rt)
|
|
(second (setf rt-cache
|
|
(list *readtable*
|
|
new-rt))))))
|
|
|
|
;;; This is only functional enough to load the Eliza transcript.
|
|
(defun bbn-[-reader (stream char)
|
|
(declare (ignore char))
|
|
(let* ((*readtable* (superparenify *readtable*)))
|
|
(reintroduce-lists (read-delimited-list #\] stream))))
|
|
|
|
(defun reintroduce-lists (form)
|
|
"Takes a form like (lambda #:open x #:close #:open print #:open baz x)
|
|
and returns a form like (lambda (x) (print (baz x)))"
|
|
(do ((tail form)
|
|
result)
|
|
((null tail) (reverse result))
|
|
(multiple-value-bind (collected rest) (next-form tail)
|
|
(push collected result)
|
|
(setf tail rest))))
|
|
|
|
(defun next-form (list)
|
|
(cond ((eq (car list) close-paren)
|
|
(error "Unexpected close paren."))
|
|
((eq (car list) open-paren)
|
|
(let* ((close-pos (match-pos list))
|
|
(open-pos (position open-paren list :start 1)))
|
|
(cond (close-pos
|
|
(values (reintroduce-lists
|
|
(subseq list 1 close-pos))
|
|
(cdr (nthcdr close-pos list))))
|
|
(open-pos
|
|
(values
|
|
(append (subseq list 1 open-pos)
|
|
(reintroduce-lists (subseq list open-pos)))
|
|
()))
|
|
(t (values (cdr list) ())))))
|
|
(t (values (car list) (cdr list)))))
|
|
|
|
(defun match-pos (list)
|
|
"Position in list of the matching close paren."
|
|
(assert (eq (car list) open-paren))
|
|
(loop for atom in (cdr list)
|
|
for position from 1
|
|
with opened = 1
|
|
if (eq atom open-paren)
|
|
do (incf opened)
|
|
else if (eq atom close-paren)
|
|
do (decf opened)
|
|
when (= opened 0)
|
|
return position))
|
|
|
|
)
|
|
|
|
(defparameter *bbn-readtable* (copy-readtable ())
|
|
"A readtable for reading BBN lisp code.
|
|
|
|
1. #\' is a constituent character
|
|
2. #\" is the multiple escape character (CL's #\|)
|
|
3. #\% is the single escape character (CL's #\\)
|
|
4. #\, reads as the symbol |,|
|
|
5. backets are superparen -- #\[ starts reading a list
|
|
and #\] terminates it, and closes parenthesis opened after the #\[.")
|
|
(set-syntax-from-char #\' #\a *bbn-readtable*)
|
|
(set-syntax-from-char #\" #\| *bbn-readtable*)
|
|
(set-syntax-from-char #\% #\\ *bbn-readtable*)
|
|
(set-macro-character #\[ #'bbn-[-reader () *bbn-readtable*)
|
|
(set-macro-character #\, #'symbolize-character-reader t *bbn-readtable*)
|
|
|
|
;;; From https://code.google.com/p/lsw2/source/browse/branches/bona/ext-asdf/snark-20080805r038/src/collectors.lisp?spec=svn196&r=196
|
|
(defun tconc (x collector)
|
|
;; as in Interlisp TCONC, add single element x to the end of the
|
|
;; list in (car collector) and update (cdr collector) to point to
|
|
;; the end of the list
|
|
(setf x (cons x nil))
|
|
(cond
|
|
((null collector)
|
|
(cons x x))
|
|
((null (car collector))
|
|
(rplacd collector (setf (car collector) x)))
|
|
(t
|
|
(rplacd collector (setf (cddr collector) x)))))
|
|
|
|
)
|
|
|
|
|
|
;;; ===================================================================================
|
|
;;; | Eliza69-specific header |
|
|
;;; ===================================================================================
|
|
|
|
(defpackage :eliza69
|
|
(:nicknames :e69)
|
|
(:export :doctor)
|
|
(:use :bl))
|
|
|
|
(in-package :e69)
|
|
|
|
(defun ratom ()
|
|
(let ((*readtable* *patient-readtable*)
|
|
(*package* (find-package :e69)))
|
|
(read)))
|
|
|
|
;;; Globals (transferred from the tail of the file)
|
|
|
|
(defparameter TRMLIS '(|!| |?| |.|))
|
|
(defparameter PCTLIS '(|,| |;| |(| |)| |:|))
|
|
(defparameter RUBOUT '|#|)
|
|
|
|
;;; Specials:
|
|
|
|
(defvar SENTENCE nil)
|
|
(defvar KEYSTACK nil)
|
|
(defvar MEMSTACK nil)
|
|
(defvar FLIPFLOP nil)
|
|
(defvar PARSELIST nil)
|
|
(defvar WDLIST nil)
|
|
|
|
;;; Whack the readtable so that quotes are allowed inside atoms. (Thanks to Matt Niemeir)
|
|
|
|
(eval-when
|
|
(:compile-toplevel :load-toplevel :execute)
|
|
(setq *readtable* *bbn-readtable*))
|
|
|
|
;;; ===================================================================================
|
|
;;; | 1969 DOCFNS |
|
|
;;; ===================================================================================
|
|
|
|
;;; Eliza-19690731-DOCFNSp1-00of06
|
|
|
|
;;; /DOCFNS/ 31 JULY 1969 1007:42 PAGE 1
|
|
|
|
(PROGN (PRIN1 (QUOTE FILE" CREATED ")
|
|
T)
|
|
(PRIN1 (QUOTE 08/22/68" 1522:26")
|
|
T)
|
|
(TERPRI T))
|
|
(DEFINEQ
|
|
|
|
(DOCTOR
|
|
(LAMBDA NIL
|
|
(PROG (SENTENCE KEYSTACK MEMSTACK TIMON)
|
|
;; (SETSEPR 109 106 0)
|
|
;; (SETBRK 14 12 31 1 13 8 9 27 26 3)
|
|
;; (CONTROL T)
|
|
;; (GCGAG NIL)
|
|
(SETQ FLIPFLOP 0)
|
|
(SETQ TIMON (QUOTIENT (CLOCK)
|
|
60))
|
|
(RECONSTRUCT (QUOTE (TELL ME YOUR PROBLEMS "."
|
|
PLEASE TERMINATE INPUT WITH A PERIOD OR A
|
|
QUESTION MARK "."))
|
|
T)
|
|
(SETNONE)
|
|
A (PRIN1 (QUOTE "
|
|
*"))
|
|
(COND
|
|
((NULL (SETQ SENTENCE (MAKESENTENCE)))
|
|
(GO A)))
|
|
(SETQ KEYSTACK (CDR SENTENCE))
|
|
(SETQ SENTENCE (CAR SENTENCE))
|
|
(COND
|
|
((EQUAL SENTENCE (QUOTE (GOODBYE)))
|
|
(RETURN (RECONSTRUCT (APPEND (QUOTE (IT'S BEEN
|
|
MY PLEASURE "," THAT'S))
|
|
(CONS (PACK (LIST (QUOTE $)
|
|
(REMAINDER (PLUS (QUOTIENT
|
|
(CLOCK)
|
|
60)
|
|
(MINUS TIMON)
|
|
1440)
|
|
1440)
|
|
(QUOTE 0)))
|
|
(QUOTE (PLEASE "."))))
|
|
T))))
|
|
(ANALYZE)
|
|
(GO A)
|
|
)))
|
|
|
|
;;; Eliza-19690731-DOCFNSp1-01of06
|
|
|
|
;;; /DOCFNS/ 31 JULY 1969 1007:42 PAGE 1:1
|
|
|
|
(MAKESENTENCE
|
|
(LAMBDA NIL
|
|
(PROG (FLAG WORD SENTENCE KEYSTACK)
|
|
A1 (SETQ KEYSTACK (CONS))
|
|
(SETQ SENTENCE (CONS))
|
|
A (SETQ WORD (RATOM))
|
|
(COND
|
|
((NUMBERP WORD)
|
|
(SETQ WORD (PACK (LIST (QUOTE *)
|
|
WORD)))))
|
|
;; Word by word processing:
|
|
(COND
|
|
;; Un-necessary these days:
|
|
;; ((EQ WORD RUBOUT)
|
|
;; (RETURN (TERPRI)))
|
|
|
|
;; Check for terminal symbol:
|
|
((MEMBER WORD TRMLIS)
|
|
(TERPRI)
|
|
(RETURN (RPLACD SENTENCE KEYSTACK)))
|
|
;; Punctuation causes us to start a new sentence:
|
|
((MEMBER WORD PCTLIS)
|
|
(COND
|
|
((NULL (CDR KEYSTACK))
|
|
(GO A1))
|
|
((NULL (SETQ FLAG (MAKESENTENCE)))
|
|
(RETURN))
|
|
((AND (CDDR FLAG)
|
|
(NOT (GREATERP (GETP (CDR KEYSTACK)
|
|
(QUOTE PRIORITY))
|
|
(GETP (CDDR FLAG)
|
|
(QUOTE PRIORITY)))))
|
|
(RETURN FLAG))
|
|
(T (RETURN (RPLACD SENTENCE KEYSTACK))))))
|
|
;; Valid word so far, translate if there is any translation,
|
|
;; and add to the end of the sentence.
|
|
(TCONC
|
|
(COND
|
|
((GETP WORD (QUOTE TRANSLATION)))
|
|
(WORD))
|
|
SENTENCE)
|
|
(COND
|
|
((SETQ FLAG (GETP WORD (QUOTE MEMR)))
|
|
(SETQ MEMSTACK (APPEND FLAG MEMSTACK))))
|
|
;; This is supposed to push the word's plist contents onto
|
|
;; the keystack in something like the right place by
|
|
;; priority.
|
|
(COND
|
|
((AND (SETQ FLAG (GETP WORD (QUOTE PRIORITY)))
|
|
(CDR KEYSTACK)
|
|
(GREATERP FLAG (GETP (CDR KEYSTACK)
|
|
(QUOTE PRIORITY))))
|
|
(RPLACD KEYSTACK (CONS (CDR KEYSTACK)
|
|
(CDR WORD))))
|
|
(FLAG (BCONC (CDR WORD)
|
|
KEYSTACK)))
|
|
(GO A)
|
|
)))
|
|
|
|
;;; Eliza-19690731-DOCFNSp1-02of06
|
|
|
|
;;; /DOCFNS/ 31 JULY 1969 1007:42 PAGE 1:2
|
|
|
|
(ANALYZE
|
|
(LAMBDA NIL
|
|
(PROG (RULES PARSELIST CR)
|
|
(BCONC
|
|
(GETP (QUOTE NONE)
|
|
(COND
|
|
((ZEROP (SETQ FLIPFLOP (PLUS 2 (MINUS FLIPFLOP))))
|
|
(QUOTE MEM))
|
|
((QUOTE LASTRESORT))))
|
|
KEYSTACK)
|
|
(SETQ KEYSTACK (CDR KEYSTACK))
|
|
A (SETQ RULES (GETP KEYSTACK (QUOTE RULES)))
|
|
B (COND
|
|
((OR (NULL RULES)
|
|
(EQ (CAR RULES)
|
|
(QUOTE NEWKEY)))
|
|
(SETQ KEYSTACK (CAR KEYSTACK))
|
|
(GO A))
|
|
((ATOM (CAR RULES))
|
|
(SETQ RULES (GETP (CAR RULES)
|
|
(QUOTE RULES)))
|
|
(GO B)))
|
|
(SETQ PARSELIST (CONS NIL NIL))
|
|
(COND
|
|
((NOT (TEST (CAAR RULES)
|
|
SENTENCE))
|
|
(SETQ RULES (CDR RULES)))
|
|
((ATOM (SETQ CR (CAR (SETQ RULES (CAR (ADVANCE
|
|
RULES)))))))
|
|
((EQ (CAR CR)
|
|
(QUOTE PRE))
|
|
(SETQ SENTENCE (RECONSTRUCT (CADR CR)))
|
|
(SETQ RULES (CDDR CR)))
|
|
(T (RECONSTRUCT CR T)
|
|
(MEMORY)
|
|
(RETURN)))
|
|
(GO B)
|
|
)))
|
|
|
|
;;; Eliza-19690731-DOCFNSp1-03of06
|
|
|
|
;;; /docfns/ 31 July 1969 1007:42
|
|
|
|
(TEST
|
|
(LAMBDA (D S)
|
|
(PROG (CD PSV)
|
|
(SETQ PSV (CDR PARSELIST))
|
|
LP (COND
|
|
((NULL D)
|
|
(COND
|
|
(S (GO RN))
|
|
(T (SETQ PARSELIST (CAR PARSELIST))
|
|
(RETURN T))))
|
|
((EQ 0 (SETQ CD (CAR D)))
|
|
(GO T0))
|
|
((NULL S)
|
|
(GO RN))
|
|
((NUMBERP CD)
|
|
(TCONC S PARSELIST)
|
|
(COND
|
|
((SETQ S (NTH S CD))
|
|
(GO T3))
|
|
(T (GO RN))))
|
|
((ATOM CD)
|
|
(COND
|
|
((EQ CD (CAR S)))
|
|
(T (GO RN))))
|
|
((CAR CD)
|
|
(COND
|
|
((MEMBER (CAR S)
|
|
CD))
|
|
(T (GO RN))))
|
|
((TEST4 (CAR S)
|
|
(CDR CD)))
|
|
(T (GO RN)))
|
|
(TCONC S PARSELIST)
|
|
T3 (SETQ S (CDR S))
|
|
(SETQ D (CDR D))
|
|
(GO LP)
|
|
T0 (TCONC S PARSELIST)
|
|
(COND
|
|
((NULL (SETQ D (CDR D)))
|
|
(SETQ PARSELIST (CAR PARSELIST))
|
|
(RETURN T)))
|
|
T1 (COND
|
|
((TEST D S)
|
|
(RETURN T))
|
|
((SETQ S (CDR S))
|
|
(GO T1)))
|
|
RN (RPLACD PARSELIST (COND
|
|
(PSV (RPLACD PSV NIL))))
|
|
(RETURN NIL)
|
|
)))
|
|
|
|
;;; Eliza-19690731-DOCFNSp1-04of06
|
|
|
|
;;; * /DOCFNS/ 31 JULY 1969 1007:42
|
|
|
|
(TEST4
|
|
(LAMBDA (CS L)
|
|
(PROG NIL
|
|
LP (COND
|
|
((GETP CS (CAR L))
|
|
(RETURN T))
|
|
((SETQ L (CDR L))
|
|
(GO LP)))
|
|
(RETURN NIL)
|
|
)))
|
|
|
|
(ADVANCE
|
|
(LAMBDA (RULES)
|
|
(RPLACA (CDAR RULES)
|
|
(COND
|
|
((NULL (CDADAR RULES))
|
|
(CDDAR RULES))
|
|
((CDADAR RULES))))))
|
|
|
|
(RECONSTRUCT
|
|
(LAMBDA (RULE PF)
|
|
(PROG (SENT CR V1 V2 TPF QMF)
|
|
(COND
|
|
((NULL PF)
|
|
(SETQ SENT (CONS))))
|
|
LP (COND
|
|
((NULL RULE)
|
|
(COND
|
|
(PF (COND
|
|
((NULL QMF)
|
|
(PRIN1 (QUOTE ?))))
|
|
(TERPRI)))
|
|
(RETURN (CAR SENT)))
|
|
((NUMBERP (SETQ CR (CAR RULE)))
|
|
(GO T1))
|
|
(PF (COND
|
|
((MEMBER CR TRMLIS :test #'string-equal) ;;; !!!!!!!!!!!
|
|
(PRIN1 CR)
|
|
(SETQ QMF T))
|
|
(T (COND
|
|
(TPF (SPACES 1))
|
|
(T (TERPRI)
|
|
(SETQ TPF T)))
|
|
(PRIN1 CR))))
|
|
(T (TCONC CR SENT)))
|
|
T3 (SETQ RULE (CDR RULE))
|
|
(GO LP)
|
|
T1 (SETQ V1 (CAR (SETQ CR (NTH PARSELIST CR))))
|
|
(SETQ V2 (CADR CR))
|
|
T2 (COND
|
|
|
|
;;; eliza-page-19690731-docfnsp1-05of06
|
|
|
|
;;; /DOCFNS/ 31 JULY 1969 1007:42
|
|
|
|
((EQ V1 V2)
|
|
(GO T3))
|
|
(PF (COND
|
|
(TPF (SPACES 1))
|
|
(T (TERPRI)
|
|
(SETQ TPF T)))
|
|
(PRIN1 (CAR V1)))
|
|
(T (TCONC (CAR V1)
|
|
SENT)))
|
|
(SETQ V1 (CDR V1))
|
|
(GO T2)
|
|
)))
|
|
|
|
(MEMORY
|
|
(LAMBDA NIL
|
|
(PROG (PARSELIST X)
|
|
LP (COND
|
|
((NULL MEMSTACK)
|
|
(RETURN)))
|
|
(SETQ PARSELIST (CONS NIL NIL))
|
|
(COND
|
|
((TEST (CAAR MEMSTACK)
|
|
SENTENCE)
|
|
(RPLACA (SETQ X (CDAADR (GETP (QUOTE NONE)
|
|
(QUOTE MEM))))
|
|
(CONS (CAR X)
|
|
(CONS (RECONSTRUCT (CAAR (ADVANCE MEMSTACK)))
|
|
(CDAR X))))))
|
|
(SETQ MEMSTACK (CDR MEMSTACK))
|
|
(GO LP)
|
|
)))
|
|
|
|
(BCONC
|
|
(LAMBDA (WHAT LIST)
|
|
(COND
|
|
((NULL LIST)
|
|
;; This clause wouldn't work for its side-effect bcs it
|
|
;; side-effects a local! You could use the result, though. I
|
|
;; don't think that the main code actually uses the results of
|
|
;; BCONC anywhere, but only depends upon the side effect...so
|
|
;; this bascially won't work, but I also don't think that it's
|
|
;; ever used bcs the list is always a cons cell, which isn't nil.
|
|
(CONS (SETQ LIST (CONS NIL WHAT))
|
|
LIST))
|
|
((NULL (CAR LIST))
|
|
(RPLACA LIST (CDR (RPLACD LIST (CONS NIL WHAT)))))
|
|
((RPLACA LIST (CAR (RPLACA (CAR LIST)
|
|
(RPLACA (CONS LIST WHAT)
|
|
NIL))))))))
|
|
|
|
(RPLQQ
|
|
(NLAMBDA RPLQ
|
|
(RPLACD (CAR RPLQ)
|
|
(CDR RPLQ))))
|
|
|
|
;;; Eliza-19690731-DOCFNSp1-06of06
|
|
|
|
;;; /DOCFNS/ 31 JULY 1969 1007:42 PAGE 1:6
|
|
|
|
(SETNONE
|
|
(LAMBDA NIL
|
|
(PROG (A)
|
|
(SETQ A (GENSYM))
|
|
;; In old lisps that symbol's car is the value and the cdr
|
|
;; is the plist, so this is actually smashing the plist.
|
|
;; Thanks to Barry Margolin, Ben Hyde, and Pascal Bourguignon.
|
|
(RPLACD A (GETP (QUOTE NONE)
|
|
(QUOTE LASTRESORT)))
|
|
(PUT (QUOTE NONE)
|
|
(QUOTE MEM)
|
|
(LIST (QUOTE RULES)
|
|
(LIST (LIST (LIST 0)
|
|
(LIST NIL)
|
|
A))))
|
|
)))
|
|
)
|
|
|
|
#| Moved to the top as defparameters and defvars:
|
|
|
|
(PRINT (QUOTE DOCFNS))
|
|
(RPAQQ DOCFNS (DOCTOR MAKESENTENCE ANALYZE TEST TEST4
|
|
ADVANCE RECONSTRUCT MEMORY BCONC RPLQQ SETNONE))
|
|
(PRINT (QUOTE DOCVARS))
|
|
(RPAQQ DOCVARS (TRMLIS PCTLIS RUBOUT STOP))
|
|
; (RPAQQ TRMLIS ("." ! ?))
|
|
(RPAQQ TRMLIS (#\. #\! #\?))
|
|
; (RPAQQ PCTLIS ("," ; "(" ")" :))
|
|
(RPAQQ PCTLIS (#\, #\; #\( #\) #\:))
|
|
; (RPAQQ RUBOUT #)
|
|
(RPAQQ RUBOUT #\#)
|
|
|
|
|#
|
|
|
|
;;; STOP
|
|
|
|
;;; ===================================================================================
|
|
;;; | 1969 SCRIPT |
|
|
;;; ===================================================================================
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-00of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1
|
|
|
|
(SETQQ WDLIST
|
|
(SORRY DONT CANT WONT REMEMBER IF DREAMT DREAMED DREAM
|
|
DREAMS HOW WHEN ALIKE SAME CERTAINLY FEEL THINK BELIEVE WISH MY
|
|
NONE PERHAPS MAYBE NAME DEUTSCH FRANCAIS SVENSKA ITALIANO ESPANOL
|
|
HELLO COMPUTER MACHINE MACHINES COMPUTERS AM ARE YOUR WAS WERE ME
|
|
YOU'RE I'M MYSELF YOURSELF MOTHER MOM DAD FATHER SISTER BROTHER
|
|
WIFE CHILDREN I YOU XXYYZZ YES NO CAN IS WHERE WHAT XXWHAT BECAUSE
|
|
WHY EVERYONE EVERYBODY NOBODY NOONE ALWAYS LIKE DIT OH EVERY DO
|
|
GIRLS WOMEN BOY GIRL MAN WOMAN SEXY SEXUAL SEX FRIENDLY FRIEND CRY
|
|
LAUGH LOVE HATE DISLIKE))
|
|
|
|
(RPLQQ SORRY
|
|
PRIORITY 2
|
|
RULES (((0)
|
|
(NIL)
|
|
(APOLOGIES ARE NOT NECESSARY ".")
|
|
(WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE))))
|
|
|
|
(RPLQQ DONT
|
|
TRANSLATION DON'T)
|
|
|
|
(RPLQQ CANT
|
|
TRANSLATION CAN'T)
|
|
|
|
(RPLQQ WONT
|
|
TRANSLATION WON'T)
|
|
|
|
(RPLQQ REMEMBER
|
|
PRIORITY 5
|
|
RULES (((REMEMBER 0)
|
|
(NIL)
|
|
(PRE (DO I REMEMBER 2)
|
|
REMEMBER))
|
|
((YOU REMEMBER 0)
|
|
(NIL)
|
|
(DO YOU OFTEN THINK OF 3)
|
|
(WHAT ELSE DOES THINKING OF 3 BRING TO MIND)
|
|
(WHAT ELSE DO YOU REMEMBER)
|
|
(WHY DO YOU REMEMBER 3 JUST NOW)
|
|
(WHAT IN THE PRESENT SITUATION REMINDS YOU OF 3)
|
|
(WHAT IS THE CONNECTION BETWEEN ME AND 3))
|
|
((DO I REMEMBER 0)
|
|
(NIL)
|
|
(WHY DID YOU THINK I WOULD FORGET 4)
|
|
(WHY DO YOU THINK I SHOULD RECALL 4 NOW)
|
|
(WHAT ABOUT 4))))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-01of21
|
|
|
|
(RPLQQ IF
|
|
PRIORITY
|
|
3
|
|
RULES
|
|
(((0 IF 0)
|
|
(NIL)
|
|
(DO YOU THINK IT'S LIKELY THAT 3)
|
|
(DO YOU WISH THAT 3)
|
|
(WHAT DO YOU THINK ABOUT 3)
|
|
(REALLY"," IF 3))))
|
|
|
|
(RPLQQ DREAMT
|
|
PRIORITY
|
|
4
|
|
RULES
|
|
(((0 YOU DREAMT 0)
|
|
(NIL)
|
|
(REALLY 4)
|
|
(HAVE YOU EVER FANTASIED 4 WHILE YOU WERE AWAKE)
|
|
(HAVE YOU DREAMT 4 BEFORE)
|
|
DREAM
|
|
NEWKEY)))
|
|
|
|
(RPLQQ DREAMED
|
|
TRANSLATION
|
|
DREAMT
|
|
PRIORITY
|
|
4
|
|
RULES
|
|
(DREAMT))
|
|
|
|
(RPLQQ DREAM
|
|
PRIORITY 3
|
|
RULES (((0 YOU DREAM (OF ABOUT) 0)
|
|
(NIL)
|
|
(WHAT MIGHT 5 REPRESENT)
|
|
(WHAT DOES 5 SUGGEST TO YOU)
|
|
(HOW DOES THAT DREAM RELATE TO YOUR PROBLEM))
|
|
((0)
|
|
(NIL)
|
|
(WHAT DO YOU DREAM ABOUT)
|
|
(WHAT PERSONS APPEAR IN YOUR DREAMS)
|
|
(WHAT MAY DREAMS HAVE TO DO WITH YOUR PROBLEM)
|
|
NEWKEY)))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-02of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:2
|
|
|
|
|
|
(RPLQQ DREAMS
|
|
TRANSLATION
|
|
DREAM
|
|
PRIORITY
|
|
3
|
|
RULES
|
|
(DREAM))
|
|
|
|
(RPLQQ HOW
|
|
RULES
|
|
(WHAT)
|
|
PRIORITY
|
|
0)
|
|
|
|
(RPLQQ WHEN
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((WHEN (DO DID DOES WILL)
|
|
0)
|
|
(NIL)
|
|
XXWHAT)
|
|
((0)
|
|
(NIL)
|
|
(IS THERE ANY OTHER TIME)
|
|
(WHY THEN"," DO YOU SUPPOSE))))
|
|
|
|
(RPLQQ ALIKE
|
|
PRIORITY
|
|
10
|
|
RULES
|
|
(DIT))
|
|
|
|
(RPLQQ SAME
|
|
RULES
|
|
(DIT)
|
|
PRIORITY
|
|
3)
|
|
|
|
(RPLQQ CERTAINLY
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(YES))
|
|
|
|
(RPLQQ FEEL
|
|
BELIEF
|
|
T)
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-03of21
|
|
|
|
(RPLQQ THINK
|
|
BELIEF
|
|
T)
|
|
|
|
(RPLQQ BELIEVE
|
|
BELIEF
|
|
T)
|
|
|
|
(RPLQQ WISH
|
|
BELIEF
|
|
T)
|
|
|
|
(RPLQQ MY
|
|
MEMR
|
|
(((YOUR 2 0)
|
|
(NIL)
|
|
(LETS DISCUSS FURTHER WHY YOUR 2 3 ".")
|
|
(EARLIER YOU SAID YOUR 2 3 ".")
|
|
(BUT YOUR 2 3 ".")
|
|
(DOES THAT HAVE ANYTHING TO DO WITH THE FACT THAT YOUR 2 3))
|
|
((0 YOUR 1)
|
|
(NIL)
|
|
(WOULD YOU LIKE TO DISCUSS YOUR 3)
|
|
(PERHAPS THAT CONCERNS YOUR 3 ".")
|
|
(TELL ME MORE ABOUT YOUR 3 ".")))
|
|
PRIORITY
|
|
0
|
|
TRANSLATION
|
|
YOUR
|
|
RULES
|
|
(((0 YOUR 0 (NIL FAMILY)
|
|
0)
|
|
(NIL)
|
|
(TELL ME MORE ABOUT YOUR FAMILY ".")
|
|
(WHO ELSE IN YOUR FAMILY 5)
|
|
(YOUR 4)
|
|
(WHAT ELSE COMES TO MIND WHEN YOU THINK OF YOUR 4))
|
|
((YOUR 2 0)
|
|
(NIL)
|
|
(IS IT IMPORTANT TO YOU THAT YOUR 2 3)
|
|
(DO YOU SUPPOSE ANYONE ELSE'S 2 3)
|
|
(WHAT MAKES YOU THINK YOUR 2 3)
|
|
(SUPPOSE I DIDN'T BELIEVE THAT YOUR 2 3 "."))
|
|
((0 YOUR 1)
|
|
(NIL)
|
|
(YOUR 3)
|
|
(WHY DO YOU SAY THAT YOUR 3)
|
|
(WHO ELSE KNOWS ABOUT YOUR 3)
|
|
(WHY DO YOU MENTION YOUR 3 JUST NOW)
|
|
(WHY IS YOUR 3 IMPORTANT TO YOU)
|
|
(DO YOU OFTEN DISCUSS YOUR 3))))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-04of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:4
|
|
|
|
(RPLQQ NONE
|
|
LASTRESORT
|
|
(RULES (((0)
|
|
(NIL)
|
|
(I AM NOT SURE I UNDERSTAND YOU FULLY ".")
|
|
(PLEASE GO ON ".")
|
|
(WHAT DOES THAT SUGGEST TO YOU)
|
|
(WHAT ELSE WOULD YOU LIKE TO DISCUSS)
|
|
(WHY DO YOU SAY THAT JUST NOW)))))
|
|
|
|
(RPLQQ PERHAPS
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(YOU DON'T SEEM QUITE CERTAIN ".")
|
|
(WHY THE UNCERTAIN TONE)
|
|
(CAN'T YOU BE MORE POSITIVE)
|
|
(YOU AREN'T SURE)
|
|
(DON'T YOU KNOW))))
|
|
|
|
(RPLQQ MAYBE
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(PERHAPS))
|
|
|
|
(RPLQQ NAME
|
|
PRIORITY
|
|
15
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(I AM NOT INTERESTED IN NAMES ".")
|
|
(I'VE TOLD YOU BEFORE I DON'T CARE ABOUT NAMES - PLEASE
|
|
CONTINUE "."))))
|
|
|
|
(RPLQQ DEUTSCH
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(I AM SORRY"," I SPEAK ONLY ENGLISH))))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-05of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1968 1008:27
|
|
|
|
(RPLQQ FRANCAIS
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(DEUTSCH))
|
|
|
|
(RPLQQ SVENSKA
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(DEUTSCH))
|
|
|
|
(RPLQQ ITALIANO
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(DEUTSCH))
|
|
|
|
(RPLQQ ESPANOL
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(DEUTSCH))
|
|
|
|
(RPLQQ HELLO
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(HOW DO YOU DO "."))))
|
|
|
|
(RPLQQ COMPUTER
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(DO COMPUTERS WORRY YOU)
|
|
(WHY DO YOU MENTION COMPUTERS)
|
|
(WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM)
|
|
(DON'T YOU THINK COMPUTERS CAN HELP PEOPLE))))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-06of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27
|
|
|
|
(RPLQQ MACHINE
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(COMPUTER))
|
|
|
|
(RPLQQ MACHINES
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(COMPUTER))
|
|
|
|
(RPLQQ COMPUTERS
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(COMPUTER))
|
|
|
|
(RPLQQ AM
|
|
PRIORITY
|
|
0
|
|
TRANSLATION
|
|
ARE
|
|
RULES
|
|
(((ARE YOU 0)
|
|
(NIL)
|
|
(DO YOU BELIEVE YOU ARE 3)
|
|
(WOULD YOU WANT TO BE 3)
|
|
(YOU WISH I WOULD TELL YOU YOU ARE 3 ".")
|
|
(WHAT WOULD IT MEAN IF YOU WERE 3)
|
|
XXWHAT)
|
|
((0)
|
|
(NIL)
|
|
(WHY DO YOU SAY 'AM')
|
|
(I DON'T UNDERSTAND THAT))))
|
|
|
|
(RPLQQ ARE
|
|
PRIORITY
|
|
0
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-07of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:7
|
|
|
|
RULES
|
|
(((THERE (ARE IS)
|
|
(NO NOT)
|
|
0)
|
|
(NIL)
|
|
(WHAT IF THERE WERE 4)
|
|
(DID YOU THINK THERE MIGHT BE 4)
|
|
(PRE (THERE 2 4)
|
|
ARE))
|
|
((THERE (ARE IS)
|
|
0)
|
|
(NIL)
|
|
(2 THERE REALLY 3)
|
|
(WHY 2 THERE 3)
|
|
(HOW 3 THE 4 RELATED TO YOU))
|
|
((ARE I 0)
|
|
(NIL)
|
|
(WHY ARE YOU INTERESTED IN WHETHER I AM 3 OR NOT)
|
|
(WOULD YOU PREFER IF I WEREN'T 3)
|
|
(PERHAPS I AM 3 IN YOUR FANTASIES ".")
|
|
(DO YOU SOMETIMES THINK I AM 3)
|
|
XXWHAT)
|
|
((ARE 0)
|
|
(NIL)
|
|
XXWHAT)
|
|
((0 1 (ARE IS)
|
|
NOT
|
|
0)
|
|
(NIL)
|
|
(POSSIBLY THAT IS FOR THE BETTER ".")
|
|
(WHAT IF 2 WERE 5)
|
|
(WHAT DO YOU REALLY KNOW ABOUT 2))
|
|
((0 (ARE IS)
|
|
0)
|
|
(NIL)
|
|
(SUPPOSE 1 WERE NOT 3 ".")
|
|
(POSSIBLY 1 REALLY 2 NOT 3 ".")
|
|
(TELL ME MORE ABOUT 1 ".")
|
|
(DID YOU THINK 1 MIGHT NOT BE 3)
|
|
(1 PERHAPS 2 3 "."))))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-08of21
|
|
|
|
(RPLQQ YOUR
|
|
PRIORITY
|
|
0
|
|
TRANSLATION
|
|
MY
|
|
RULES
|
|
(((0 MY 1)
|
|
(NIL)
|
|
(WHY ARE YOU CONCERNED OVER MY 3)
|
|
(WHAT ABOUT YOUR OWN 3)
|
|
(ARE YOU WORRIED ABOUT SOMEONE ELSES 3)
|
|
(REALLY"," MY 3))
|
|
((MY 0)
|
|
(NIL)
|
|
(PERHAPS YOUR OWN 2 ".")
|
|
(ARE YOU WORRIED THAT MY 2))))
|
|
|
|
(RPLQQ WAS
|
|
PRIORITY
|
|
2
|
|
RULES
|
|
(((WAS YOU 0)
|
|
(NIL)
|
|
(WHAT IF YOU WERE 3)
|
|
(DO YOU THINK YOU WERE 3)
|
|
(WERE YOU 3)
|
|
(WHAT WOULD IT MEAN IF YOU WERE 3)
|
|
XXWHAT)
|
|
((YOU WAS 0)
|
|
(NIL)
|
|
(WERE YOU REALLY)
|
|
(WHY DO YOU TELL ME YOU WERE 3 NOW)
|
|
(PERHAPS I ALREADY KNEW YOU WERE 3 "."))
|
|
((WAS I 0)
|
|
(NIL)
|
|
(WOULD YOU LIKE TO BELIEVE I WAS 3)
|
|
(WHAT SUGGESTS THAT I WAS 3)
|
|
(WHAT DO YOU THINK)
|
|
(PERHAPS I WAS 3 ".")
|
|
(WHAT IF I HAD BEEN 3))))
|
|
|
|
(RPLQQ WERE
|
|
PRIORITY
|
|
0
|
|
TRANSLATION
|
|
WAS
|
|
RULES
|
|
(WAS))
|
|
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-09of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:9
|
|
|
|
(RPLQQ ME
|
|
TRANSLATION
|
|
YOU)
|
|
|
|
(RPLQQ YOU'RE
|
|
PRIORITY
|
|
0
|
|
TRANSLATION
|
|
I'M
|
|
RULES
|
|
(((0 I'M 0)
|
|
(NIL)
|
|
(PRE (I ARE 3)
|
|
YOU))))
|
|
|
|
(RPLQQ I'M
|
|
PRIORITY
|
|
0
|
|
TRANSLATION
|
|
YOU'RE
|
|
RULES
|
|
(((0 YOU'RE 0)
|
|
(NIL)
|
|
(PRE (YOU ARE 3)
|
|
I))))
|
|
|
|
(RPLQQ MYSELF
|
|
TRANSLATION
|
|
YOURSELF)
|
|
|
|
(RPLQQ YOURSELF
|
|
TRANSLATION
|
|
MYSELF)
|
|
|
|
(RPLQQ MOTHER
|
|
FAMILY
|
|
T)
|
|
|
|
(RPLQQ MOM
|
|
TRANSLATION
|
|
MOTHER
|
|
FAMILY
|
|
T)
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-10of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:10
|
|
|
|
(RPLQQ DAD
|
|
TRANSLATION
|
|
FATHER
|
|
FAMILY
|
|
T)
|
|
|
|
(RPLQQ FATHER
|
|
FAMILY
|
|
T)
|
|
|
|
(RPLQQ SISTER
|
|
FAMILY
|
|
T)
|
|
|
|
(RPLQQ BROTHER
|
|
FAMILY
|
|
T)
|
|
|
|
(RPLQQ WIFE
|
|
FAMILY
|
|
T)
|
|
|
|
(RPLQQ CHILDREN
|
|
FAMILY
|
|
T)
|
|
|
|
(RPLQQ I
|
|
PRIORITY
|
|
0
|
|
TRANSLATION
|
|
YOU
|
|
RULES
|
|
(((0 YOU (WANT NEED)
|
|
0)
|
|
(NIL)
|
|
(WHAT WOULD IT MEAN TO YOU IF YOU GOT 4)
|
|
(WHY DO YOU WANT 4)
|
|
(WHAT WOULD GETTING 4 MEAN TO YOU))
|
|
((0 YOU ARE 0 (SAD UNHAPPY DEPRESSED SICK ILL)
|
|
0)
|
|
(NIL)
|
|
(I AM SORRY TO HEAR YOU ARE 5 ".")
|
|
(DO YOU THINK COMING HERE WILL HELP YOU NOT TO BE 5)
|
|
(CAN YOU EXPLAIN WHAT MADE YOU 5))
|
|
((0 YOU ARE 0 (HAPPY ELATED GLAD BETTER)
|
|
0)
|
|
(NIL)
|
|
(HOW HAVE I HELPED YOU TO BE 5)
|
|
(HAS YOUR TREATMENT MADE YOU 5)
|
|
(WHAT MAKES YOU 5 JUST NOW))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-11of21
|
|
|
|
((0 YOU (NIL BELIEF)
|
|
YOU
|
|
0)
|
|
(NIL)
|
|
(DO YOU REALLY THINK SO)
|
|
(BUT YOU ARE NOT SURE YOU 5)
|
|
(DO YOU REALLY DOUBT YOU 5))
|
|
((0 YOU 0 (NIL BELIEF)
|
|
0
|
|
I
|
|
0)
|
|
(NIL)
|
|
(PRE (6 7)
|
|
YOU))
|
|
((0 YOU ARE 0)
|
|
(NIL)
|
|
(IS IT BECAUSE YOU ARE 4 THAT YOU CAME TO ME)
|
|
(HOW LONG HAVE YOU BEEN 4)
|
|
(DO YOU BELIEVE IT NORMAL TO BE 4)
|
|
(DO YOU ENJOY BEING 4))
|
|
((0 YOU (CAN'T CANNOT)
|
|
0)
|
|
(NIL)
|
|
(HOW DO YOU KNOW YOU CAN'T 4)
|
|
(HAVE YOU TRIED)
|
|
(PERHAPS YOU COULD 4 NOW ".")
|
|
(DO YOU REALLY WANT TO BE ABLE TO 4))
|
|
((0 YOU (DON'T WON'T)
|
|
0)
|
|
(NIL)
|
|
(DON'T YOU REALLY 4)
|
|
(WHY DON'T YOU 4)
|
|
(DO YOU WISH YOU DID 4)
|
|
(DOES THAT TROUBLE YOU))
|
|
((0 YOU FEEL 0)
|
|
(NIL)
|
|
(TELL ME MORE ABOUT SUCH FEELINGS ".")
|
|
(DO YOU OFTEN FEEL 4)
|
|
(DO YOU ENJOY FEELING 4)
|
|
(OF WHAT DOES FEELING 4 REMIND YOU))
|
|
((YOU 0 I)
|
|
(NIL)
|
|
(PERHAPS IN YOUR FANTASY WE 2 EACH OTHER ".")
|
|
(DO YOU WISH TO 2 ME)
|
|
(YOU SEEM TO NEED TO 2 ME ".")
|
|
(DO YOU 2 ANYONE ELSE))
|
|
((0 YOU (NIL EMOTION)
|
|
0)
|
|
(NIL)
|
|
(WHAT ELSE DO YOU 3)
|
|
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-12of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:12
|
|
|
|
(TELL ME MORE ABOUT 4 ".")
|
|
(WHY DO YOU 3 4)
|
|
(I DOUBT THAT YOU REALLY 3 4 "."))
|
|
((0 YOU 1 0) ;; ??? xscriber notes that the final 0 looks like an O in the printout ???
|
|
(NIL)
|
|
(YOU SAY 2 3 4)
|
|
(CAN YOU ELABORATE ON THAT)
|
|
(DO YOU SAY 2 3 4 FOR SOME SPECIAL REASON)
|
|
(TELL ME MORE ABOUT YOURSELF)
|
|
(OH? 2 3 4)
|
|
(THAT'S QUITE INTERESTING ".")))
|
|
MEMR
|
|
(((0 YOU ARE 0)
|
|
(NIL)
|
|
(ARE YOU STILL 4)
|
|
(EARLIER YOU SAID YOU WERE 4 ".")
|
|
(MAYBE NOW WE CAN DISCUSS WHY YOU ARE 4 ".")
|
|
(DID YOU TELL ME YOU WERE 4))))
|
|
|
|
(RPLQQ YOU
|
|
PRIORITY
|
|
0
|
|
TRANSLATION
|
|
I
|
|
RULES
|
|
(((0 I REMIND YOU OF 0)
|
|
(NIL)
|
|
DIT)
|
|
((0 I ARE 0)
|
|
(NIL)
|
|
(WHAT MAKES YOU THINK I AM 4)
|
|
(DOES IT PLEASE YOU TO BELIEVE I AM 4)
|
|
(PERHAPS YOU WOULD LIKE TO BE 4 ".")
|
|
(DO YOU SOMETIMES WISH YOU WERE 4))
|
|
((0 I 0 YOU)
|
|
(NIL)
|
|
(WHY DO YOU THINK I 3 YOU)
|
|
(YOU LIKE TO THINK I 3 YOU - DON'T YOU)
|
|
(WHAT MAKES YOU THINK I 3 YOU)
|
|
(REALLY? I 3 YOU)
|
|
(DO YOU WISH TO BELIEVE I 3 YOU)
|
|
(SUPPOSE I DID 3 YOU - WHAT WOULD THAT MEAN)
|
|
(DOES SOMEONE ELSE BELIEVE I 3 YOU))
|
|
((0 I 1 0)
|
|
(NIL)
|
|
(SUPPOSE YOU 3 4 ".")
|
|
(OH? I 3 4)
|
|
(WHAT MAKES YOU THINK I 3 4)
|
|
(WHO ARE YOU REALLY TALKING ABOUT))))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-13of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:13
|
|
|
|
(RPLQQ XXYYZZ
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(IS THERE SOMETHING BOTHERING YOU)
|
|
(CAN YOU BE MORE INFORMATIVE)
|
|
(PERHAPS YOU'D RATHER TALK ABOUT SOMETHING ELSE ".")
|
|
(PLEASE TELL ME MORE "."))))
|
|
|
|
(RPLQQ YES
|
|
PRIORITY
|
|
-1
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
XXYYZZ
|
|
(WHY ARE YOU SO SURE)
|
|
(I SEE ".")
|
|
(I UNDERSTAND "."))))
|
|
|
|
(RPLQQ NO
|
|
PRIORITY
|
|
-1
|
|
RULES
|
|
(((0 NO (BODY ONE)
|
|
0)
|
|
(NIL)
|
|
NOBODY)
|
|
((0)
|
|
(NIL)
|
|
XXYYZZ
|
|
(VERY WELL ".")
|
|
(WHY NOT)
|
|
(WHY 'NO'))))
|
|
|
|
(RPLQQ CAN
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((CAN I 0)
|
|
(NIL)
|
|
(YOU BELIEVE I CAN 3 DON'T YOU)
|
|
XXWHAT
|
|
(YOU WANT ME TO BE ABLE TO 3 ".")
|
|
(PERHAPS YOU WOULD LIKE TO BE ABLE TO 3 YOURSELF "."))
|
|
((CAN YOU 0)
|
|
(NIL)
|
|
(WHETHER OR NOT YOU CAN 3 DEPENDS ON YOU MORE THAN ON ME
|
|
".")
|
|
(DO YOU WANT TO BE ABLE TO 3)
|
|
(PERHAPS YOU DON'T WANT TO 3 ".")
|
|
XXWHAT)))
|
|
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-14of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:14
|
|
|
|
(RPLQQ IS
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((IS 0)
|
|
(NIL)
|
|
XXWHAT)
|
|
ARE))
|
|
|
|
(RPLQQ WHERE
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(WHAT))
|
|
|
|
(RPLQQ WHAT
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
((((HOW WHERE WHAT WHY)
|
|
0)
|
|
(NIL)
|
|
XXWHAT)))
|
|
|
|
(RPLQQ XXWHAT
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(WHY DO YOU ASK)
|
|
(WHY DOES THAT QUESTION INTEREST YOU)
|
|
(WHY ARE SUCH QUESTIONS ON YOUR MIND)
|
|
(WHAT ANSWER WOULD PLEASE YOU MOST)
|
|
(WHAT DO YOU THINK)
|
|
(WHEN HAVE YOU ASKED SUCH QUESTIONS BEFORE)
|
|
(WHO ELSE HAVE YOU ASKED))))
|
|
|
|
(RPLQQ BECAUSE
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(IS THAT THE REAL REASON)
|
|
(I SEE ".")
|
|
(DON'T ANY OTHER REASONS COME TO MIND)
|
|
(DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE)
|
|
(AND WHAT DOES THAT SUGGEST)
|
|
(WHAT OTHER REASONS MIGHT THERE BE))))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-15of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:15
|
|
|
|
(RPLQQ WHY
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((0 WHY (DON'T WON'T)
|
|
I
|
|
0)
|
|
(NIL)
|
|
(DO YOU BELIEVE I DON'T 5)
|
|
(PERHAPS I WILL 5 IN GOOD TIME ".")
|
|
(SHOULD YOU 5 YOURSELF)
|
|
(YOU WANT ME TO 5 ".")
|
|
WHAT)
|
|
((0 WHY CAN'T YOU 0)
|
|
(NIL)
|
|
(DO YOU THINK YOU SHOULD BE ABLE TO 5)
|
|
(DO YOU WANT TO BE ABLE TO 5)
|
|
(DO YOU BELIEVE THIS WILL HELP YOU TO 5)
|
|
(HAVE YOU ANY IDEA WHY YOU CAN'T 5)
|
|
WHAT)
|
|
WHAT))
|
|
|
|
(RPLQQ EVERYONE
|
|
PRIORITY
|
|
2
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(CAN YOU THINK OF ANYONE IN PARTICULAR)
|
|
(WHO"," FOR EXAMPLE)
|
|
(YOU ARE THINKING OF A VERY SPECIAL PERSON ".")
|
|
(YOU HAVE A PARTICULAR PERSON IN MIND"," DON'T YOU))))
|
|
|
|
(RPLQQ EVERYBODY
|
|
PRIORITY
|
|
2
|
|
RULES
|
|
(EVERYONE))
|
|
|
|
(RPLQQ NOBODY
|
|
PRIORITY
|
|
2
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(SURELY SOMEONE"...")
|
|
(PERHAPS YOU JUST DON'T KNOW OF ANYONE "."))))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-16of21
|
|
|
|
;;; /SCRIPT/ 32 JULY 1969 1008:27
|
|
|
|
(RPLQQ NOONE
|
|
PRIORITY
|
|
2
|
|
RULES
|
|
(NOBODY))
|
|
|
|
(RPLQQ ALWAYS
|
|
PRIORITY
|
|
1
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(CAN YOU THINK OF A SPECIFIC EXAMPLE)
|
|
(WHEN)
|
|
(WHAT INCIDENT ARE YOU THINKING OF)
|
|
(REALLY"," ALWAYS))))
|
|
|
|
(RPLQQ LIKE
|
|
RULES
|
|
(((0 (AM IS ARE WAS)
|
|
0
|
|
LIKE
|
|
0)
|
|
(NIL)
|
|
DIT))
|
|
EMOTION
|
|
T
|
|
PRIORITY
|
|
3)
|
|
|
|
(RPLQQ DIT
|
|
RULES
|
|
(((0)
|
|
(NIL)
|
|
(IN WHAT WAY)
|
|
(WHAT RESEMBLANCE DO YOU SEE)
|
|
(WHAT DOES THAT SIMILARITY SUGGEST TO YOU)
|
|
(WHAT OTHER CONNECTIONS DO YOU SEE)
|
|
(WHAT IS THE CONNECTION"," DO YOU SUPPOSE)
|
|
(HOW))))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-17of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:17
|
|
|
|
(RPLQQ OH
|
|
PRIORITY
|
|
10
|
|
RULES
|
|
(((0 YOUR OH YOUR 0)
|
|
(NIL)
|
|
(PRE (1 MY-OH-MY 5)
|
|
NEWKEY))
|
|
((0 OH YOUR 0)
|
|
(NIL)
|
|
(PRE (1 OH-MY 4)
|
|
NEWKEY))))
|
|
|
|
(RPLQQ EVERY
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((0 EVERY (ONE BODY)
|
|
0)
|
|
(NIL)
|
|
EVERYONE)
|
|
((0 EVERY TIME 0)
|
|
(NIL)
|
|
ALWAYS)))
|
|
|
|
(RPLQQ DO
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(((DO I 0)
|
|
(NIL)
|
|
(PRE (I 3)
|
|
YOU)
|
|
XXWHAT)
|
|
((DO YOU 0)
|
|
(NIL)
|
|
(PRE (YOU 3)
|
|
I)
|
|
XXWHAT)))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-18of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:18
|
|
|
|
(RPLQQ GIRLS
|
|
PRIORITY
|
|
3
|
|
RULES
|
|
(((0 (GIRLS WOMEN)
|
|
0)
|
|
(NIL)
|
|
(PRE (1 2 S 3)
|
|
BOY))))
|
|
|
|
(RPLQQ WOMEN
|
|
PRIORITY
|
|
3
|
|
RULES
|
|
(GIRLS))
|
|
|
|
(RPLQQ BOY
|
|
PRIORITY
|
|
3
|
|
PERSON
|
|
T
|
|
RULES
|
|
(((0 (NIL PERSON)
|
|
FRIEND
|
|
0)
|
|
(NIL)
|
|
(I WOULD LIKE TO MEET YOUR 2 FRIEND ".")
|
|
(PRE (1 FRIEND 4)
|
|
FRIEND)
|
|
(SUPPOSE THE FRIEND WERE NOT A 2 "."))
|
|
((0 (NIL PERSON)
|
|
0)
|
|
(NIL)
|
|
(WHY DO YOU SAY A 2)
|
|
(WHAT 2 ARE YOU THINKING OF)
|
|
NEWKEY)
|
|
((0 (NIL PERSON)
|
|
S
|
|
0)
|
|
(NIL)
|
|
(WHAT GROUP OF 2 ARE YOU THINKING OF)
|
|
(I EXPECTED THAT YOU WOULD WANT TO TALK ABOUT 2 ".")
|
|
(DO YOU KNOW MANY 2))))
|
|
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-19of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:19
|
|
|
|
(RPLQQ GIRL
|
|
PRIORITY
|
|
3
|
|
PERSON
|
|
T
|
|
RULES
|
|
(BOY))
|
|
|
|
(RPLQQ MAN
|
|
PRIORITY
|
|
3
|
|
PERSON
|
|
T
|
|
RULES
|
|
(BOY))
|
|
|
|
(RPLQQ WOMAN
|
|
PRIORITY
|
|
3
|
|
PERSON
|
|
T
|
|
RULES
|
|
(BOY))
|
|
|
|
(RPLQQ SEXY
|
|
PRIORITY
|
|
5
|
|
RULES
|
|
(SEX))
|
|
|
|
(RPLQQ SEXUAL
|
|
PRIORITY
|
|
5
|
|
RULES
|
|
(SEX))
|
|
|
|
(RPLQQ SEX
|
|
PRIORITY
|
|
5
|
|
;;; Eliza-19690731-SCRIPTp1-20of21
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27 PAGE 1:20
|
|
|
|
RULES
|
|
(((0 YOU 0 SEX 0)
|
|
(NIL)
|
|
(ARE YOU SURE YOU REALLY 3 IT 5)
|
|
(DO YOU REALLY WANT TO DISCUSS SEX)
|
|
(PERHAPS YOU ARE WORRIED THAT YOU 3 IT 5)
|
|
NEWKEY)
|
|
((0)
|
|
(NIL)
|
|
(WHAT ARE YOUR REAL FEELINGS ABOUT SEX)
|
|
(DO YOU EVER DREAM ABOUT SEX)
|
|
(WHY DO YOU MENTION SEX)
|
|
(COULD SEX BE PART OF YOUR PROBLEM)
|
|
NEWKEY))
|
|
MEMR
|
|
(((0 YOU 0 SEX 0)
|
|
(NIL)
|
|
(EARLIER YOU SAID YOU 3 4 5 ".")
|
|
(TELL ME AGAIN WHY YOU 3 4 5 ".")
|
|
(DO YOU SAY THAT BECAUSE YOU 3 4 5))))
|
|
|
|
(RPLQQ FRIENDLY
|
|
PRIORITY
|
|
0
|
|
RULES
|
|
(FRIEND))
|
|
|
|
(RPLQQ FRIEND
|
|
PRIORITY
|
|
1
|
|
RULES
|
|
(((0 YOUR FRIEND 0)
|
|
(NIL)
|
|
(WHAT ELSE CAN YOU TELL ME ABOUT YOUR FRIEND)
|
|
(WHAT MIGHT YOUR FRIENDS HAVE TO DO WITH YOUR PROBLEM))
|
|
((0)
|
|
(NIL)
|
|
(DO YOU THINK FRIENDS ARE IMPORTANT)
|
|
(WHAT DO YOU THINK ABOUT YOUR FRIENDS))))
|
|
|
|
(RPLQQ CRY
|
|
PRIORITY
|
|
2
|
|
RULES
|
|
(LAUGH))
|
|
|
|
;;; Eliza-19690731-SCRIPTp1-21of21.lisp
|
|
|
|
;;; /SCRIPT/ 31 JULY 1969 1008:27
|
|
|
|
(RPLQQ LAUGH
|
|
PRIORITY
|
|
2
|
|
RULES
|
|
(((0 (LAUGH CRY)
|
|
0)
|
|
(NIL)
|
|
(WHAT WOULD MAKE YOU 2)
|
|
(REALLY 2)
|
|
(WOULD YOU LIKE TO LAUGH)
|
|
NEWKEY)))
|
|
|
|
(RPLQQ LOVE
|
|
EMOTION
|
|
T)
|
|
|
|
(RPLQQ HATE
|
|
EMOTION
|
|
T)
|
|
|
|
(RPLQQ DISLIKE
|
|
EMOTION
|
|
NIL)
|
|
;;; STOP
|
|
;;; 'L
|
|
|
|
;;; ===================================================================================
|
|
;;; | Eliza72-specific header |
|
|
;;; ===================================================================================
|
|
;;; already in bbn readtable
|
|
(defpackage :eliza72
|
|
(:nicknames :e72)
|
|
(:shadow :tconc)
|
|
(:export :doctor)
|
|
(:use :bl))
|
|
|
|
(in-package :e72)
|
|
|
|
(defun ratom ()
|
|
(let ((*readtable* *patient-readtable*)
|
|
(*package* (find-package :e72)))
|
|
(read)))
|
|
|
|
(defun tconc (a b) (bl:tconc b a))
|
|
|
|
;;; Globals (transferred from the tail of the file)
|
|
|
|
;; We repeat these to duplicate the symbols,
|
|
;; e69 versions and e72 versions, to make equality work.
|
|
(defparameter TRMLIS (quote (|!| |?| |.|)))
|
|
(defparameter PCTLIS (quote (|,| |;| |(| |)| |:|)))
|
|
(defparameter RUBOUT (quote |#|))
|
|
|
|
;;; Specials:
|
|
|
|
(defvar SENTENCE nil)
|
|
(defvar KEYSTACK nil)
|
|
(defvar MEMSTACK nil)
|
|
(defvar FLIPFLOP nil)
|
|
(defvar PARSELIST nil)
|
|
(defvar WDLIST nil)
|
|
|
|
;;; ===================================================================================
|
|
;;; | 1972 DOCTOR |
|
|
;;; ===================================================================================
|
|
|
|
;;; eliza-19720424-doctorp1-00-06
|
|
|
|
;;; <source8>doctor.;2 TUE 13-JUN-72 10:16AM PAGE 1:1
|
|
|
|
(PROGN (LISPXPRIN1 (QUOTE "FILE CREATED ")
|
|
T)
|
|
(LISPXPRIN1 (QUOTE "13-JUN-72 4:20:07")
|
|
T)
|
|
(LISPXTERPRI T))
|
|
(DEFINEQ
|
|
|
|
(DOCTOR
|
|
[LAMBDA (FLG)
|
|
(COND
|
|
((NULL FLG)
|
|
(SETQ MEMSTACK NIL)))
|
|
(PROG (KEYSTACK SENTENCE TIMON)
|
|
;; (SETSEPR (QUOTE (% %
|
|
;; %
|
|
;; )))
|
|
;; (SETBRK (QUOTE (%. , ? ! - %( %) %; %: %#)))
|
|
;; (CONTROL T)
|
|
(SETQ FLIPFLOP 0)
|
|
(SETQ TIMON (CLOCK))
|
|
(RECONSTRUCT (QUOTE (TELL ME YOUR PROBLEMS, PLEASE TERMINATE
|
|
INPUT WITH A PERIOD OR A QUESTION
|
|
MARK
|
|
%.))
|
|
T)
|
|
(SETNONE)
|
|
A (PRIN1 (QUOTE "
|
|
*"))
|
|
(COND
|
|
((NULL (SETQ SENTENCE (MAKESENTENCE)))
|
|
(GO A)))
|
|
(SETQ KEYSTACK (CDR SENTENCE))
|
|
(SETQ SENTENCE (CAR SENTENCE))
|
|
[COND
|
|
((EQUAL SENTENCE (QUOTE (GOODBYE)))
|
|
|
|
#| (* Rate computed at $6 aminute, or $1 per 10
|
|
seconds, CLOCK returns value in milliseconds.) |#
|
|
|
|
;;; doctorp1-01of06
|
|
|
|
;;; eliza-page-19720424-doctorp1-01of-06
|
|
|
|
;;; <source8>doctor.;2 TUE 13-JUN-72 10:16AM PAGE 1:1
|
|
|
|
(RETURN
|
|
(RECONSTRUCT
|
|
[APPEND (QUOTE (IT'S BEEN MY PLEASURE, THAT'S))
|
|
(CONS (PACK (LIST (QUOTE $)
|
|
(QUOTIENT (SETQ TIMON
|
|
(IDIFFERENCE
|
|
(CLOCK)
|
|
TIMON))
|
|
10000)
|
|
(QUOTE %.)
|
|
(QUOTIENT (REMAINDER TIMON
|
|
10000)
|
|
100)))
|
|
(QUOTE (PLEASE %.]
|
|
T]
|
|
(ANALYZE)
|
|
(GO A])
|
|
|
|
(MAKESENTENCE
|
|
[LAMBDA NIL
|
|
(PROG (FLAG WORD SENTENCE KEYSTACK)
|
|
A1 (SETQ KEYSTACK (CONS))
|
|
(SETQ SENTENCE (CONS))
|
|
A (SETQ WORD (RATOM))
|
|
[COND
|
|
((NUMBERP WORD)
|
|
(SETQ WORD (PACK (LIST (QUOTE *)
|
|
WORD]
|
|
[COND
|
|
((EQ WORD RUBOUT)
|
|
(RETURN (TERPRI)))
|
|
((MEMBER WORD TRMLIS) ;; was MEMB non MEMBER
|
|
(TERPRI)
|
|
(RETURN (RPLACD SENTENCE KEYSTACK)))
|
|
((MEMBER WORD PCTLIS) ;; was MEMB
|
|
(COND
|
|
((NULL (CDR KEYSTACK))
|
|
(GO A1))
|
|
((NULL (SETQ FLAG (MAKESENTENCE)))
|
|
(RETURN))
|
|
([AND (CDDR FLAG)
|
|
(NOT (IGREATERP (GET (CDR KEYSTACK)
|
|
(QUOTE PRIORITY))
|
|
(GET (CDDR FLAG)
|
|
(QUOTE PRIORITY]
|
|
(RETURN FLAG))
|
|
(T (RETURN (RPLACD SENTENCE KEYSTACK]
|
|
(TCONC SENTENCE (COND
|
|
((GETP WORD (QUOTE TRANSLATION)))
|
|
(WORD)))
|
|
|
|
;;; doctorp1-02of06
|
|
|
|
;;; <SOURCES>DOCTOR.;2 TUE 13-JUN-72 10:16AM PAGE 1:2
|
|
|
|
[COND
|
|
((SETQ FLAG (GETP WORD (QUOTE MEMR)))
|
|
(SETQ MEMSTACK (APPEND FLAG MEMSTACK]
|
|
(COND
|
|
[[AND (SETQ FLAG (GETP WORD (QUOTE PRIORITY)))
|
|
(CDR KEYSTACK)
|
|
(IGREATERP FLAG (GET (CDR KEYSTACK)
|
|
(QUOTE PRIORITY]
|
|
(RPLACD KEYSTACK (CONS (CDR KEYSTACK)
|
|
(CDR WORD]
|
|
(FLAG (BCONC (CDR WORD)
|
|
KEYSTACK)))
|
|
(GO A])
|
|
|
|
(ANALYZE
|
|
[LAMBDA NIL
|
|
(PROG (RULES PARSELIST CR)
|
|
(BCONC [GETP (QUOTE NONE)
|
|
(COND
|
|
([ZEROP (SETQ FLIPFLOP (IPLUS 2 (IMINUS
|
|
FLIPFLOP]
|
|
(QUOTE MEM))
|
|
((QUOTE LASTRESORT]
|
|
KEYSTACK)
|
|
(SETQ KEYSTACK (CDR KEYSTACK))
|
|
A (SETQ RULES (GET KEYSTACK (QUOTE RULES)))
|
|
B (COND
|
|
((OR (NULL RULES)
|
|
(EQ (CAR RULES)
|
|
(QUOTE NEWKEY)))
|
|
(SETQ KEYSTACK (CAR KEYSTACK))
|
|
(GO A))
|
|
((NLISTP (CAR RULES))
|
|
(SETQ RULES (GETP (CAR RULES)
|
|
(QUOTE RULES)))
|
|
(GO B)))
|
|
(SETQ PARSELIST (CONS NIL NIL))
|
|
(COND ((NOT (TEST (CAAR RULES)
|
|
SENTENCE))
|
|
(SETQ RULES (CDR RULES)))
|
|
[(NLISTP (SETQ CR (CAR (SETQ RULES (CAR (ADVANCE RULES]
|
|
((EQ (CAR CR)
|
|
(QUOTE PRE))
|
|
(SETQ SENTENCE (RECONSTRUCT (CADR CR)))
|
|
(SETQ RULES (CDDR CR)))
|
|
(T (RECONSTRUCT CR T)
|
|
(MEMORY)
|
|
(RETURN)))
|
|
(GO B])
|
|
|
|
;;; Eliza-19720424-DOCTORp1-03of06
|
|
|
|
;;; <SOURCES>DOCTOR.;2 TUE 13-JUN-72 10:16AM PAGE 1:3
|
|
|
|
(TEST
|
|
[LAMBDA (D S)
|
|
(PROG (CD PSV)
|
|
(SETQ PSV (CDR PARSELIST))
|
|
LP (COND
|
|
[(NULL D)
|
|
(COND
|
|
(S (GO RN))
|
|
(T (SETQ PARSELIST (CAR PARSELIST))
|
|
(RETURN T]
|
|
((EQ 0 (SETQ CD (CAR D)))
|
|
(GO T0))
|
|
((NULL S)
|
|
(GO RN))
|
|
[(NUMBERP CD)
|
|
(TCONC PARSELIST S)
|
|
(COND
|
|
((SETQ S (NTH S CD))
|
|
(GO T3))
|
|
(T (GO RN]
|
|
[(NLISTP CD)
|
|
(COND
|
|
((EQ CD (CAR S)))
|
|
(T (GO RN]
|
|
[(CAR CD)
|
|
(COND
|
|
((MEMBER (CAR S)
|
|
CD))
|
|
(T (GO RN]
|
|
((TEST4 (CAR S)
|
|
(CDR CD)))
|
|
(T (GO RN)))
|
|
(TCONC PARSELIST S)
|
|
T3 (SETQ S (CDR S))
|
|
(SETQ D (CDR D))
|
|
(GO LP)
|
|
T0 (TCONC PARSELIST S)
|
|
(COND
|
|
((NULL (SETQ D (CDR D)))
|
|
(SETQ PARSELIST (CAR PARSELIST))
|
|
(RETURN T)))
|
|
T1 (COND
|
|
((TEST D S)
|
|
(RETURN T))
|
|
((SETQ S (CDR S))
|
|
(GO T1)))
|
|
RN [RPLACD PARSELIST (COND
|
|
(PSV (RPLACD PSV NIL]
|
|
(RETURN NIL])
|
|
|
|
;;; doctorp1-04of06
|
|
|
|
;;; <SOURCES>DOCTOR.;2 TUE 13-JUN-72 10:16AM PAGE 1:4
|
|
|
|
(TEST4
|
|
[LAMBDA (CS L)
|
|
(PROG NIL
|
|
LP (COND
|
|
((GETP CS (CAR L))
|
|
(RETURN T))
|
|
((SETQ L (CDR L))
|
|
(GO LP)))
|
|
(RETURN NIL])
|
|
|
|
(ADVANCE
|
|
[LAMBDA (RULES)
|
|
(RPLACA (CDAR RULES)
|
|
(COND
|
|
((NULL (CDADAR RULES))
|
|
(CDDAR RULES))
|
|
((CDADAR RULES])
|
|
|
|
(RECONSTRUCT
|
|
[LAMBDA (RULE PF)
|
|
(PROG (SENT CR V1 V2 TPF QMF)
|
|
[COND
|
|
((NULL PF)
|
|
(SETQ SENT (CONS]
|
|
LP (COND
|
|
((NULL RULE)
|
|
(COND
|
|
(PF [COND
|
|
((NULL QMF)
|
|
(PRIN1 (QUOTE ?]
|
|
(TERPRI)))
|
|
(RETURN (CAR SENT)))
|
|
((NUMBERP (SETQ CR (CAR RULE)))
|
|
(GO T1))
|
|
[PF (COND
|
|
((MEMBER CR TRMLIS)
|
|
(PRIN1 CR)
|
|
(SETQ QMF T))
|
|
(T (COND
|
|
(TPF (SPACES 1))
|
|
(T (TERPRI)
|
|
(SETQ TPF T)))
|
|
(PRIN1 CR]
|
|
(T (TCONC SENT CR)))
|
|
T3 (SETQ RULE (CDR RULE))
|
|
(GO LP)
|
|
T1 [SETQ V1 (CAR (SETQ CR (NTH PARSELIST CR]
|
|
(SETQ V2 (CADR CR))
|
|
|
|
;;; doctorp1-05of06
|
|
|
|
;;; <SOURCES>DOCTOR.;2 TUE 13-JUN-72 10:16AM PAGE 1:5
|
|
|
|
T2 [COND
|
|
((EQ V1 V2)
|
|
(GO T3))
|
|
(PF (COND
|
|
(TPF (SPACES 1))
|
|
(T (TERPRI)
|
|
(SETQ TPF T)))
|
|
(PRIN1 (CAR V1)))
|
|
(T (TCONC SENT (CAR V1]
|
|
(SETQ V1 (CDR V1))
|
|
(GO T2])
|
|
|
|
(MEMORY
|
|
[LAMBDA NIL
|
|
(PROG (PARSELIST X)
|
|
LP (COND
|
|
((NULL MEMSTACK)
|
|
(RETURN)))
|
|
(SETQ PARSELIST (CONS NIL NIL))
|
|
[COND
|
|
((TEST (CAAR MEMSTACK)
|
|
SENTENCE)
|
|
(RPLACA [SETQ X (CDAADR (GETP (QUOTE NONE)
|
|
(QUOTE MEM]
|
|
(CONS (CAR X)
|
|
(CONS (RECONSTRUCT (CAAR (ADVANCE MEMSTACK)))
|
|
(CDAR X]
|
|
(SETQ MEMSTACK (CDR MEMSTACK))
|
|
(GO LP])
|
|
|
|
(BCONC
|
|
[LAMBDA (WHAT LIST)
|
|
(COND
|
|
((NULL LIST)
|
|
(CONS (SETQ LIST (CONS NIL WHAT))
|
|
LIST))
|
|
[(NULL (CAR LIST))
|
|
(RPLACA LIST (CDR (RPLACD LIST (CONS NIL WHAT]
|
|
((RPLACA LIST (CAR (RPLACA (CAR LIST)
|
|
(RPLACA (CONS LIST WHAT)
|
|
NIL])
|
|
|
|
(RPLQQ
|
|
[NLAMBDA RPLQ
|
|
(RPLACD (CAR RPLQ)
|
|
(CDR RPLQ])
|
|
|
|
;;; doctorp1-06of06
|
|
|
|
;;; <SOURCES>DOCTOR.;2 TUE 13-JUN-72 10:16AM PAGE 1:6
|
|
|
|
(SETNONE
|
|
[LAMBDA NIL
|
|
(PROG (A)
|
|
(SETQ A (GENSYM))
|
|
(RPLACD A (GETP (QUOTE NONE)
|
|
(QUOTE LASTRESORT)))
|
|
(PUT (QUOTE NONE)
|
|
(QUOTE MEM)
|
|
(LIST (QUOTE RULES)
|
|
(LIST (LIST (LIST 0)
|
|
(LIST NIL)
|
|
A])
|
|
)
|
|
|
|
#| Moved to 1972 header or removed
|
|
(LISPXPRINT (QUOTE DOCTORFNS)
|
|
T)
|
|
(RPAQQ DOCTORFNS
|
|
(DOCTOR MAKESENTENCE ANALYZE TEST TEST4 ADVANCE RECONSTRUCT
|
|
MEMORY BCONC RPLQQ SETNONE))
|
|
(LISPXPRINT (QUOTE DOCTORVARS)
|
|
T)
|
|
[RPAQQ DOCTORVARS (TRMLIS PCTLIS RUBOUT DOCARM
|
|
(P (ADVISE (QUOTE INTERRUPT)
|
|
DOCARM)
|
|
(GCTRP 100)
|
|
(GCGAG]
|
|
(RPAQQ TRMLIS (%. ! ?))
|
|
(RPAQQ PCTLIS (, ; %( %) :))
|
|
(RPAQQ RUBOUT #)
|
|
[RPAQQ DOCARM (COND
|
|
((EQ INTYPE 3)
|
|
(PRIN1 (QUOTE "
|
|
|
|
...EXCUSE ME FOR JUST A MINUTE.
|
|
")
|
|
T)
|
|
(RECLAIM)
|
|
(COND
|
|
((STKPOS (QUOTE MAKESENTENCE))
|
|
(PRIN1 (QUOTE
|
|
"SORRY TO HAVE INTERRUPTED YOU, PLEASE CONTINUE...
|
|
")
|
|
T))
|
|
(T (PRIN1 (QUOTE "NOW, WHERE WERE WE...OH YES,
|
|
")
|
|
T)))
|
|
(SETQ INTYPE -1]
|
|
(ADVISE (QUOTE INTERRUPT)
|
|
DOCARM)
|
|
(GCTRP 100)
|
|
(GCGAG)|#
|
|
;;;STOP
|
|
|
|
|
|
;;; ===================================================================================
|
|
;;; | 1972 SCRIPT |
|
|
;;; ===================================================================================
|
|
|
|
;;; Eliza-19720424-SCRIPTp1-00of11.lisp
|
|
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:01AM
|
|
|
|
(PROGN (LISPXPRIN1 (QUOTE "FILE CREATED ")
|
|
T)
|
|
(LISPXPRIN1 (QUOTE "22-APR-72 23:26:05")
|
|
T)
|
|
(LISPXTERPRI T))
|
|
(SETQQ WDLIST
|
|
(SORRY DONT CANT WONT REMEMBER IF DREAMT DREAMED DREAM DREAMS
|
|
HOW WHEN ALIKE SAME CERTAINLY FEEL THINK BELIEVE WISH
|
|
MY NONE PERHAPS MAYBE NAME DEUTSCH FRANCAIS SVENSKA
|
|
ITALIANO ESPANOL HELLO COMPUTER MACHINE MACHINES
|
|
COMPUTERS AM ARE YOUR WAS WERE ME YOU'RE I'M MYSELF
|
|
YOURSELF MOTHER MOM DAD FATHER SISTER BROTHER WIFE
|
|
CHILDREN I YOU XXYYZZ YES NO CAN IS WHERE WHAT XXWHAT
|
|
BECAUSE WHY EVERYONE EVERYBODY NOBODY NOONE ALWAYS LIKE
|
|
DIT OH EVERY DO GIRLS WOMEN BOY GIRL MAN WOMAN SEXY
|
|
SEXUAL SEX FRIENDLY FRIEND CRY LAUGH LOVE HATE DISLIKE))
|
|
[RPLQQ SORRY PRIORITY 2 RULES
|
|
(((0)
|
|
(NIL)
|
|
(APOLOGIES ARE NOT NECESSARY %.)
|
|
(WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE]
|
|
(RPLQQ DONT TRANSLATION DON'T)
|
|
(RPLQQ CANT TRANSLATION CAN'T)
|
|
(RPLQQ WONT TRANSLATION WON'T)
|
|
[RPLQQ REMEMBER PRIORITY 5 RULES
|
|
(((REMEMBER 0)
|
|
(NIL)
|
|
(PRE (DO I REMEMBER 2)
|
|
REMEMBER))
|
|
((YOU REMEMBER 0)
|
|
(NIL)
|
|
(DO YOU OFTEN THINK OF 3)
|
|
(WHAT ELSE DOES THINKING OF 3 BRING TO MIND)
|
|
(WHAT ELSE DO YOU REMEMBER)
|
|
(WHY DO YOU REMEMBER 3 JUST NOW)
|
|
(WHAT IN THE PRESENT SITUATION REMINDS YOU OF 3)
|
|
(WHAT IS THE CONNECTION BETWEEN ME AND 3))
|
|
((DO I REMEMBER 0)
|
|
(NIL)
|
|
(WHY DID YOU THINK I WOULD FORGET 4)
|
|
(WHY DO YOU THINK I SHOULD RECALL 4 NOW)
|
|
(WHAT ABOUT 4]
|
|
[RPLQQ IF PRIORITY 3 RULES (((0 IF 0)
|
|
(NIL)
|
|
(DO YOU THINK ITS LIKELY THAT 3)
|
|
(DO YOU WISH THAT 3)
|
|
(WHAT DO YOU THINK ABOUT 3)
|
|
(REALLY "," IF 3]
|
|
|
|
;;; Eliza-19720424-SCRIPTp1-01of11.txt
|
|
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:01AM PAGE 1:1
|
|
|
|
|
|
(RPLQQ DREAMT PRIORITY 4 RULES
|
|
(((0 YOU DREAMT 0)
|
|
(NIL)
|
|
(REALLY 4)
|
|
(HAVE YOU EVER FANTASIED 4 WHILE YOU WERE AWAKE)
|
|
(HAVE YOU DREAMT 4 BEFORE)
|
|
DREAM NEWKEY)))
|
|
(RPLQQ DREAMED TRANSLATION DREAMT PRIORITY 4 RULES (DREAMT))
|
|
(RPLQQ DREAM PRIORITY 3 RULES
|
|
(((0 YOU DREAM (OF ABOUT)
|
|
0)
|
|
(NIL)
|
|
(WHAT MIGHT 5 REPRESENT)
|
|
(WHAT DOES 5 SUGGEST TO YOU)
|
|
(HOW DOES THAT DREAM RELATE TO YOUR PROBLEM))
|
|
((0)
|
|
(NIL)
|
|
(WHAT DO YOU DREAM ABOUT)
|
|
(WHAT PERSONS APPEAR IN YOUR DREAMS)
|
|
(WHAT MAY DREAMS HAVE TO DO WITH YOUR PROBLEM)
|
|
NEWKEY)))
|
|
(RPLQQ DREAMS TRANSLATION DREAM PRIORITY 3 RULES (DREAM))
|
|
(RPLQQ HOW RULES (WHAT)
|
|
PRIORITY 0)
|
|
[RPLQQ WHEN PRIORITY 0 RULES (((WHEN (DO DID DOES WILL)
|
|
0)
|
|
(NIL)
|
|
XXWHAT)
|
|
((0)
|
|
(NIL)
|
|
(IS THERE ANY OTHER TIME)
|
|
(WHY THEN "," DO YOU SUPPOSE]
|
|
(RPLQQ ALIKE PRIORITY 10 RULES (DIT))
|
|
(RPLQQ SAME RULES (DIT)
|
|
PRIORITY 3)
|
|
(RPLQQ CERTAINLY PRIORITY 0 RULES (YES))
|
|
(RPLQQ FEEL BELIEF T)
|
|
(RPLQQ THINK BELIEF T)
|
|
(RPLQQ BELIEVE BELIEF T)
|
|
(RPLQQ WISH BELIEF T)
|
|
[RPLQQ MY MEMR
|
|
(((YOUR 2 0)
|
|
(NIL)
|
|
(LETS DISCUSS FURTHER WHY YOUR 2 3 %.)
|
|
(EARLIER YOU SAID YOUR 2 3 %.)
|
|
(BUT YOUR 2 3 %.)
|
|
(DOES THAT HAVE ANYTHING TO DO WITH THE FACT THAT YOUR 2 3))
|
|
((0 YOUR 1)
|
|
(NIL)
|
|
(WOULD YOU LIKE TO DISCUSS YOUR 3)
|
|
(PERHAPS THAT CONCERNS YOUR 3 %.)
|
|
(TELL ME MORE ABOUT YOUR 3 %.)))]
|
|
|
|
;;; Eliza-19720424-SCRIPTp1-02of11.txt
|
|
|
|
;;;ELIZA-19720424-SCRIPTP1-02OF11.TIF
|
|
;;;==================================
|
|
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:10AM PAGE 1:2
|
|
|
|
[RPLQQ MY PRIORITY 0 TRANSLATION YOUR RULES ;; There was a gap in the transcription here.
|
|
(((0 YOUR 0 (NIL FAMILY)
|
|
0)
|
|
(NIL)
|
|
(TELL ME MORE ABOUT YOUR FAMILY %.)
|
|
(WHO ELSE IN YOUR FAMILY 5)
|
|
(YOUR 4)
|
|
(WHAT ELSE COMES TO MIND WHEN YOU THINK OF YOUR 4))
|
|
((YOUR 2 0)
|
|
(NIL)
|
|
(IS IT IMPORTANT TO YOU THAT YOUR 2 3)
|
|
(DO YOU SUPPOSE ANYONE ELSE'S 2 3)
|
|
(WHAT MAKES YOU THINK YOUR 2 3)
|
|
(SUPPOSE I DIDN'T BELIEVE THAT YOUR 2 3 %.))
|
|
((0 YOUR 1)
|
|
(NIL)
|
|
(YOUR 3)
|
|
(WHY DO YOU SAY YOUR 3)
|
|
(WHO ELSE KNOWS ABOUT YOUR 3)
|
|
(WHY DO YOU MENTION YOUR 3 JUST NOW)
|
|
(WHY IS YOUR 3 IMPORTANT TO YOU)
|
|
(DO YOU OFTEN DISCUSS YOUR 3]
|
|
[RPLQQ NONE LASTRESORT
|
|
(RULES (((0)
|
|
(NIL)
|
|
(I AM NOT SURE I UNDERSTAND YOU FULLY %.)
|
|
(PLEASE GO ON %.)
|
|
(WHAT DOES THAT SUGGEST TO YOU)
|
|
(WHAT ELSE WOULD YOU LIKE TO DISCUSS)
|
|
(WHY DO YOU SAY THAT JUST NOW]
|
|
[RPLQQ PERHAPS PRIORITY 0 RULES (((0)
|
|
(NIL)
|
|
(YOU DON'T SEEM QUITE CERTAIN %.)
|
|
(WHY THE UNCERTAIN TONE)
|
|
(CAN'T YOU BE MORE POSITIVE)
|
|
(YOU AREN'T SURE)
|
|
(DON'T YOU KNOW]
|
|
(RPLQQ MAYBE PRIORITY 0 RULES (PERHAPS))
|
|
[RPLQQ NAME PRIORITY 15 RULES
|
|
(((0)
|
|
(NIL)
|
|
(I AM NOT INTERESTED IN NAMES %.)
|
|
(I'VE TOLD YOU BEFORE I DON'T CARE ABOUT NAMES - PLEASE
|
|
CONTINUE %.]
|
|
[RPLQQ DEUTSCH PRIORITY 0 RULES
|
|
(((0)
|
|
(NIL)
|
|
(I AM SORRY "," I SPEAK ONLY ENGLISH]
|
|
(RPLQQ FRANCAIS PRIORITY 0 RULES (DEUTSCH))
|
|
(RPLQQ SVENSKA PRIORITY 0 RULES (DEUTSCH))
|
|
|
|
;;; Eliza-19720424-SCRIPTp1-03of11.txt
|
|
|
|
; Eliza-19720424-SCRIPTp1-03of11.TIF
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:01AM PAGE 1:3
|
|
|
|
|
|
(RPLQQ ITALIANO PRIORITY 0 RULES (DEUTSCH))
|
|
(RPLQQ ESPANOL PRIORITY 0 RULES (DEUTSCH))
|
|
[RPLQQ HELLO PRIORITY 0 RULES (((0)
|
|
(NIL)
|
|
(HOW DO YOU DO %.]
|
|
[RPLQQ COMPUTER PRIORITY 0 RULES
|
|
(((0)
|
|
(NIL)
|
|
(DO COMPUTERS WORRY YOU)
|
|
(WHY DO YOU MENTION COMPUTERS)
|
|
(WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM)
|
|
(DON'T YOU THINK COMPUTERS CAN HELP PEOPLE]
|
|
(RPLQQ MACHINE PRIORITY 0 RULES (COMPUTER))
|
|
(RPLQQ MACHINES PRIORITY 0 RULES (COMPUTER))
|
|
(RPLQQ COMPUTERS PRIORITY 0 RULES (COMPUTER))
|
|
[RPLQQ AM PRIORITY 0 TRANSLATION ARE RULES
|
|
(((ARE YOU 0)
|
|
(NIL)
|
|
(DO YOU BELIEVE YOU ARE 3)
|
|
(WOULD YOU WANT TO BE 3)
|
|
(YOU WISH I WOULD TELL YOU YOU ARE 3 %.)
|
|
(WHAT WOULD IT MEAN IF YOU WERE 3)
|
|
XXWHAT)
|
|
((0)
|
|
(NIL)
|
|
(WHY DO YOU SAY 'AM')
|
|
(I DON'T UNDERSTAND THAT]
|
|
[RPLQQ ARE PRIORITY 0 RULES
|
|
(((THERE (ARE IS)
|
|
(NO NOT)
|
|
0)
|
|
(NIL)
|
|
(WHAT IF THERE WERE 4)
|
|
(DID YOU THINK THERE MIGHT BE 4)
|
|
(PRE (THERE 2 4)
|
|
ARE))
|
|
((THERE (ARE IS)
|
|
0)
|
|
(NIL)
|
|
(2 THERE REALLY 3)
|
|
(WHY 2 THERE 3)
|
|
(HOW 3 THE 4 RELATED TO YOU))
|
|
((ARE I 0)
|
|
(NIL)
|
|
(WHY ARE YOU INTERESTED IN WHETHER I AM 3 OR NOT)
|
|
(WOULD YOU PREFER IF I WEREN'T 3)
|
|
(PERHAPS I AM 3 IN YOUR FANTASIES %.)
|
|
(DO YOU SOMETIMES THINK I AM 3)
|
|
XXWHAT)
|
|
((ARE 0)
|
|
|
|
|
|
;;; Eliza-19720424-SCRIPTp1-04of11.txt
|
|
|
|
;;; transcribed from Eliza-19720424-SCRIPTp1-04of11
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:01AM PAGE 1:4
|
|
|
|
(NIL)
|
|
XXWHAT)
|
|
((0 1 (ARE IS)
|
|
NOT 0)
|
|
(NIL)
|
|
(POSSIBLY THAT IS FOR THE BETTER %.)
|
|
(WHAT IF 2 WERE 5)
|
|
(WHAT DO YOU REALLY KNOW ABOUT 2))
|
|
((0 (ARE IS)
|
|
0)
|
|
(NIL)
|
|
(SUPPOSE 1 WERE NOT 3 %.)
|
|
(POSSIBLY 1 REALLY 2 NOT 3 %.)
|
|
(TELL ME MORE ABOUT 1 %.)
|
|
(DID YOU THINK 1 MIGHT NOT BE 3)
|
|
(1 PERHAPS 2 3 %.]
|
|
[RPLQQ YOUR PRIORITY 0 TRANSLATION MY RULES
|
|
(((0 MY 1)
|
|
(NIL)
|
|
(WHY ARE YOU CONCERNED OVER MY 3)
|
|
(WHAT ABOUT YOUR OWN 3)
|
|
(ARE YOU WORRIED ABOUT SOMEONE ELSES 3)
|
|
(REALLY "," MY 3))
|
|
((MY 0)
|
|
(NIL)
|
|
(PERHAPS YOUR OWN 2 %.)
|
|
(ARE YOU WORRIED THAT MY 2]
|
|
[RPLQQ WAS PRIORITY 2 RULES
|
|
(((WAS YOU 0)
|
|
(NIL)
|
|
(WHAT IF YOU WERE 3)
|
|
(DO YOU THINK YOU WERE 3)
|
|
(WERE YOU 3)
|
|
(WHAT WOULD IT MEAN IF YOU WERE 3)
|
|
XXWHAT)
|
|
((YOU WAS 0)
|
|
(NIL)
|
|
(WERE YOU REALLY)
|
|
(WHY DO YOU TELL ME YOU WERE 3 NOW)
|
|
(PERHAPS I ALREADY KNEW YOU WERE 3 %.))
|
|
((WAS I 0)
|
|
(NIL)
|
|
(WOULD YOU LIKE TO BELIEVE I WAS 3)
|
|
(WHAT SUGGESTS THAT I WAS 3)
|
|
(WHAT DO YOU THINK)
|
|
(PERHAPS I WAS 3 %.)
|
|
(WHAT IF I HAD BEEN 3]
|
|
(RPLQQ WERE PRIORITY 0 TRANSLATION WAS RULES (WAS))
|
|
(RPLQQ ME TRANSLATION YOU)
|
|
|
|
; Eliza-19720424-SCRIPTp1-05of11
|
|
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:01AM PAGE 1:5
|
|
|
|
|
|
[RPLQQ YOU'RE PRIORITY 0 TRANSLATION I'M RULES
|
|
(((0 I'M 0)
|
|
(NIL)
|
|
(PRE (I ARE 3)
|
|
YOU]
|
|
[RPLQQ I'M PRIORITY 0 TRANSLATION YOU'RE RULES
|
|
(((0 YOU'RE 0)
|
|
(NIL)
|
|
(PRE (YOU ARE 3)
|
|
I]
|
|
(RPLQQ MYSELF TRANSLATION YOURSELF)
|
|
(RPLQQ YOURSELF TRANSLATION MYSELF)
|
|
(RPLQQ MOTHER FAMILY T)
|
|
(RPLQQ MOM TRANSLATION MOTHER FAMILY T)
|
|
(RPLQQ DAD TRANSLATION FATHER FAMILY T)
|
|
(RPLQQ FATHER FAMILY T)
|
|
(RPLQQ SISTER FAMILY T)
|
|
(RPLQQ BROTHER FAMILY T)
|
|
(RPLQQ WIFE FAMILY T)
|
|
(RPLQQ CHILDREN FAMILY T)
|
|
[RPLQQ I PRIORITY 0 TRANSLATION YOU RULES
|
|
(((0 YOU (WANT NEED)
|
|
0)
|
|
(NIL)
|
|
(WHAT WOULD IT MEAN TO YOU IF YOU GOT 4)
|
|
(WHY DO YOU WANT 4)
|
|
(WHAT WOULD GETTING 4 MEAN TO YOU))
|
|
((0 YOU ARE 0 (SAD UNHAPPY DEPRESSED SICK ILL)
|
|
0)
|
|
(NIL)
|
|
(I AM SORRY TO HEAR YOU ARE 5 %.)
|
|
(DO YOU THINK COMING HERE WILL HELP YOU NOT TO BE 5)
|
|
(CAN YOU EXPLAIN WHAT MADE YOU 5))
|
|
((0 YOU ARE 0 (HAPPY ELATED GLAD BETTER)
|
|
0)
|
|
(NIL)
|
|
(HOW HAVE I HELPED YOU TO BE 5)
|
|
(HAS YOUR TREATMENT MADE YOU 5)
|
|
(WHAT MAKES YOU 5 JUST NOW))
|
|
((0 YOU (NIL BELIEF)
|
|
YOU 0)
|
|
(NIL)
|
|
(DO YOU REALLY THINK SO)
|
|
(BUT YOU ARE NOT SURE YOU 5)
|
|
(DO YOU REALLY DOUBT YOU 5))
|
|
((0 YOU 0 (NIL BELIEF)
|
|
0 I 0)
|
|
(NIL)
|
|
(PRE (6 7)
|
|
YOU))
|
|
|
|
; Eliza-19720424-SCRIPTp1-06of11
|
|
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:01AM PAGE 1:6
|
|
|
|
; Note: oddly, the "0 YOU 1 O" from the 1969 version is still here...
|
|
|
|
((0 YOU ARE 0)
|
|
(NIL)
|
|
(IS IT BECAUSE YOU ARE 4 THAT YOU CAME TO ME)
|
|
(HOW LONG HAVE YOU BEEN 4)
|
|
(DO YOU BELIEVE IT NORMAL TO BE 4)
|
|
(DO YOU ENJOY BEING 4))
|
|
((0 YOU (CAN'T CANNOT)
|
|
0)
|
|
(NIL)
|
|
(HOW DO YOU KNOW YOU CAN'T 4)
|
|
(HAVE YOU TRIED)
|
|
(PERHAPS YOU COULD 4 NOW %.)
|
|
(DO YOU REALLY WANT TO BE ABLE TO 4))
|
|
((0 YOU (DON'T WON'T)
|
|
0)
|
|
(NIL)
|
|
(DON'T YOU REALLY 4)
|
|
(WHY DON'T YOU 4)
|
|
(DO YOU WISH YOU DID 4)
|
|
(DOES THAT TROUBLE YOU))
|
|
((0 YOU FEEL 0)
|
|
(NIL)
|
|
(TELL ME MORE ABOUT SUCH FEELINGS %.)
|
|
(DO YOU OFTEN FEEL 4)
|
|
(DO YOU ENJOY FEELING 4)
|
|
(OF WHAT DOES FEELING 4 REMIND YOU))
|
|
((YOU 0 I)
|
|
(NIL)
|
|
(PERHAPS IN YOUR FANTASY WE 2 EACH OTHER %.)
|
|
(DO YOU WISH TO 2 ME)
|
|
(YOU SEEM TO NEED TO 2 ME %.)
|
|
(DO YOU 2 ANYONE ELSE))
|
|
((0 YOU (NIL EMOTION)
|
|
0)
|
|
(NIL)
|
|
(WHAT ELSE DO YOU 3)
|
|
(TELL ME MORE ABOUT 4 %.)
|
|
(WHY DO YOU 3 4)
|
|
(I DOUBT THAT YOU REALLY 3 4 %.))
|
|
((0 YOU 1 O)
|
|
(NIL)
|
|
(YOU SAY 2 3 4)
|
|
(CAN YOU ELABORATE ON THAT)
|
|
(DO YOU SAY 2 3 4 FOR SOME SPECIAL REASON)
|
|
(TELL ME MORE ABOUT YOURSELF)
|
|
(OH? 2 3 4)
|
|
(THAT'S QUITE INTERESTING %.)))
|
|
MEMR
|
|
(((0 YOU ARE 0)
|
|
(NIL)
|
|
(ARE YOU STILL 4)
|
|
(EARLIER YOU SAID YOU WERE 4 %.)
|
|
(MAYBE NOW WE CAN DISCUSS WHY YOU ARE 4 %.)
|
|
(DID YOU TELL ME YOU WERE 4]
|
|
|
|
;;; Eliza-19720424-SCRIPTp1-07of11.txt
|
|
|
|
[RPLQQ YOU PRIORITY 0 TRANSLATION I RULES
|
|
(((0 I REMIND YOU OF 0)
|
|
(NIL)
|
|
DIT)
|
|
((0 I ARE 0)
|
|
(NIL)
|
|
(WHAT MAKES YOU THINK I AM 4)
|
|
(DOES IT PLEASE YOU TO BELIEVE I AM 4)
|
|
(PERHAPS YOU WOULD LIKE TO BE 4 %.)
|
|
(DO YOU SOMETIMES WISH YOU WERE 4))
|
|
((0 I 0 YOU)
|
|
(NIL)
|
|
(WHY DO YOU THINK I 3 YOU)
|
|
(YOU LIKE TO THINK I 3 YOU - DON'T YOU)
|
|
(WHAT MAKES YOU THINK I 3 YOU)
|
|
(REALLY? I 3 YOU)
|
|
(DO YOU WISH TO BELIEVE I 3 YOU)
|
|
(SUPPOSE I DID 3 YOU - WHAT WOULD THAT MEAN)
|
|
(DOES SOMEONE ELSE BELIEVE I 3 YOU))
|
|
((0 I 1 0)
|
|
(NIL)
|
|
(SUPPOSE YOU 3 4 %.)
|
|
(OH? I 3 4)
|
|
(WHAT MAKES YOU THINK I 3 4)
|
|
(WHO ARE YOU REALLY TALKING ABOUT]
|
|
[RPLQQ XXYYZZ RULES (((0)
|
|
(NIL)
|
|
(IS THERE SOMETHING BOTHERING YOU)
|
|
(CAN YOU BE MORE INFORMATIVE)
|
|
(PERHAPS YOU'D RATHER TALK ABOUT SOMETHING ELSE %.)
|
|
(PLEASE TELL ME MORE %.]
|
|
[RPLQQ YES PRIORITY -1 RULES (((0)
|
|
(NIL)
|
|
XXYYZZ
|
|
(WHY ARE YOU SO SURE)
|
|
(I SEE %.)
|
|
(I UNDERSTAND %.]
|
|
[RPLQQ NO PRIORITY -1 RULES (((0 NO (BODY ONE)
|
|
0)
|
|
(NIL)
|
|
NOBODY)
|
|
((0)
|
|
(NIL)
|
|
XXYYZZ
|
|
(VERY WELL %.)
|
|
(WHY NOT)
|
|
(WHY 'NO']
|
|
|
|
;;; Eliza-19720424-SCRIPTp1-08of11.txt
|
|
|
|
; Eliza-19720424-SCRIPTp1-08of11.TIF
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:01AM PAGE 1:8
|
|
|
|
|
|
(RPLQQ CAN PRIORITY 0 RULES
|
|
(((CAN I 0)
|
|
(NIL)
|
|
(YOU BELIEVE I CAN 3 DON'T YOU)
|
|
XXWHAT
|
|
(YOU WANT ME TO BE ABLE TO 3 %.)
|
|
(PERHAPS YOU WOULD LIKE TO BE ABLE TO 3 YOURSELF %.))
|
|
((CAN YOU 0)
|
|
(NIL)
|
|
(WHETHER OR NOT YOU CAN 3 DEPENDS ON YOU MORE THAN ON ME %.)
|
|
(DO YOU WANT TO BE ABLE TO 3)
|
|
(PERHAPS YOU DON'T WANT TO 3 %.)
|
|
XXWHAT)))
|
|
(RPLQQ IS PRIORITY 0 RULES (((IS 0)
|
|
(NIL)
|
|
XXWHAT)
|
|
ARE))
|
|
(RPLQQ WHERE PRIORITY 0 RULES (WHAT))
|
|
(RPLQQ WHAT PRIORITY 0 RULES ((((HOW WHERE WHAT WHY)
|
|
0)
|
|
(NIL)
|
|
XXWHAT)))
|
|
[RPLQQ XXWHAT RULES (((0)
|
|
(NIL)
|
|
(WHY DO YOU ASK)
|
|
(WHY DOES THAT QUESTION INTEREST YOU)
|
|
(WHY ARE SUCH QUESTIONS ON YOUR MIND)
|
|
(WHAT ANSWER WOULD PLEASE YOU MOST)
|
|
(WHAT DO YOU THINK)
|
|
(WHEN HAVE YOU ASKED SUCH QUESTIONS BEFORE)
|
|
(WHO ELSE HAVE YOU ASKED]
|
|
[RPLQQ BECAUSE PRIORITY 0 RULES
|
|
(((0)
|
|
(NIL)
|
|
(IS THAT THE REAL REASON)
|
|
(I SEE %.)
|
|
(DON'T ANY OTHER REASONS COME TO MIND)
|
|
(DOES THAT REASON SEEM TO EXPLAIN ANYTHING ELSE)
|
|
(AND WHAT DOES THAT SUGGEST)
|
|
(WHAT OTHER REASONS MIGHT THERE BE]
|
|
(RPLQQ WHY PRIORITY 0 RULES
|
|
(((0 WHY (DON'T WON'T)
|
|
I 0)
|
|
(NIL)
|
|
(DO YOU BELIEVE I DON'T 5)
|
|
(PERHAPS I WILL 5 IN GOOD TIME %.)
|
|
(SHOULD YOU 5 YOURSELF)
|
|
(YOU WANT ME TO 5 %.)
|
|
WHAT)
|
|
((0 WHY CAN'T YOU 0)
|
|
|
|
|
|
;;; Eliza-19720424-SCRIPTp1-09of11.txt
|
|
|
|
; Eliza-19720424-SCRIPTp1-09of11.TIF
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:01AM PAGE 1:9
|
|
|
|
(NIL)
|
|
(DO YOU THINK YOU SHOULD BE ABLE TO 5)
|
|
(DO YOU WANT TO BE ABLE TO 5)
|
|
(DO YOU BELIEVE THIS WILL HELP YOU TO 5)
|
|
(HAVE YOU ANY IDEA WHY YOU CAN'T 5)
|
|
WHAT)
|
|
WHAT))
|
|
[RPLQQ EVERYONE PRIORITY 2 RULES
|
|
(((0)
|
|
(NIL)
|
|
(CAN YOU THINK OF ANYONE IN PARTICULAR)
|
|
(WHO "," FOR EXAMPLE)
|
|
(YOU ARE THINKING OF A VERY SPECIAL PERSON %.)
|
|
(YOU HAVE A PARTICULAR PERSON IN MIND "," DON'T YOU]
|
|
(RPLQQ EVERYBODY PRIORITY 2 RULES (EVERYONE))
|
|
[RPLQQ NOBODY PRIORITY 2 RULES
|
|
(((0)
|
|
(NIL)
|
|
(SURELY SOMEONE "...")
|
|
(PERHAPS YOU JUST DON'T KNOW OF ANYONE %.]
|
|
(RPLQQ NOONE PRIORITY 2 RULES (NOBODY))
|
|
[RPLQQ ALWAYS PRIORITY 1 RULES
|
|
(((0)
|
|
(NIL)
|
|
(CAN YOU THINK OF A SPECIFIC EXAMPLE)
|
|
(WHEN)
|
|
(WHAT INCIDENT ARE YOU THINKING OF)
|
|
(REALLY "," ALWAYS]
|
|
(RPLQQ LIKE RULES (((0 (AM IS ARE WAS)
|
|
0 LIKE 0)
|
|
(NIL)
|
|
DIT))
|
|
EMOTION T PRIORITY 3)
|
|
[RPLQQ DIT RULES (((0)
|
|
(NIL)
|
|
(IN WHAT WAY)
|
|
(WHAT RESEMBLANCE DO YOU SEE)
|
|
(WHAT DOES THAT SIMILARITY SUGGEST TO YOU)
|
|
(WHAT OTHER CONNECTIONS DO YOU SEE)
|
|
(WHAT IS THE CONNECTION "," DO YOU SUPPOSE)
|
|
(HOW]
|
|
[RPLQQ OH PRIORITY 10 RULES (((0 YOUR OH YOUR 0)
|
|
(NIL)
|
|
(PRE (1 MY-OH-MY 5)
|
|
NEWKEY))
|
|
((0 OH YOUR 0)
|
|
(NIL)
|
|
(PRE (1 OH-MY 4)
|
|
NEWKEY]
|
|
|
|
;;; Eliza-19720424-SCRIPTp1-10of11.lisp
|
|
|
|
;;
|
|
;; Eliza-19720424-SCRIPTp1-10of11.TIF
|
|
;;
|
|
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:01 AM PAGE 1:10
|
|
|
|
(RPLQQ EVERY PRIORITY 0 RULES (((0 EVERY (ONE BODY)
|
|
0)
|
|
(NIL)
|
|
EVERYONE)
|
|
((0 EVERY TIME 0)
|
|
(NIL)
|
|
ALWAYS)))
|
|
(RPLQQ DO PRIORITY 0 RULES (((DO I 0)
|
|
(NIL)
|
|
(PRE (I 3)
|
|
YOU)
|
|
XXWHAT)
|
|
((DO YOU 0)
|
|
(NIL)
|
|
(PRE (YOU 3)
|
|
I)
|
|
XXWHAT)))
|
|
[RPLQQ GIRLS PRIORITY 3 RULES (((0 (GIRLS WOMEN)
|
|
0)
|
|
(NIL)
|
|
(PRE (1 2 S 3)
|
|
BOY]
|
|
(RPLQQ WOMEN PRIORITY 3 RULES (GIRLS))
|
|
[RPLQQ BOY PRIORITY 3 PERSON T RULES
|
|
(((0 (NIL PERSON)
|
|
FRIEND 0)
|
|
(NIL)
|
|
(I WOULD LIKE TO MEET YOUR 2 FRIEND %.)
|
|
(PRE (1 FRIEND 4)
|
|
FRIEND)
|
|
(SUPPOSE THE FRIEND WERE NOT A 2 %.))
|
|
((0 (NIL PERSON)
|
|
0)
|
|
(NIL)
|
|
(WHY DO YOU SAY A 2)
|
|
(WHAT 2 ARE YOU THINKING OF)
|
|
NEWKEY)
|
|
((0 (NIL PERSON)
|
|
S 0)
|
|
(NIL)
|
|
(WHAT GROUP OF 2 ARE YOU THINKING OF)
|
|
(I EXPECTED THAT YOU WOULD WANT TO TALK ABOUT 2 %.)
|
|
(DO YOU KNOW MANY 2]
|
|
(RPLQQ GIRL PRIORITY 3 PERSON T RULES (BOY))
|
|
(RPLQQ MAN PRIORITY 3 PERSON T RULES (BOY))
|
|
(RPLQQ WOMAN PRIORITY 3 PERSON T RULES (BOY))
|
|
(RPLQQ SEXY PRIORITY 5 RULES (SEX))
|
|
(RPLQQ SEXUAL PRIORITY 5 RULES (SEX))
|
|
|
|
;;; Eliza-19720424-SCRIPTp1-11of11.txt
|
|
|
|
; Eliza-19720424-SCRIPTp1-11of11.TIF
|
|
; <SOURCES>SCRIPT.;1 MON 24-APR-72 10:01AM PAGE 1:11
|
|
|
|
|
|
[RPLQQ SEX PRIORITY 5 RULES
|
|
(((0 YOU 0 SEX 0)
|
|
(NIL)
|
|
(ARE YOU SURE YOU REALLY 3 IT 5)
|
|
(DO YOU REALLY WANT TO DISCUSS SEX)
|
|
(PERHAPS YOU ARE WORRIED THAT YOU 3 IT 5)
|
|
NEWKEY)
|
|
((0)
|
|
(NIL)
|
|
(WHAT ARE YOUR REAL FEELINGS ABOUT SEX)
|
|
(DO YOU EVER DREAM ABOUT SEX)
|
|
(WHY DO YOU MENTION SEX)
|
|
(COULD SEX BE PART OF YOUR PROBLEM)
|
|
NEWKEY))
|
|
MEMR
|
|
(((0 YOU 0 SEX 0)
|
|
(NIL)
|
|
(EARLIER YOU SAID YOU 3 4 5 %.)
|
|
(TELL ME AGAIN WHY YOU 3 4 5 %.)
|
|
(DO YOU SAY THAT BECAUSE YOU 3 4 5]
|
|
(RPLQQ FRIENDLY PRIORITY 0 RULES (FRIEND))
|
|
[RPLQQ FRIEND PRIORITY 1 RULES
|
|
(((0 YOUR FRIEND 0)
|
|
(NIL)
|
|
(WHAT ELSE CAN YOU TELL ME ABOUT YOUR FRIEND)
|
|
(WHAT MIGHT YOUR FRIENDS HAVE TO DO WITH YOUR PROBLEM))
|
|
((0)
|
|
(NIL)
|
|
(DO YOU THINK FRIENDS ARE IMPORTANT)
|
|
(WHAT DO YOU THINK ABOUT YOUR FRIENDS]
|
|
(RPLQQ CRY PRIORITY 2 RULES (LAUGH))
|
|
(RPLQQ LAUGH PRIORITY 2 RULES (((0 (LAUGH CRY)
|
|
0)
|
|
(NIL)
|
|
(WHAT WOULD MAKE YOU 2)
|
|
(REALLY 2)
|
|
(WOULD YOU LIKE TO LAUGH)
|
|
NEWKEY)))
|
|
(RPLQQ LOVE EMOTION T)
|
|
(RPLQQ HATE EMOTION T)
|
|
(RPLQQ DISLIKE EMOTION NIL)
|
|
;; STOP
|
|
|
|
|
|
|
|
(eval-when
|
|
(:load-toplevel :execute)
|
|
(when cl-user::*autostart*
|
|
(e69:doctor)))
|