[poj]1065——偏序关系

[题目大意]
  • 给定一系列的二元组,求一个排列使得总代价最小。当在一个排列中,某一个二元组的两个值不“都不小于”前一个二元组对应的两个值,就会产生1单位的代价。

[分析题解]
  •  很基本的一道偏序关系的题目。将题目中给的关系定义为一个偏序关系,根据Dilworth定理:令(X,≤)是一个有限偏序集,并令m是反链的最大的大小。则X可以被划分成m个但不能再少的链。所谓的链,就是一个满足偏序关系的序列。这样题目就转化为求二元组中的最长反链的长度。这样,我们按照第一关键字从小到大,第二关键字也从小到大来排列整个序列,然后对第二关键字求最长下降子序列即可。道理是很简单的,因为我们在排序之后,整个第一关键字都是满足偏序关系的,所以只要第二关键字不满足,那就证明不满足。而第二关键字不满足的条件就是后面的数小于前面的数,求一个最长下降子序列就是反链的最大的大小,也就是链的最小数目,即题目的答案。


[个人代码]
  • ExpandedBlockStart.gif View Code
     1 // 10075726      perseawe         1065    Accepted        932K    94MS    Pascal  1253B    2012- 04- 15  17: 58: 56 
     2 
     3 Var
     4   n,ans,CaseNum:Longint;
     5   F,Len,Wgt:Array [ 0.. 5001of Longint;
     6 
     7 Procedure Init;
     8    var
     9     i:Longint;
    10    begin
    11     readln(n);
    12      for i:= 1  to n  do read(len[i],wgt[i]);readln;
    13    end;
    14 
    15 Procedure Qsort(l,r:Longint);
    16    var
    17     a,b,Mid1,Mid2,t:Longint;
    18    begin
    19     a:=l;b:=r;mid1:=len[(l+r) shr  1];mid2:=wgt[(l+r) shr  1];
    20     Repeat
    21        while (len[a]<mid1)Or((len[a]=mid1) and(wgt[a]<mid2))  do inc(a);
    22        while (len[b]>mid1)Or((len[b]=mid1) and(wgt[b]>mid2))  do dec(b);
    23        if a<=b  then
    24          begin
    25           t:=len[a];len[a]:=len[b];len[b]:=t;
    26           t:=wgt[a];wgt[a]:=wgt[b];wgt[b]:=t;
    27           inc(a);dec(b);
    28          end;
    29     Until a>=b;
    30      if a<r  then Qsort(a,r);
    31      if l<b  then Qsort(l,b);
    32    end;
    33 
    34 Procedure Main;
    35    var
    36     I,J:Longint;
    37    begin
    38     Qsort( 1,n);
    39     For I:= 1  to N  do F[I]:= 1;
    40     For I:=N- 1  downto  1  do
    41       For J:=I+ 1  to N  do
    42         If (wgt[I]>wgt[J]) and(F[I]<F[J]+ 1then
    43           F[I]:=F[J]+ 1;
    44     ans:= 1;
    45     For I:= 1  to N  do
    46        if F[I]>ans  then ans:=F[I];
    47    end;
    48 
    49 Procedure print;
    50    begin
    51     writeln(ans);
    52    end;
    53 
    54 Begin
    55   Readln(CaseNum);
    56   While Not(CaseNum= 0do
    57      begin
    58       Init;
    59       Main;
    60       Print;
    61       Dec(CaseNum);
    62      end;
    63 End.

[相关链接] 
  1. 偏序集http://baike.baidu.com/view/4462770.htm
  2. 相同类型的题目Poj3636

[启发总结]
  1.  也可以贪心之类的搞一下

转载于:https://www.cnblogs.com/perseawe/archive/2012/04/15/Poj1065.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值