Newsgroups: comp.lang.apl
Path: utzoo!utgpu!watserv1!watmath!ljdickey
From: ljdickey@watmath.waterloo.edu (L.J.Dickey)
Subject: Re: Eliza in J, revised
Message-ID: <1991Feb19.023535.3612@watmath.waterloo.edu>
Organization: University of Waterloo
References: <1991Feb18.221411.21479@watmath.waterloo.edu>
Date: Tue, 19 Feb 1991 02:35:35 GMT
Lines: 117

This is a re-submission of a J program from Richard L.W. Brown of
York University in Toronto.  He wrote it as an exercise in learning
to program in J and he has consented to its being posted to Usenet.
You might find it instructive too.  I saved the stuff below the
line in a file called 'eliza' and gave the commands:

	J
	)script 'eliza'
	eliza ''

The command 	)sscript 'eliza' 	may be used
instead of	)script 'eliza' 	for a less verbose startup.

Lee Dickey


         o  /
_________ \/ ___________________ snip snip snip _____________________________ 
          /\
         o  \




''}:'Eliza the analyst.'
''}:'A simplified Eliza program similar to the one in the'
''}:'ABC PROGRAMMERS  GUIDE by Guerts, Meertens, and Pemberton.'
''}:'Written in J by R.L.W. Brown. RLWBROWN at YORKVM1 (bitnet)'
''}:'	<RLWBROWN@VM1.YorkU.CA> '

''}:'CONSTANTS AND UTILITY FUNCTIONS'
end=.0$0
ALPH=. 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ?,!;.''"()/'
LOWER=.'abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz?          '
lowercase=.'(ALPH i. y.){LOWER'::''
say=.'y.(1!:2) 2'::''
listen=.';:lowercase(1!:1)1'::''
choose=.'say>(?$,y.){,y.'::''
has=.''::'($y.)>k=:<./y.i.x.'
from=.'>k{y.'::''
if=.".>
then=.{.<

''}:'ELIZA DIALOG FUNCTION'
c=.0 1$''
c=.c,'say''Hello, I am Eliza.  Tell me about yourself.'''
c=.c,'say''"Bye" to finish.'''
c=.c,'s=.listen '''''
c=.c,'if ((;:''bye'') e. s) then ''''''Bye, bye!''''}:$.=.end'''
c=.c,'reply s}:$.=.2 3 4'
eliza=.c ::''

''}:'ELIZA REPLY FUNCTION'
c=.0 1$' '
c=.c,'if ((<y.) has Simple) then ''choose from SimpleAns}:$.=.end'''
c=.c,'if (y. has Keyword) then ''choose from KeywordAns}:$.=.end'''
c=.c,'if ((;:''?'') e. y.) then ''choose Answer}:$.=.end'''
c=.c,'if (y. has Otherword) then ''choose from OtherwordAns}:$.=.end'''
c=.c,'choose Starter'
reply=.c ::''

''}:'ELIZA DATA'
c=.,<'yes'
c=.c;<,<'no'
Simple=.c

c=.(<'Are you sure?'),(<'You seem positive.')
c=.<c,(<'Can you be more specific?'),(<'Really?')
c=.c,<(<'Don''t be negative!'),(<'Why not?'),(<'You seem definite!')
SimpleAns=.c

c=.(<'mother')
c=.c,(<'father')
c=.c,(<'brother')
c=.c,(<'sister')
c=.c,(<'girlfriend')
c=.c,(<'boyfriend')
c=.c,(<'love')
c=.c,(<'hate')
c=.c,(<'family')
Keyword=.c

c=.<(<'And your father?'),(<'Tell me more about your family.')
c=.c,<(<'And your mother?'),(<'Tell me about your father.')
c=.c,<(<'You have one brother?'),(<'Tell me more about your brother.')
c=.c,<(<'You have one sister?'),(<'Tell me more about your sister.')
c=.c,<(<'Why bring your girlfriend in?'),(<'Tell me about your girlfriend.')
c=.c,<(<'Why bring your boyfriend in?'),(<'Tell me about your boyfriend.')
c=.c,<(<'Do you really mean love?'),(<'What kind of love?.')
c=.c,<(<'Is not hate too strong?'),(<'Why do you hate?')
c=.c,<(<'Is your family important?'),(<'Tell me more about your family.')
KeywordAns=.c

c=.(<'Why do you ask?')
c=.c,(<'Why do you think this?')
c=.c,(<'What are your thoughts on this?')
Answer=.c

c=.(<'never')
c=.c,(<'you')
Otherword=.c

c=.<(<'Never?'),(<'Never say never!')
c=.c,<(<'Lets talk about you, not me.'),(<'Me?')
OtherwordAns=.c

c=.<'Lets change the subject.'
c=.c,<'What do you do for fun?'
c=.c,<'What are your interests?'
c=.c,<'What else would you like to talk about?'
c=.c,<'How would you describe your personal life in one word?'
Starter=.c
c=.0$0

''}:'To run, type: eliza 0   '
''}:'(Or  eliza <arg>  where <arg> is any valid J expression.)'