What happens when you sic Chatbot::Eliza on itself? Well, you've come to the right place to find out!
#!/bin/env perl -w
use warnings;
use strict;
use utf8;
use Chatbot::Eliza;
my ($bot1, $bot2) = (new Chatbot::Eliza, new Chatbot::Eliza);
my $text = "Hello.";
print "Me: $text\n";
for(1..100) {
if($_ % 2) {
$text = $bot1->transform($text);
print "Eliza #1: $text\n";
}
else {
$text = $bot1->transform($text);
print "Eliza #2: $text\n";
}
}
Me: Hello.
Eliza #1: Hi. What seems to be your problem?
Eliza #2: Does that question interest you?
Eliza #1: You're not really talking about me -- are you?
Eliza #2: What makes you think I am not really talking about you -- are me?
Eliza #1: What makes you think I -- are you?
Eliza #2: Oh, I?
Eliza #1: Why do you say you?
Eliza #2: We were discussing you -- not me.
Eliza #1: Do you wish to believe I -- not you?
Eliza #2: You're not really talking about me -- are you?
Eliza #1: What makes you think I am not really talking about you -- are me?
Eliza #2: Really, I -- are you?
Eliza #1: Oh, I?
Eliza #2: Can you elaborate on that?
Eliza #1: Oh, I elaborate on that?
Eliza #2: Do you say you elaborate on that for some special reason?
Eliza #1: We were discussing you -- not me.
Eliza #2: Do you wish to believe I -- not you?
Eliza #1: We were discussing you -- not me.
Eliza #2: Really, I -- not you?
Eliza #1: Oh, I?
Eliza #2: Why do you say you?
Eliza #1: You're not really talking about me -- are you?
Eliza #2: Does it please you to believe I am not really talking about you -- are me?
Eliza #1: Why do you think I -- are you?
Eliza #2: Oh, I?
Eliza #1: Why do you say you?
Eliza #2: What are your feelings now?
Eliza #1: Have you asked such questions before?
Eliza #2: We were discussing you -- not me.
Eliza #1: Really, I -- not you?
Eliza #2: You're not really talking about me -- are you?
Eliza #1: Do you sometimes wish you were not really talking about you -- are me?
Eliza #2: Really, I -- are you?
Eliza #1: We were discussing you -- not me.
Eliza #2: Suppose I did -- not you -- what would that mean?
Eliza #1: We were discussing you -- not me.
Eliza #2: Suppose I did -- not you -- what would that mean?
Eliza #1: You're not really talking about me -- are you?
Eliza #2: Do you sometimes wish you were not really talking about you -- are me?
Eliza #1: Does someone else believe I -- are you?
Eliza #2: Oh, I?
Eliza #1: That's quite interesting.
Eliza #2: Tell me more about that.
Eliza #1: Please go on.
Eliza #2: Does talking about this bother you?
Eliza #1: You're not really talking about me -- are you?
Eliza #2: Perhaps you would like to be not really talking about you -- are me.
Eliza #1: Do you wish to believe I -- are you?
Eliza #2: We were discussing you -- not me.
Eliza #1: Why do you think I -- not you?
Eliza #2: You're not really talking about me -- are you?
Eliza #1: Do you sometimes wish you were not really talking about you -- are me?
Eliza #2: Does someone else believe I -- are you?
Eliza #1: You're not really talking about me -- are you?
Eliza #2: Does it please you to believe I am not really talking about you -- are me?
Eliza #1: What makes you think I -- are you?
Eliza #2: You're not really talking about me -- are you?
Eliza #1: What makes you think I am not really talking about you -- are me?
Eliza #2: Really, I -- are you?
Eliza #1: What are your feelings now?
Eliza #2: What is it you really want to know?
Eliza #1: What are your feelings now?
Eliza #2: What do you think?
Eliza #1: You're not really talking about me -- are you?
Eliza #2: Perhaps you would like to be not really talking about you -- are me.
Eliza #1: What makes you think I -- are you?
Eliza #2: We were discussing you -- not me.
Eliza #1: Really, I -- not you?
Eliza #2: Oh, I?
Eliza #1: Why do you say you?
Eliza #2: You're not really talking about me -- are you?
Eliza #1: What makes you think I am not really talking about you -- are me?
Eliza #2: You like to think I -- are you -- don't you?
Eliza #1: We were discussing you -- not me.
Eliza #2: Suppose I did -- not you -- what would that mean?
Eliza #1: We were discussing you -- not me.
Eliza #2: Do you wish to believe I -- not you?
Eliza #1: You're not really talking about me -- are you?
Eliza #2: Perhaps you would like to be not really talking about you -- are me.
Eliza #1: Really, I -- are you?
Eliza #2: You're not really talking about me -- are you?
Eliza #1: Perhaps you would like to be not really talking about you -- are me.
Eliza #2: What makes you think I -- are you?
Eliza #1: Oh, I?
Eliza #2: That's quite interesting.
Eliza #1: Please go on.
Eliza #2: That is interesting. Please continue.
Eliza #1: Tell me more about that.
Eliza #2: Does talking about this bother you?
Eliza #1: What are your feelings now?
Eliza #2: Have you asked such questions before?
Eliza #1: We were discussing you -- not me.
Eliza #2: You like to think I -- not you -- don't you?
Eliza #1: Oh, I?
Eliza #2: Do you say you for some special reason?
Eliza #1: Oh, I for some special reason?
Eliza #2: Do you say you for some special reason for some special reason?
Eliza #1: We were discussing you -- not me.
Eliza #2: Does someone else believe I -- not you?Yeah, it's not as interesting as one would think.
