BST

http://unbelievable.ycool.com/post.946604.html

BST 是叫做 排序2叉树吧....



是听说过蛮久了...可是今天才写过...

原来 ...没有我想象中那么简单的说....insert 摁了我好久哦....哎...

procedure insert(var root : longint; k : longint); // 这样子定义的话... root 改变只会影响到调用它的那一层的那个变量...... 标程 是这么写的...果然够牛b ... 这招.. 我就要学习学习了..
begin
 if root=0 then begin
   inc(m);
   root:=m;
   with f[m] do begin
     l:=0; r:=0;
     ct :=1; data:=k;
   end;
 end else begin
   inc(f[root].ct);
   if k>f[root].data then
     insert(f[root].r,k)
   else if k<f[root].data then
     insert(f[root].l,k);
 end;
end;