如何用perl实现求数组子集的问题呢

rubyish

数组为 :

1. my @a = 'a' .. 'd';

复制代码

1. d
   
2. c
   
3. c d
   
4. b
   
5. b d
   
6. b c
   
7. b c d
   
8. a
   
9. a d
   
10. a c
    
11. a c d
    
12. a b
    
13. a b d
    
14. a b c
    
15. a b c d
    

复制代码

rubyish

a sub :

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. 
   
4. my @a = 'a' .. 'd';
   
5. 
   
6. sub SS {
   
7.     my $t = '%0' . @_ . 'b';
   
8.     map {
   
9.         my @b = split '', sprintf $t, $_;
   
10.         [ @_[ grep $b[$_], 0 .. $#b ] ]
    
11.     } 1 .. 2**@_ - 1;
    
12. }
    
13. 
    
14. my @SS = SS @a;
    
15. say "@$_" for @SS;

复制代码