Keine Bearbeitungszusammenfassung |
(kein Unterschied)
|
Version vom 19. März 2007, 21:00 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"; }