poj 1201 Intervals

题目大意

有一个序列，题目用n个整数组合 [ai，bi，ci]来描述它，[ai，bi，ci]表示在该序列中处于[ai，bi]这个区间的整数至少有ci个。如果存在这样的序列，请求出满足题目要求的最短的序列长度是多少。如果不存在则输出 -1。

输入

第一行包括一个整数n，表示区间个数，以下n行每行描述这些区间，第i+1行三个整数ai，bi，ci，由空格隔开，其中0<=ai<=bi<=50000 而且 1<=ci<=bi-ai+1。

输出

一行，输出满足要求的序列的长度的最小值。

分析

无路赛

代码

const  maxe=60000;  maxv=1000000;type  arr=record    x,y,w,next:longint;end;var  n,m,s:longint;  nm:longint;  a:array[0..maxv] of arr;  d:array[0..maxe] of longint;  v1:array[0..maxe] of longint;  ls:array[0..maxe] of longint;  stick:array[0..maxv] of longint;  head,tail:longint;  x,y,w:longint;  i,j,k:longint;  flag:boolean;  flaj:array[0..maxe] of longint;  max:longint;procedure relax(u,v,w:longint);begin  if d[u]+w<d[v] then    begin      d[v]:=d[u]+w;      if v1[v]=0        then begin          head:=head+1;          stick[head]:=v;          flaj[v]:=flaj[v]+1;          v1[v]:=1;        end;    end;end;procedure bellman;var  i,j:longint;begin  head:=1;  stick[head]:=1;  v1[1]:=1;  repeat    j:=stick[head];    i:=ls[stick[head]];    head:=head-1;    while i<>0 do      with a[i] do        begin          relax(x,y,w);          if flaj[y]>n then            begin              flag:=true;              exit;            end;          i:=next;        end;    v1[j]:=0;  until head=0;end;procedure add(x,y,w:longint);begin  nm:=nm+1;  a[nm].x:=x;  a[nm].y:=y;  a[nm].w:=w;  a[nm].next:=ls[x];  ls[x]:=nm;end;begin  readln(m);  fillchar(a,sizeof(a),0);  fillchar(d,sizeof(d),$7f);  n:=0;  max:=d[1];  for j:=1 to m do    begin      read(x,y,w);      add(x,y+1,-w);      //add(y+1,x,y-x+1);      if      if y>n then n:=y;    end;  for j:=0 to n+1 do    begin      add(j,j+1,0);      add(j+1,j,1);    end;  m:=nm;  n:=n+1;  d[1]:=0;  flag:=false;  bellman;  if flag    then writeln('-1')    else write(-d[n]);end.