内容发布更新时间 : 2024/12/23 18:13:54星期一 下面是文章的全部内容请认真阅读。
IOI2005国家集训队论文 黄源河
BeGiN
assign(input,'seq.in'); reset(input);
assign(output,'seq.out'); rewrite(output); readln(n);
fillchar(nd,sizeof(nd),0); cl:=0; q[0]:=0;
for i:=1 to n do begin
readln(nd[i].key); dec(nd[i].key,i); inc(cl); stk[cl]:=i; q[cl]:=i;
while (cl>1)and(nd[stk[cl]].key stk[cl]:=merge(stk[cl],stk[cl+1]); if odd(q[cl+1]-q[cl]) and odd(q[cl]-q[cl-1]) then stk[cl]:=merge(nd[stk[cl]].left,nd[stk[cl]].right); q[cl]:=q[cl+1]; end; end; print; close(output); EnD. 第 21 页 共 21 页