POJ3250 Bad Hair Day——单调栈——Pku3250

维护一个单调栈，栈中元素单调递减。

同时记录一个num数组，表示的是栈中这个点能够看到的牛的数量+1（它本身）

插入元素a[i]时，一直dec(stack_size)直到stack[stack_size]>=a[i],同时temp记录扫过的num[i]之和，

在ans的值上加上temp值

如果stack[stack_size]=a[i],那么就在num[stack_size]上加上temp+1，否则将这个元素压入栈中。

最后的ans值就是答案

CODE

Program Badhair;//By_Thispoet

Const

	maxn=80000;

Var

	i,n,size,temp							:Longint;

	stack,a,num								:Array[0..maxn]of Longint;

	ans										:Int64;

	

BEGIN



	size:=0;

	readln(n);

	for i:=1 to n do readln(a[i]);

	for i:=n downto 1 do

		begin



			temp:=0;

			while (size>0)and(stack[size]<a[i])do

				begin

					inc(temp,num[size]);

					dec(size);

				end;

			inc(ans,temp);

			if stack[size]=a[i] then

				begin

					inc(temp,num[size]);

					dec(size);

				end;

			inc(size);

			num[size]:=temp+1;

			stack[size]:=a[i];

			

		end;

	

	writeln(ans);

	



END.