William James wrote:
> On Feb 22, 5:49 am, Mark Tarver <dr.mtar...@[EMAIL PROTECTED]
> wrote:
> > Having got 3936 LOC through a 4000 LOC implementation, I thought I'd
> > do some recreational
> > hacking and do an old old program I've not looked at for some time -
> > Eliza. You all know Eliza well enough for me not to have to spell it
> > out. The challenge is to implement or dig up an Eliza program (you
> > don't have to write it yourself) in your favourite FPL. Note that the
> > script that drives Eliza's responses should not be counted towards the
> > LOC count. Some constraints.
> >
> > 1. The script itself should be changeable by any novice. That is to
> > say that it should not
> > be a pile of hard-wired code written in the native language of
> > the program or require
> > deep programming skills.
> >
> > 2. The program should receive keyboard input from the user -
> > including the usual punctuation
> > and any characters he wants to enter without crashing.
> >
> > During the Harrop Wars on comp.lang.lisp a lot of stuff was thrown
> > around about the desirability of pattern matching. The challenge is
> > interesting because it involves a style of pattern-matching called
> > 'segment pattern matching' that is not hard-wired into most FPLs and
> > I'd like to see how well different FPLs cope with something outside
> > the standard.
> >
> > Oh last thing; don't get too uptight about this. It's only a bit of
> > fun.
> >
> > Mark
>
> Unlike my 2-line Ruby version, this one changes first-person
> pronouns to second-person, and vice versa.
>
> S =
> [ /father|mother|brother|sister/i, "Tell me about your 0."],
> [ /\b(am|i'm) (.*)/i, ["Why are you 2?","Have you always been 2?"]],
> [ /\bI was (.*)/i, ["Why were you 1?","I can't believe you were
> 1."]],
> [ /\bI will (.*)/i, "Do you think it's wise to 1?"],
> [ /\bI (.*)/i, "Why do you 1?" ],
> [ /\b(you|your|yours)\b/i, ["We're talking about you, not me.",
> "Please don't be so personal."]],
> [ /.*/, ["That's very interesting. Do go on.",
> "Tell me more.",
> "I'm not sure that I understand you fully.",
> "Can you elaborate on that?" ]]
>
> P=Hash[*"I|you|my|your|myself|yourself|you are|I am|you're|I
> am".split('|')]
> (gets;sub(/[.!?,; ]+$/,"");x=Array(S.find{|a|$m=$_.match(a[0])}[1])
> puts x[rand(x.size)].gsub(/\d/){$m.to_a[$&.to_i].
> scan(/you are|you're|\w+|\W+/).map{|s|P[s]||P.invert[s]||s}.join})
> while 9
g**gle split some of the lines in my 4-line code above.
Let's make it 6 lines.
S =
[ /father|mother|brother|sister/i, "Tell me about your 0."],
[ /\b(am|i'm) (.*)/i, ["Why are you 2?","Have you always been 2?"]],
[ /\bI was (.*)/i, ["Why were you 1?","I can't believe you were
1."]],
[ /\bI will (.*)/i, "Do you think it's wise to 1?"],
[ /\bI (.*)/i, "Why do you 1?" ],
[ /\b(you|your|yours)\b/i, ["We're talking about you, not me.",
"Please don't be so personal."]],
[ /.*/, ["That's very interesting. Do go on.",
"Tell me more.",
"I'm not sure that I understand you fully.",
"Can you elaborate on that?" ]]
P = Hash[ *"I|you|my|your|myself|yourself|you are|I am|you're|I am".
split('|')]
( gets;sub(/[.!?,; ]+$/,"");x=Array(S.find{|a|$m=$_.match(a[0])}[1])
puts x[rand(x.size)].gsub(/\d/){$m.to_a[$&.to_i].scan(
/you are|you're|\w+|\W+/).map{|s|P[s]||P.invert[s]||s}.join}
) while 9
|
