去除子集

清泉一边

各位大神，
由数组 @a = ([1,5],[2,4],[6,12],[8,10]); 怎样得到 @b=([1,5],[6,12])呢？
即数组中某匿名数组元素 如果是 其中另外某元素匿名数组的子集，则去掉。
感谢大神的帮忙！

清泉一边

自己顶一下~回复 1# 清泉一边


   

afukada

你的意思是
[2,4]是[1,5]的子集
所以去掉
[8,10]是[6,12]的子集
所以去掉

是這樣嗎?

清泉一边

是的~回复 3# afukada


   

felix0608

1. #! /usr/bin/perl -w
   
2. use strict;
   
3. use Data::Dumper;
   
4. my @a = ([1,5],[2,4],[6,12],[8,10]);
   
5. @a = map{$_->[0]}
   
6.         sort{$a->[1] <=> $b->[1] || $a->[2] <=> $b->[2]}
   
7.                 map{[$_,@$_]}@a;
   
8. for(my $i=0;$i<$#a;$i++){
   
9.         if($a[$i]->[0] <= $a[$i+1]->[0] && $a[$i]->[1] >= $a[$i+1]->[1]){
   
10.                 $a[$i+1] = $a[$i];
    
11.                 $a[$i] = "";
    
12.         }
    
13. }
    
14. my @new = grep {!/^$/}@a;
    
15. print Dumper @new;

复制代码

ljqican

1. use 5.020;
   
2. use warnings;
   
3. use List::Util qw(pairgrep none);
   
4. use Data::Dumper;
   
5. 
   
6. my @a = ([1,5],[2,4],[6,12],[8,10]);
   
7. my %h;
   
8. for (0..(@a - 1)) {
   
9.         $h{$_} = $a[$_];
   
10. }
    
11. my %p = pairgrep {
    
12.         none { $b->[0] >= $h{$_}->[0] &&
    
13.                          $b->[1] <= $h{$_}->[1]  }
    
14.           grep { $_ != $a } keys %h;
    
15. } %h;
    
16. my @b = @a[sort keys %p];
    
17. say Dumper(@b);

复制代码

ljqican

不小心發多一次，用好map、grep和List::Util，可以解決很多問題啦

substr函数

原来如此，谢谢！