Schrift
[thread]6124[/thread]

Künstliche Intelligenz

Leser: 2


<< |< 1 2 3 4 ... 8 >| >> 77 Einträge, 8 Seiten
Robby
 2004-03-08 13:31
#80658 #80658
User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]
Hallo Leute,

wie könnte man künstliche Intelligenz in Perl programmieren?
Ich meine ein Viech das auf Deine Fragen antwortet bzw. mit dem man einfach sinnlos plaudern kann?

Bsp. http://www.yellostrom.de/ (soll keine Schlecihwerbung sein, aber die haben so eine nette Tussi oben rechts mit der man sich "unterhalten" kann - Ist die Weiterentwicklung von Karl Klammer im Office :D )

Mich würde mal interessieren wie man so ein Projekt angehen könnte...
Jemand eine Idee?
Kaum macht man es richtig - schon funktioniert es!
jan
 2004-03-08 13:37
#80659 #80659
User since
2003-08-04
2536 Artikel
ModeratorIn
[Homepage] [default_avatar]
esskar, bitte einmal zum einsatz!

du musst dir ein regelwerk zur natürlichsprachlichen analyse und antwort-generierung erstellen und das dann nur noch in perl umsetzen. oder du setzt dich mal mit neuronalen netzen auseinander, schreibst dir ein ordentliches mit genug kapazität und trainierst es lange genug.
oder du fragst jemanden, der computerlinguistik studiert oder zumindest ein bisschen ahnung davon hat.
Ronnie
 2004-03-08 13:48
#80660 #80660
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
Mutmassung: Robby will gar nicht mit ihr reden, Robby findet lustig was passiert wenn man ihr sagt: "zieh dich aus".

Ansonsten gibt es sowas natürlich in Perl: Eliza.\n\n

<!--EDIT|Ronnie|1078746903-->
Crian
 2004-03-08 13:56
#80661 #80661
User since
2003-08-04
5870 Artikel
ModeratorIn
[Homepage]
user image
Ich dachte auch gleich an Eliza, nett, dass es das schon in Perl gibt.

(Gibt sie Ohrfeigen bei diesem frechen Ansinnen?)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
esskar
 2004-03-08 14:08
#80662 #80662
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
beschimpft sie mal... :)
Rambo
 2004-03-08 14:08
#80663 #80663
User since
2003-08-14
803 Artikel
BenutzerIn

user image
es ist auch gut zu beobachten wenn man die gleiche frage mehrfach stellt :-)
Robby
 2004-03-08 14:13
#80664 #80664
User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]
[quote=Ronnie,08.03.2004, 12:48]Mutmassung: Robby will gar nicht mit ihr reden, Robby findet lustig was passiert wenn man ihr sagt: "zieh dich aus".

Ansonsten gibt es sowas natürlich in Perl: Eliza.[/quote]
musst aber erst nett zu ihr sein :D

Und wenn du obszön wirst verschwindet sie ganz...
Kaum macht man es richtig - schon funktioniert es!
Crian
 2004-03-08 14:20
#80665 #80665
User since
2003-08-04
5870 Artikel
ModeratorIn
[Homepage]
user image
oha, das ist aber kompliziert sich mit der zu unterhalten, dauernd versteht sie einen nicht und erzählt einem etwas über Strom :-/

Natürlich war ich _nicht_ unhöflich zu ihr... ^^

Man könnte sich jetzt fragen, was Larry, Start, Yello und Havi gemeinsam haben, aber man könnte es auch lassen ;) :D :p\n\n

<!--EDIT|Crian|1078748583-->
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
Robby
 2004-03-08 14:21
#80666 #80666
User since
2003-08-11
409 Artikel
BenutzerIn
[default_avatar]
[quote=Crian,08.03.2004, 12:56]Ich dachte auch gleich an Eliza, nett, dass es das schon in Perl gibt.[/quote]
Ist aber nicht sooo ausgereift oder mein ich das nur? :D
Eve sntwortet mir da schon besser...
Kaum macht man es richtig - schon funktioniert es!
Crian
 2004-03-08 14:24
#80667 #80667
User since
2003-08-04
5870 Artikel
ModeratorIn
[Homepage]
user image
Eliza dürfte auch ca. 10 mal so alt sein wie Eve ... ^^
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
<< |< 1 2 3 4 ... 8 >| >> 77 Einträge, 8 Seiten



View all threads created 2004-03-08 13:31.