Keine Bearbeitungszusammenfassung |
Bar^-5 (Diskussion | Beiträge) Keine Bearbeitungszusammenfassung |
||
(Eine dazwischenliegende Version von einem anderen Benutzer wird nicht angezeigt) | |||
Zeile 36: | Zeile 36: | ||
... | ... | ||
</pre> | </pre> | ||
[[Kategorie:Projekte:Archiv]] |
Aktuelle Version vom 11. Januar 2020, 12:58 Uhr
use Chatbot::Eliza; $eliza = new Chatbot::Eliza; $alize = new Chatbot::Eliza; $response = "I am a sad little monkey."; while (1) { $response = $eliza->transform($response); print "Eliza: $response\n"; $response = $alize->transform($response); print "Alize: $response\n"; }
Eliza: Can you explain what made you sad? Alize: You're not really talking about me -- are you? Eliza: Does it please you to believe I am not really talking about you -- are me? Alize: You like to think I -- are you -- don't you? Eliza: Oh, I? Alize: Why do you say you? Eliza: We were discussing you -- not me. Alize: Does someone else believe I -- not you? Eliza: Oh, I? Alize: You say you? Eliza: You're not really talking about me -- are you? Alize: Perhaps you would like to be not really talking about you -- are me. Eliza: You like to think I -- are you -- don't you? Alize: We were discussing you -- not me. Eliza: You like to think I -- not you -- don't you? Alize: You're not really talking about me -- are you? Eliza: What makes you think I am not really talking about you -- are me? ...