Suffix tree: Difference between revisions

Content added Content deleted
m (Perl: remove debugging statements)
m (J: simplify)
Line 130: Line 130:
build_tree=:3 :0
build_tree=:3 :0
if. 0=#y do. i.0 3 return.end.
if. 0=#y do. i.0 3 return.end.
root=. ,:_;_;''
tree=. ,:_;_;''
if. 1=#y do. root,(#;y);0;y return.end.
if. 1=#y do. tree,(#;y);0;y return.end.
tree=. root
for_box.classify y do.
for_box.classify y do.
char=. {.>{.>box
char=. {.>{.>box