Perl 前缀树兑现(2)

Perl 前缀树实现(2)

在前一篇 Perl 前缀树实现 中用hash table的方法实现了前缀树，算法导论中用数组来实现，方法基本相同，下边用链表的方法来实现，遍历算法可以用到其他树结构遍历。

代码：

my $tree = trie_tree(qw(this is just a testing));for(0..400000){    my $tmp = join '', map { chr ((int rand(26)) + ord('a')) } 1..rand(10);    insert($tree, $tmp);}