摘要：
1 var 2 a,d:Array[-1..300000]of longint; 3 i,n,m,k,l:longint; 4 function erfen(x:longint):longint; 5 var mid,h,t:longint; 6 begin 7 h:=1;t:=l; 8 erfen:=0; 9 while h=d[l] then26 begin27 inc(l);28 d[l]:=a[i];29 end30 else31 begin32 k:=erfen(a[i]);... 阅读全文