based on A simple version of Eliza
this page started by TV.
The interesting and fun eliza idea, a shrink like character incorporated in a computer program, is fun to have as a tcl script, see that page.
I thought I'd start using it to make a program which can have multiple instances which can talk to themselves:
Talk::replyto {What is your problem?}
Talk::replyto {What do you want to talk about?}
Talk::replyto {We are considering you, not me}
Talk::replyto {We are considering you, not me}
Talk::replyto {We are considering you, not me}To begin with, this plain feed it back to itself is nothing all too staggering, but at least it doesn't get into a loop straight away.
Another initial question may change the course of the conversation:
How is life?
Life - do not talk to me about life!
So ... ?
Shall we continue?
What do you want to talk about?
Anything specific?
What do you want to talk about?
Shall we continue?
Anything specific?
So ... ?
Shall we continue?
set in1 "hi"; set oo {};
for {set i 0} {$i < 10} {incr i} {
puts $in1;
append oo $in1 \n;
set in1 [Talk::replyto $in1]
}
hi
So ... ?
So ... ?
Anything specific?
Shall we continue?
Anything specific?
What do you want to talk about?
We are considering you, not me
We are considering you, not me
We are considering you, not meSo far, not all too thrilling.