多数组内容排列组合

Perlvim

有多个数组，每个数组中取一个值，组合成一个字符串，生成所有的排列组合可能。

my @n = ( 1 .. 3 );
my @m = ( 1 .. 4);
my @f  = ( 1 .. 5);

生成
111
112
。。。
345

eperl

1. #!perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use 5.010;
   
6. use List::Util qw(shuffle);
   
7. use Data::Dumper qw(Dumper);
   
8. 
   
9. my $list = [
   
10.     [1 .. 4],
    
11.     [2 .. 5],
    
12.     ['a','b','c'],
    
13. ];
    
14. 
    
15. # get the amount of permutation of all array
    
16. my $permutation_amount = 1;
    
17. for (values @{$list}) {
    
18.     $permutation_amount *= scalar @{$_};;
    
19. }
    
20. 
    
21. my $ref_hash_permutation = {};
    
22. # If amount of permutation is lost control, restrict the result
    
23. for (1 .. 100) {
    
24.     state $count = 0;
    
25.     last if ($count == $permutation_amount);
    
26.     my $str = random($list);
    
27.     $count++ if (not exists $ref_hash_permutation->{$str});
    
28.     $ref_hash_permutation->{$str}++;
    
29. }
    
30. 
    
31. say Dumper($ref_hash_permutation);
    
32. 
    
33. sub random {
    
34.     my ($list) = @_;
    
35.     my $join_text;
    
36.     for (@{$list}) {
    
37.         $join_text .= shuffle @{$_};
    
38.     }
    
39.     return $join_text;
    
40. }
    
41. 
    

复制代码

zhlong8

要我就用递归了，但是这个是有模块的，但是模块叫什么名字我卡壳了

楼下知道

Perlvim

回复 2# lxb456900

数组长度不同，个数也不一定是3个。



   

Perlvim

回复 3# zhlong8

第一次听到楼下知道的说法。


   

yinyuemi

回复 5# Perlvim


    key word “Permutation” 在CPAN上找找，应该有现成的

Perlvim

1. #!perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use 5.010;
   
6. use Data::Dumper qw(Dumper);
   
7. 
   
8. my $list = [
   
9.     [1 .. 4],
   
10.     [2 .. 5],
    
11.     ['a','b','c'],
    
12. ];
    
13. 
    
14. my $str_list = create($list);
    
15. say Dumper($str_list);
    
16. 
    
17. sub create {
    
18.     my ($list) = @_;
    
19.     # 初始化序列
    
20.     my $str_list = [ '' ];
    
21.     foreach my $ref (@{$list}) {
    
22.         $str_list = create_list($str_list, $ref);
    
23.     }
    
24.     return $str_list;
    
25. }
    
26. 
    
27. # 根据列表创建列表
    
28. sub create_list {
    
29.     my ($ref_str_list, $ref_array) = @_;
    
30.     my @return_array;
    
31.     foreach my $str (@{$ref_str_list}) {
    
32.         foreach my $element (@{$ref_array}) {
    
33.             push @return_array, "${str}$element";
    
34.         }
    
35.     }
    
36.     return \@return_array;
    
37. }
    

复制代码

Perlvim

这个算法的需求是要写测试集而产生的。
测试指定的一些函数，每个函数都有几个参数，每个参数都有一个范围。
函数较多，有几百个，参数也较多，最多的有7，8个，手动写测试集太辛苦了。于是想到了自动写。

实际的需求较复杂，每个参数都有一个名字，便于查询，还有默认值和是否必须提供，没有提供参数的默认值，返回值列表。

不过用程序写程序，是解决大量工作的捷径，关键是深入理解工作内容。

zhlong8

sub perm {
    my @result;
    while (@_) {
        my $current = pop @_;
        unless (@result) {
            push @result, map [$_], @$current;
            next;
        }
        my @data = @result;
        @result = ();
        for my $item (@$current) {
            push @result, map [$item, @$_], @data;
        }
    }
    return \@result;
}