忠诚2
描述 Description
老管家是一个聪明能干的人。他为财主工作了整整10年，财主为了让自已账目更加清楚。要求管家每天记k次账，由于管家聪明能干，因而管家总是让财主十分满意。但是由于一些人的挑拨，财主还是对管家产生了怀疑。于是他决定用一种特别的方法来判断管家的忠诚，他把每次的账目按1，2，3…编号，然后不定时的问管家问题，问题是这样的：在a到b号账中最少的一笔是多少？为了让管家没时间作假他总是一次问多个问题。
在询问过程中账本的内容可能会被修改
输入格式 Input Format
输入中第一行有两个数m,n表示有m(m<=100000)笔账,n表示有n个问题，n<=100000。
接下来每行为3个数字，第一个p为数字1或数字2，第二个数为x，第三个数为y
当p=1 则查询x,y区间
当p=2 则改变第x个数为y

输出格式 Output Format
输出文件中为每个问题的答案。具体查看样例。
典型的线段树。只能说我是蒟蒻，只能做做这种题。第一次写线段树，写的不好请多包涵。

话说一开始时T数组只开到200000，结果就悲剧了，后来想着就算不过，也把忠诚1给提了，还是一样有两个点没过。
最后抱着试一试的态度，随便把数组改大，结果就过了。还是那个结论，蒟蒻啊，对数据范围的估计的能力都没有啊。
废话说完了。还是上代码吧。希望对一些有需要的同学有帮助。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
uses math;
type
tr=record
　　 a,b,mi:longint;
　  end;
var
　　n,m,i,k,x,y,j:longint;
　　t:array[-1..800000] of tr;
　　a,s:array[-1..200000] of longint;

procedure build(p,l,r:longint);
var mid:longint;
begin
　mid:=(l+r) div 2;
　t[p].a:=l; t[p].b:=r;
　if l<>r then
　　begin
　　　build(2*p,l,mid);
　　　build(2*p+1,mid+1,r);
　　　t[p].mi:=min(t[2*p].mi,t[2*p+1].mi);
　　end else
　　begin
　　　t[p].mi:=a[l];
　　　s[l]:=p;
　　end;
end;

procedure change(x,y:longint);//把这个去掉，改一下输入就可以过忠诚1了
var ss:longint;
begin
　ss:=s[x];
　t[ss].mi:=y;
　while ss>0 do
　　begin
　　　ss:=ss div 2;
　　　t[ss].mi:=min(t[2*ss].mi,t[2*ss+1].mi);
　　end;
end;

function find(p,l,r:longint):longint;
var mid:longint;
begin
　mid:=(t[p].a+t[p].b) div 2;
　if (t[p].a=l) and (t[p].b=r) then exit(t[p].mi)
　else if r<=mid then exit(find(2*p,l,r))
　　else if l>=mid+1 then exit(find(2*p+1,l,r))
　　　else exit(min(find(2*p,l,mid),find(2*p+1,mid+1,r)));
end;

begin
　readln(m,n);
　for i:=1 to m do read(a[i]);
　build(1,1,m);
　for i:=1 to n do
　　begin
　　　read(k,x,y);
　　　if k=1 then write(find(1,x,y),' ')
　　　else
　　　change(x,y);
　　end;
end.