Question

我正在尝试编写一个程序，该程序可以从文件中读取然后放入堆排序，然后在树中与排序列表一起输出。但是我陷入了困境，而不是把堆放在堆排序中使用的数字，它只是在一行上发布1-10，然后在下一行发布1-9。我真的很困惑，我几乎不懂这种语言。我把输出的一个例子单独用于输出我希望得到它。

#!/usr/bin/perl
use 5.006;
use strict;
use warnings;
use Tree::DAG_Node;


process_data(read_file('testing.txt'));
process_data((3,1,4,1,5,9,2,6,5,3,6));

sub read_file{
    my($filename)=@_;
    my @data=();
    my @words;
    open(my $fh, "<", $filename)
        or die "Could not open file: $!\n";
    while(<$fh>){
    chomp;
    @words = split(' ');
    foreach my $word(@words){
    push @data, $word;
}

}
close $fh;

return @data;
}


sub heap_sort {
    my ($a) = @_;
    my $n = @$a;
    for (my $i = ($n - 2) / 2; $i >= 0; $i--) {
        down_heap($a, $n, $i);
    }
    for (my $i = 0; $i < $n; $i++) {
        my $t = $a->[$n - $i - 1];
        $a->[$n - $i - 1] = $a->[0];
        $a->[0] = $t;
        down_heap($a, $n - $i - 1, 0);
    }
}

sub down_heap {
    my ($a, $n, $i) = @_;
    while (1) {
        my $j = max($a, $n, $i, 2 * $i + 1, 2 * $i + 2);
        last if $j == $i;
        my $t = $a->[$i];
        $a->[$i] = $a->[$j];
        $a->[$j] = $t;
        $i = $j;
    }


sub max {
    my ($a, $n, $i, $j, $k) = @_;
    my $m = $i;
    $m = $j if $j < $n && $a->[$j] > $a->[$m];
    $m = $k if $k < $n && $a->[$k] > $a->[$m];
    return $m;
}
}

sub draw_tree{
    my(@data)=@_;
    my $root = Tree::DAG_Node->new;
$root->name($_[0]);
$root->new_daughter->name($_) for (1..10);
my @names = @data;
my $count = 50;
for my $n ($root->daughters) {
    for (split //, $names[$count++]) {
        $n->new_daughter->name($_)
    }
}
print map "$_\n", @{$root->draw_ascii_tree};
}

sub process_data{
    my(@data)=@_;
    my @a = @data;
    print "@a\n";
    print "\n";
    heap_sort(\@a);
    draw_tree(@a);
    print "\n";
    print "@a\n";
    print "\n";

}

这是我得到的输出 CMD output of my code

输出我期待：（使用示例数据）

1 1 9 4 5

   1
   |
 1 ----- 9
 |      
 /\ 
4 5

1 1 4 5 9

如何通过Tree :: DAG_Node输出到树状结构？

0 个答案: