Schrift
[thread]6486[/thread]

Binärbäume in Perl: erstellen und ausgeben



<< >> 6 Einträge, 1 Seite
peggy
 2004-08-11 14:42
#85689 #85689
User since
2004-07-23
29 Artikel
BenutzerIn
[default_avatar]
Huhu!
Ich habe hier eine Liste (array mit strings "apfel banane" ist ein element)von Wortpaaren ala
Apfel Banane
Apfel Regen
Regen Baum
Baum Grün
ETC.

Ich würde gerne diese durch einen oder mehrere Binärbäume darstellen!
z.B. wäre Apfel dann die Wurzel mit Banane und Regen als kinder, die dann wiederum Kinder haben. Finde ich ein paar dass keinen Bezug zu den anderen Wörtern hat, möchte ich einen weiteren Baum erstellen. diese verschiedenen Bäume sollen abgespeichert und dann auch als Baumstruktur ausgegeben werden. Ich habe keinen Plan wie ich das machen soll, da ich bisjetzt nur sortierbäume gemacht habe, die nach der größe der Zahlen die Knoten links oder rechts angesetzt haben. Hat jemand eine idee wie man das umsetzt???\n\n

<!--EDIT|peggy|1092221127-->
Ronnie
 2004-08-11 14:54
#85690 #85690
User since
2003-08-14
2022 Artikel
BenutzerIn
[default_avatar]
Tree::Base im CPAN könnte interessant sein - ist aber noch Version 0.001.
EDIT1: Tree-Dag sieht noch interessanter aus!\n\n

<!--EDIT|Ronnie|1092221951-->
ptk
 2004-08-11 15:24
#85691 #85691
User since
2003-11-28
3645 Artikel
ModeratorIn
[default_avatar]
Zum Zeichnen von Graphen im Allgemeinen: CPAN:Graphviz
peggy
 2004-08-11 15:51
#85692 #85692
User since
2004-07-23
29 Artikel
BenutzerIn
[default_avatar]
GraphViz sieht interressant aus, leider hab ichs hier nicht installiert :(
esskar
 2004-08-11 17:45
#85693 #85693
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
[quote=peggy,11.08.2004, 13:51]GraphViz sieht interressant aus, leider hab ichs hier nicht installiert :([/quote]
was spricht dagegen es zu installieren?
Crian
 2004-08-11 18:50
#85694 #85694
User since
2003-08-04
5866 Artikel
ModeratorIn
[Homepage]
user image
Tipps zum Modulinstallieren findest Du im Wiki:

http://wiki.perl-community.de/bin....inModul
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
<< >> 6 Einträge, 1 Seite



View all threads created 2004-08-11 14:42.