免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
最近访问板块 发新帖
查看: 3637 | 回复: 7

求教:如何对归属关系进行等级标注? [复制链接]

论坛徽章:
8
技术图书徽章
日期:2013-08-22 11:21:28未羊
日期:2015-01-19 22:22:25巳蛇
日期:2014-08-11 16:53:08子鼠
日期:2014-05-29 09:04:44摩羯座
日期:2014-04-11 14:15:07丑牛
日期:2014-01-24 12:41:28金牛座
日期:2013-11-21 17:38:28射手座
日期:2015-01-21 08:50:32
发表于 2014-10-23 09:13 |显示全部楼层
30可用积分
对于以下文本,右边是左边的子类,右边只可能有一个,应该怎么做才能对他们的等级进行标注呢?

__DATA__
A     B
B;C;D E                                      
B     C
B;E   F
C;G   I
I;J;B K
C  J

标注为:

A : A->B->C->I;J->K;
D: D->E->F;
G:G->I->K;

最佳答案

查看完整内容

这个东东,还是有点意思啊··写到一半,mark一下。我想问下 A->B->C->I;J->KA->B->C->E->F是如何取舍的?取元素最多那个?

论坛徽章:
8
技术图书徽章
日期:2013-09-30 08:51:28技术图书徽章
日期:2013-12-11 09:26:39白羊座
日期:2013-12-27 15:27:13金牛座
日期:2014-01-06 09:13:05天蝎座
日期:2014-01-21 14:23:28酉鸡
日期:2014-05-09 16:51:12卯兔
日期:2014-08-11 16:49:1515-16赛季CBA联赛之八一
日期:2017-08-14 23:24:57
发表于 2014-10-23 09:13 |显示全部楼层
本帖最后由 xiumu2280 于 2014-10-23 14:37 编辑
  1. my %family;

  2. while (<DATA>) {
  3.         chomp;
  4.     my @person = split /;|\s+/;
  5.     my $son    = pop @person;
  6.    
  7.     $family{$_}{$son} = 1 for @person;
  8. }

  9. my @all_data;
  10. for my $person ( sort keys %family ) {
  11.         my @team;
  12.         _repeat ($person,\%family,\@team);
  13. }

  14. @all_data = _uniq(@all_data);

  15. for my $f (@all_data) {
  16.         print +(join "->",@{$f})."\n";
  17. }

  18. sub _repeat {
  19.         my ($goal,$family,$team) = @_;
  20.         my %hash = %{$family};
  21.         my @t = @{$team};
  22.         if ($hash{$goal}) {
  23.                 push @t,$goal;
  24.                 for my $key (keys %{$hash{$goal}}) {
  25.                         _repeat($key,$family,\@t);
  26.                 }
  27.         }else{
  28.                 push @t,$goal;
  29.                 push @all_data,[@t];
  30.                 return;
  31.         }
  32. }

  33. sub _uniq {
  34.         my @data = @_;
  35.         for my $n (0..$#data) {
  36.                 my $arr = $data[$n];
  37.                 for my $array (@data) {
  38.                         if (defined $array && scalar(@$arr) < scalar(@$array)) {
  39.                                 my %uniq;
  40.                                 @uniq{@$arr}=@$arr;
  41.                                 my @uni = grep{$uniq{$_}}@$array;
  42.                                 if (@uni == @$arr) {
  43.                                         undef ($data[$n]);
  44.                                 }
  45.                         }
  46.                 }
  47.         }
  48.         @data = grep {defined}@data;
  49.         return @data;
  50. }

  51. __DATA__
  52. A     B
  53. B;C;D E                                      
  54. B     C
  55. B;E   F
  56. C;G   I
  57. I;J;B K
  58. C  J
复制代码
这个东东,还是有点意思啊··
写到一半,mark一下。
  1. A->B->C->J->K
  2. A->B->C->I->K
  3. A->B->C->E->F
  4. D->E->F
  5. G->I->K
复制代码
我想问下
A->B->C->I;J->K
A->B->C->E->F
是如何取舍的?取元素最多那个?

论坛徽章:
0
发表于 2014-10-23 11:23 |显示全部楼层
我的理解的,从图上得到
A: A->B
B: B->E
C: C->E
D: D->E
B: B->C
B: B->F
E: E->F
C: C->I
G: G->I
I: I->K
J: J->K
B: B->K
C: C->J
这些基本信息,然后根据关系组合在一起,对吗?

论坛徽章:
8
技术图书徽章
日期:2013-08-22 11:21:28未羊
日期:2015-01-19 22:22:25巳蛇
日期:2014-08-11 16:53:08子鼠
日期:2014-05-29 09:04:44摩羯座
日期:2014-04-11 14:15:07丑牛
日期:2014-01-24 12:41:28金牛座
日期:2013-11-21 17:38:28射手座
日期:2015-01-21 08:50:32
发表于 2014-10-23 12:25 |显示全部楼层
本帖最后由 huang6894 于 2014-10-23 12:26 编辑

回复 2# lpnueg4


    是呀~很纠结不知道如何排列组合,因为基本情况中的两个元素中间可能会有其它元素

论坛徽章:
8
技术图书徽章
日期:2013-08-22 11:21:28未羊
日期:2015-01-19 22:22:25巳蛇
日期:2014-08-11 16:53:08子鼠
日期:2014-05-29 09:04:44摩羯座
日期:2014-04-11 14:15:07丑牛
日期:2014-01-24 12:41:28金牛座
日期:2013-11-21 17:38:28射手座
日期:2015-01-21 08:50:32
发表于 2014-10-23 14:49 |显示全部楼层
回复 4# xiumu2280


    sorry,是我太马虎了。。。

不用取舍,就是求个家族史:
A->B->C->I;J->K
A->B->C->E->F

是对的,谢谢大神,我需要好好研究一下您的代码,谢谢,谢谢

论坛徽章:
0
发表于 2014-10-23 15:44 |显示全部楼层
写了一大堆,还没写出来,结果就看见大神写好了,厉害!

论坛徽章:
8
技术图书徽章
日期:2013-08-22 11:21:28未羊
日期:2015-01-19 22:22:25巳蛇
日期:2014-08-11 16:53:08子鼠
日期:2014-05-29 09:04:44摩羯座
日期:2014-04-11 14:15:07丑牛
日期:2014-01-24 12:41:28金牛座
日期:2013-11-21 17:38:28射手座
日期:2015-01-21 08:50:32
发表于 2014-10-23 17:48 |显示全部楼层
回复 6# lpnueg4


    谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号:11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们:huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP