Suffix tree: Difference between revisions

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

edits