Suffix tree: Difference between revisions
m
Perl: remove debugging statements
m (Perl: simplify) |
m (Perl: remove debugging statements) |
||
Line 202:
}
sub suffix_tree {
return +{} if
return +{ $_[0] => +{} } if @_ == 1;
my $h = {};
Line 220 ⟶ 216:
} else { $h->{$key} = $subtree }
}
return $h;
}
|