如对本题有疑问可以参看我的题解：http://xujieqi.blog.hexun.com/35722312_d.html

感谢fjxmlhx大牛的题解

110……

type

link = ^node;

node = record

x, w : longint;

next : link;

end;

var

i, n, m, a, b, c, s, e : longint;

que : array [1..1000000] of longint;

edge : array [0..6000] of link;

d : array [0..6000] of longint;

vis : array [0..6000] of boolean;

procedure addedge ( u, v, w : longint );

var

lp : link;

begin

new ( lp );

lp^.x := v;

lp^.w := w;

lp^.next := edge;

edge := lp;

end;

function spfa () : longint;

var

u, v, h, t : longint;

lp : link;

begin

fillchar ( d, sizeof ( d ), $FF );

h := 1;

t := 1;

que[h] := 0;

d := 0;

vis := true;

while h = d + lp^.w then begin lp := lp^.next; continue; end;

d[v] := d + lp^.w;

if vis[v] then begin lp := lp^.next; continue; end;

inc ( t );

que[t] := v;

vis[v] := true;

lp := lp^.next;

end;

inc ( h );

vis := false;

end;

exit ( d[e] );

end;

begin

readln ( n, m );

for i := 1 to m do begin

read ( a, b, c );

addedge ( a, b + 1, c );

end;

for i := 0 to n do addedge ( i, i + 1, 0 );

for i := 1 to n do addedge ( i + 1, i, -1 );

e := n + 1;

s := 0;

writeln ( spfa () );

end.

差分约束也行

被水题wei了

大家要小心点

编译通过...

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

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

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

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

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

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

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

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

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

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

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

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

begin

readln(n,m); s:=0;

for i:=1 to n do

d[i]:=false;

for i:=1 to m do

readln(a[i],b[i],c[i]);

quicksort(1,m);

for i:=b[1] downto b[1]-c[1]+1 do d[i]:=true;

for i:=2 to m do

if b>=a[i] then

begin

t:=0;

for j:=a[i] to b do

if d[j]=true then inc(t);

k:=b[i];

while t

你没用快排啊？用来搞哈

贪心为什么只有10分?

var a,b,c,f:array[1..5000] of longint;

n,m,j,sum,s,tot,max,w:longint;

i:longint;

p:array[1..5000] of boolean;

begin readln(n,m);

sum:=0;

for i:=1 to m do

begin

readln(a[i],b[i],c[i]);

sum:=sum+c[i];

end;

for i:=1 to m do

for j:=a[i] to b[i] do

inc(f[j]);

fillchar(p,sizeof(p),false);

for i:=1 to n do

if f[i]>0 then p[i]:=true;

while sum>0 do

begin

s:=0;

max:=-maxlongint;

for i:=1 to n do

if max=a[i]) and (w=1 then

begin

inc(s);

dec(c[i]);

end;

end;

sum:=sum-s;

inc(tot);

p[w]:=false;

end;

writeln(tot);

end.

直接快排加贪心秒杀，1444加强，1532减弱，还好意思说原创。。。。

不会啊！！！！！！！！

为什么就50分！！！！

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

顶LS的牛

差分约束系统可以做，也好证明

贪心也可以做。。

1444加强版...贪心不是碰巧..可以证明谢谢

若是差分约束系统：

比如有这样一组不等式：

X1 - X2

一看就知道差分约束系统……怎么变成贪心了？

难道我沙茶？？？？？？？？？？？？

快排+贪心足矣轻易秒杀！

fammiebright..您写的是树状数组哈，怎么说是线段树

沙茶差分约束题，贪心只是碰巧。

快排+贪心+树状数组刚才打错了……我一直不分这俩……-_-http://www.cnblogs.com/dfs35123/archive/2009/08/09/1542379.html一次Ac，不知道什么是查分约束系统的小鸟飞过。

差分约束是王道

Find the longest path

每个地方只能种一个西瓜

差分约束系统

天花板