忠诚2 TYVJ P1039 题解

最新推荐文章于 2018-04-20 13:19:30 发布

原创最新推荐文章于 2018-04-20 13:19:30 发布 · 313 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#tree #insert #output #build #input #div

本文介绍了一种基于区间树的数据结构实现方法，该方法能够高效地完成区间查询与更新操作。文章详细展示了如何构建区间树，并提供了插入、查找及更改节点值的具体算法。此外，还通过一个示例程序说明了这些操作的实现细节。

program P1039; const MaxN=100000; type tre=record lc,rc,l,r,mindata:longint; end; var m,n,root,tot,x,y,temp:longint; tree:array [-1..MaxN*4] of tre; procedure build(var t:longint;l,r:longint); begin inc(tot); t:=tot; tree[t].l:=l; tree[t].r:=r; tree[t].mindata:=maxlongint; if l=r then exit; if l<r then begin build(tree[t].lc,l,(l+r) div 2); build(tree[t].rc,(l+r) div 2+1,r); end; end; function min(x,y:longint):longint; begin if x>y then exit(y) else exit(x); end; procedure insert(t,data,l,r:longint); begin if t=0 then exit; if (l=tree[t].l) and (r=tree[t].r) then begin tree[t].mindata:=min(tree[t].mindata,data); exit; end; if (l>=tree[t].l) and (r<=tree[t].r) then tree[t].mindata:=min(tree[t].mindata,data); if l>=tree[tree[t].rc].l then insert(tree[t].rc,data,l,r) else if r<=tree[tree[t].lc].r then insert(tree[t].lc,data,l,r) else begin insert(tree[t].lc,data,l,tree[tree[t].lc].r); insert(tree[t].rc,data,tree[tree[t].rc].l,r); end; end; function find(t,l,r:longint):longint; begin if t=0 then exit; if (tree[t].l=l) and (tree[t].r=r) then exit(tree[t].mindata); if r<=tree[tree[t].lc].r then exit(find(tree[t].lc,l,r)) else if l>=tree[tree[t].rc].l then exit(find(tree[t].rc,l,r)) else exit(min(find(tree[t].lc,l,tree[tree[t].lc].r),find(tree[t].rc,tree[tree[t].rc].l,r))); end; procedure change(t,data,l,r:longint); begin if t=0 then exit; if (tree[t].l=x) and (tree[t].r=x) then //先更新叶子节点 begin tree[t].mindata:=data; exit; end; if l>=tree[tree[t].rc].l then change(tree[t].rc,data,l,r) else if r<=tree[tree[t].lc].r then change(tree[t].lc,data,l,r) else begin change(tree[t].lc,data,l,tree[tree[t].lc].r); change(tree[t].rc,data,tree[tree[t].rc].l,r); end; tree[t].mindata:=min(tree[tree[t].lc].mindata,tree[tree[t].rc].mindata);//回溯，根节点=左右子树的最小值 end; procedure init; var i,temp:longint; begin root:=0; tot:=0; readln(m,n); build(root,1,m); for i:=1 to m do begin read(x); insert(root,x,i,i); end; readln; for i:=1 to n do begin readln(temp,x,y); case temp of 1:write(find(root,x,y),' '); 2:change(root,y,x,x);//对于多加的这个条件，只要通过递归，先更新叶子节点的，然后不断回溯更新叶子节点的根即可。 end; end; end; begin assign(input,'P1039.in'); reset(input); assign(output,'P1039.out'); rewrite(output); init; close(input); close(output); end.