摘要:
function newnode(x:longint):longint; begin inc(cnt);dis[cnt]:=x;exit(cnt); end; procedure add(id:longint); var ch,i:char;p,np,q,nq,j:longint; begin ch:=s[id];np:=newnode(id);p:=last;last:=np; ... 阅读全文
摘要:
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; ... 阅读全文