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. |
||
tree=. ,:_;_;'' |
|||
if. 1=#y do. |
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 |