注意min开大些，刚开始只开到10000，结果一个点都没过，全都输出10000

赋成maxlonignt，就OKl

var d:array[1..10000] of int64;

f:array[1..10000] of int64;

l1,l2,l3,c1,c2,c3,n,i,j,a,b,min:longint;

function price(d:longint):longint;

begin

if (0

最后两个点的费用。。

不是应该要小于10^9吗？

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 9ms

├ 测试数据 08：答案正确... 56ms

├ 测试数据 09：答案正确... 88ms

├ 测试数据 10：答案正确... 72ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：225ms

DP练手的= =发现自己用while写= =循环条件纠结= =

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

单调栈,秒杀

突然发现二分细节很多......

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

直接DP

918 国耻数啊

单调队列 用二分秒杀

我就真的想不通了 为什么老是运行时错误 错误号6，人品问题吗？还请大牛解释下吧

特别想知道

样例

最后一行的 23

是怎么回事...

骗人的10^9

最后两个点给定两个车站的费用超过10^9了

害得我没一次过

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

111题，哈，光棍了

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 9ms

├ 测试数据 09：答案正确... 56ms

├ 测试数据 10：答案正确... 56ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：121ms

过了

最大值

min的最大值啊！！！！！！一定要做大，否则一个点也不过。怎么可能

我难得的1次ac

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 134ms

├ 测试数据 06：答案正确... 212ms

├ 测试数据 07：答案正确... 353ms

├ 测试数据 08：答案正确... 650ms

├ 测试数据 09：答案正确... 838ms

├ 测试数据 10：答案正确... 838ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：3025ms

很慢，不过才27行。。简单的DP，我就是残暴的枚举可能到达的点，然后向后退，没超时。。

感谢6627651a的DP方程。。。DP就是不会写方程啊~~

var

n,i,j,k,s,e:longint;

c,l:array[1..3] of longint;

dis:array[1..10000] of longint;

f:array[1..10000] of int64;

function min(x,y:longint):longint;

begin

if x>y then min:=y

else min:=x;

end;

begin

for i:=1 to 3 do

read(l[i]);

for i:=1 to 3 do

read(c[i]);

readln;

readln(n);

readln(s,e);

dis[1]:=0;

for i:=2 to n do

readln(dis[i]);

for i:=s+1 to e do

begin

f[i]:=2000000000;

for j:=s to i-1 do

for k:=1 to 3 do

if dis[i]-dis[j]

Accepted 有效得分：100 有效耗时：303ms

方程和最长非降子序列类似

原来是一条线！我当是图呢

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 9ms

├ 测试数据 08：答案正确... 88ms

├ 测试数据 09：答案正确... 103ms

├ 测试数据 10：答案正确... 134ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：334ms

program afd;

var l1,l2,l3,c1,c2,c3:longint;

n,i,j,a,b:integer;

post:Array[0..10000] of longint;

f:array[0..10000] of int64;

//////////////////////////////////////////////

function cost(i,j:integer):int64;

var r:longint;

begin

r:=post[i]-post[j];

if rl1) and (rl2) and (r

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

给出的数据范围有问题，距离要开到2*10e9