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);}