在文章《以梦为马，不负韶华——CSP2019考前提醒》发表评论：

RP++

题目大意： 平面上有(0,0)到(n,m)的(n+1)\*(m+1)个点。问有多少点对所连的线段不过其他点，且长度在[l,h]范围内。

```cpp var i,n,m,d,sum,x,l,ans,j:longint; a:array[1..50001] of longint; b:array[1..50001] of boolean; procedure qsort(l,r:longint); var i,j,mid,t:longint; begin…

```cpp var f:array[1..10001] of char; x,y,x1,y1,x2,y2,a,b,r:array[1..10001] of extended; i,j,sum,n,m:longint; begin readln(n,m); for i:=1 to n do begin read(f[i…

在讨论《lzn在noip2016前夕的重要讲话》回复：

rp:=maxlongint; while 1>0 do inc(rp,maxlongint);

**最大流=最小割，我就不解释了。这个题的难点在于如何求得删去的边数，因为最大流=最小割，所以如果删掉了这条边后再求一边最大流和之前的最大流比较正好少了删掉的那条边的边权，那么这条边一定是属于最小割里面的。又因为要求停的卡车数量最小，所以将边权从大到小排序后再枚举删边（比如删除流量为3的比1,2的优秀，前提是都符合最小…

在讨论《看不出来，这题哪里是哈希了？？》回复：

作为一个P党的感言。

在讨论《看不出来，这题哪里是哈希了？？》回复：

感觉貌似用set更好。

在讨论《为啥“运行时错误”？》回复：

不应该是for(i=1;i<=10;i++)吗

```cpp # include # include # include # include # include # include using namespace std; const int MODN = 10007; const int MAXN = 1234568; ``` /\*快速幂\*/ ```cpp i…

```cpp var n:integer; ans:integer; a:array[1..50,0..1]of integer; i,j,k:integer; begin read(n); a[1,1]:=1;a[1,0]:=1; for i:=2 to n do begin a[i,1]:=a[i-1,0]; a[…

首先，此句————一个数N（N<100,000,000)————显然并没有什么卵用，因为我用最暴力的十重循环都不会爆。然而更值得注意的是，此题，难道跟烤鸡那题有什么区别吗？（如果一个数N（N<100,000,000)真的是假的）

在讨论《为什么只有50分？》回复：

a[i,1]+a[i,3]要减1，a[i,2]+a[i,4]也要减1。

在讨论《lzn在noip2015前夕的重要讲话》回复：

RP++了，祝水题全AC、不会的暴力+枚举全能骗到50+

```cpp var a,b:array[0..200000] of longint; m,d,i,p,t,s,f,le,ri,u:longint; k:char; w:dword; begin readln(m,d); s:=0; f:=0; a[0]:=maxlongint; for i:=1 to m do be…

```cpp type tree=record l,r,lc,rc,ma:longint; end; const maxm=200001; var i,j,n,m,d,x,y,tot,l,temp:longint; s:string; t:array[0..maxm*2] of tree; function max(a…

```cpp var x1,x2,y1,y2,n,i,sa,sb,aa,ba,ans:longint; a:array[0..100000,1..2]of longint; begin readln(x1,y1,x2,y2); readln(n); for i:=1 to n do readln(a[i,1],a[i,…

在讨论《最后一个超时》回复：

简单的暴力

在讨论《最后一个超时》回复：

```cpp var a:array[1..1001] of longint; b:array[1..1001] of boolean; n,ans,i,j,k:longint; begin readln(n); ans:=0; for i:=1 to n do read(a[i]); for i:=1 to n do…

```cpp var k,m,j,i,n:longint; c:array[0..10010] of longint; f:array[1..20020] of longint; begin readln(n); m:=0; c[0]:=10000; for i:=1 to n do begin read(k); c[…

在讨论《关于剥夺 曹彦臣 创建比赛的决议》回复：

@[url=/space/show?uid=5913]lmyEA[/url] 20套模拟试题里的题百分之九十都能搜到

在讨论《关于剥夺 曹彦臣 创建比赛的决议》回复：

@[url=/space/show?uid=5913]lmyEA[/url] 你出的题不也是20套模拟题上的吗

在讨论《关于剥夺 曹彦臣 创建比赛的决议》回复：

@[url=/space/show?uid=5913]lmyEA[/url] 你出的题不也是20套模拟题上的吗

在讨论《比赛举报帖》回复：

@[url=/space/show?uid=5680]夏浅默[/url] 已更改题目：只需判断“yes”和“no”，无需输出第二行。

```cpp var n,x:extended; begin readln(n); x:=n/23*1; write(x:0:8); end. ```

在讨论《比赛举报帖》回复：

Misson3-无处可逃 貌似就是P1378的原题“油滴扩展”。

```cpp var a,b,c:array[0..1000] of longint; f:array[0..100,0..100] of longint; t1,t2,n,m,t,i,j,l:longint; begin fillchar(f,sizeof(f),$7f); f[0,0]:=0; readln(n,m…

在讨论《为什么只得了20分？求助大神》回复：

```cpp var a:longint; x,y,z:extended; begin read(x); z:=2; while y<x do begin y:=y+z; z:=0.98*z; inc(a); end; write(a); end. ```

在讨论《循环多了超时，循环少了访问无效内存……》回复：

```cpp var father:array[1..1000000] of longint; d:array[1..1000000,1..3] of qword; i,n,j,q,s:longint; a,b,c:qword; function getfather(u:longint):longint; begin…