rqnoj 愿望群模拟赛 nov11= =

总之被刷 了- -。。

第一题。

二分答案。。、重新构造序列，比这个数大的当做1，比他小的当做-1，相等的当做0，用单调队列求出一个最大子序列，

当大于0的时候（比赛的时候我是用大于-1.这样只有30分。。。。。我觉得应该是大于-1，比如4 ， 6 ， 6的情况。。中位数为6情况。这段序列的应该是-1，非常囧。。是我理解有问题还是数据有问题）当大于0 的时候。。说明有更大的数可以当做某段的中位数

 

第二题。

四个线段树弄一下 - -考试时候因为数组一个开反了。。全部re - -。。后来改了 只有 30分- -其余都tle。。囧。。用pascal会tle。。用c才ac了 = =|太囧了。。。我在本地时限开两秒用pascal总共11.64.。我的c++10.84.。标称10.16= =囧。。pascal就是超时了囧

 

第三题。比赛时没想出来

赛后才搞清楚

这题我们把它全部取log。这样就变化成为了 给每行加数。列减去数。。使得满足条件

那么对于一个数

就是

Ai(行加的数）

Bj(列加的数）

l<=g[i,j]+ai-bj<=r

那么ai-bj<=r    bj-ai<=-l 这样我们可以想到差分约束系统。。这样构图求最短路就可以了 bellmanford直接判断负环

 

第四题，由于没有题解+能力有限 = 不会做。。求正解求指教。。

 

第一题

const maxn=100000+100;var max,mid,n,l,r:longint; sum,a:array[0..maxn]of longint; pos:array[0..1,0..maxn]of longint; ht,lt:Array[0..1]of longint;procedure init;var i:longint;begin readln(n,l,r); if not(odd(l)) then inc(l); if not(odd(r)) then dec(r); for i:=1 to n do begin read(a[i]); if a[i]>max then max:=a[i];end; if l=1 then begin writeln(max); halt; end;end;procedure insert(p,x:longint);begin while (sum[x]<sum[pos[p,lt[p]]])and(ht[p]<=lt[p]) do dec(lt[p]); inc(lt[p]); pos[p,lt[p]]:=x;end;function work(mid:longint):longint;var i,p:longint;begin work:=-maxlongint shr 1; sum[0]:=0; for i:=1 to n do begin if a[i]<mid then sum[i]:=sum[i-1]-1; if a[i]>mid then sum[i]:=sum[i-1]+1; if a[i]=mid then sum[i]:=sum[i-1]; end; ht[0]:=1;lt[0]:=0; ht[1]:=1;lt[1]:=0; for i:=l to n do begin p:=i mod 2; insert(p,i-l); while pos[p,ht[p]]<i-r do inc(ht[p]); if sum[i]-sum[pos[p,ht[p]]]>work then work:=sum[i]-sum[pos[p,ht[p]]]; end;end;procedure main;var mid,lt,rt:longint;begin lt:=1;rt:=max+1; repeat mid:=(lt+rt) shr 1; if work(mid)>=0 then lt:=mid else rt:=mid until lt+1>=rt; writeln(lt);end;begin init; main;end.

第二题

#include <iostream>#define FOR(i,a,b) for(int i=a;i<=b;i++)#define FORD(i,a,b) for(int i=a;i>=b;i--)#define REP(i,a) for(int i=0;i<a;i++)#define maxn 100000*4int f[4][maxn],d[4][maxn],s[maxn],z,n,m,bj[maxn];void build(int tot,int l,int r){ if (l==r) { REP(j,4) { f[j][tot]=d[j][l]; s[tot]=1; } return; } int mid = (l+r) >> 1; build(tot<<1,l,mid); build((tot<<1)+1,mid+1,r); REP(j,4) f[j][tot] = f[j][tot<<1] + f[j][(tot<<1)+1]; s[tot] = s[tot <<1 ] + s[(tot<<1)+1];} void init(){ scanf("%d%d/n",&n,&m); int x = 0; for (int i=1;i<=n;i++) { scanf("%d",&x); REP(j,4) if (((1<<j) & x)>0) d[j][i]=1; } scanf("/n"); build(1,1,n);}void mark(int tot){ if (bj[tot] ) { REP(j,4) if (((1<<j) & bj[tot])>0) { f[j][tot<<1] = s[tot<<1]-f[j][tot<<1]; f[j][(tot<<1)+1] = s[(tot<<1)+1] - f[j][(tot<<1)+1]; } bj[tot<<1] ^= bj[tot]; bj[(tot<<1)+1] ^= bj[tot]; bj[tot] = 0; } }void insert(int tot,int l,int r,int ll,int rr){ if (ll<=l && r<=rr) { REP(j,4) if (((1<<j) & z)>0) {f[j][tot] = s[tot]-f[j][tot];} bj[tot] ^= z; return; } mark(tot); if (ll<=(l+r) >> 1) insert(tot<<1,l,(l+r) >> 1,ll,rr); if (rr>(l+r) >> 1) insert((tot<<1)+1,((l+r) >> 1)+1,r,ll,rr); REP(j,4) f[j][tot]=f[j][tot<<1]+f[j][(tot<<1)+1];}int get(int tot,int l,int r,int ll,int rr){ if (ll<=l && r<=rr) { int res = 0; REP(j,4) res += (1<<j)*f[j][tot]; return res; } mark(tot); int t1=0,t2=0; if (ll<=(l+r) >> 1) t1 = get(tot<<1,l,(l+r) >> 1,ll,rr); if (rr>(l+r) >> 1) t2 = get((tot<<1)+1,((l+r) >> 1)+1,r,ll,rr); return t1+t2;} void solve(){ int l,r; char ch; while (m--) { REP(j,3) scanf("%c",&ch); switch (ch) { case 'R':scanf("%d%d%d/n",&l,&r,&z);insert(1,1,n,l,r);break; case 'M':scanf("%d%d/n",&l,&r);printf("%d/n",get(1,1,n,l,r));break; } }}int main(){ init(); solve(); return 0;}

第三题

program nov7t3;var n,tot,test:longint; x,l,r:extended; first:array[0..300]of longint; bian:array[0..100000]of record x,y,next:longint;c:extended;end; w:array[0..300]of extended;procedure connect(a,b:longint;d:extended);begin inc(tot); with bian[tot] do begin x:=a; y:=b; c:=d; nexT:=first[x]; first[x]:=tot; end;end;procedure init;var i,j:longint;begin readln(n,l,r); l:=ln(l); r:=ln(r); tot:=0; for i:=1 to 2*n do first[i]:=0; for i:=1 to n do for j:=1 to n do begin read(x); x:=ln(x); connect(i,n+j,r-x); connect(j+n,i,x-l); end; for i:=1 to 2*n do w[i]:=0;end;function bell:boolean;var time,i,k:longint; t:boolean;begin for time:=1 to 2*n do begin t:=true; for i:=1 to 2*n do begin k:=first[i]; while k<>0 do with bian[k] do begin if w[x]+c<w[y] then begin w[y]:=w[x]+c; t:=false; end; k:=next; end; end; if t then exit(true); end; exit(false);end;begin readln(test); while test>0 do begin init; if bell then writeln('Yes') else writeln('No'); dec(TesT); end;end.