Suffix tree: Difference between revisions
→{{header|Perl 6}}
(→{{header|Perl 6}}: mention of inefficiency) |
|||
Line 87:
}
}
}</lang>
Displaying the tree is done with the code from [[visualize a tree]]:
<lang Perl 6>my $tree = root => suffix-tree 'banana$';
.say for visualize-tree $tree, *.key, *.value.list;</lang>
|