摘要: procedure insert; var now,i:longint; dd:char; begin now:=1;len:=length(s); for i:=1 to len do begin dd:=s[i]; if t[now].son[dd]=0 then begin inc(tt);t[now].son[dd]:=tt; ... 阅读全文
posted @ 2017-03-02 15:14 OldJang 阅读(158) 评论(0) 推荐(0) 编辑