请大牛指导多数组内容排列 写成 generator

rubyish

my @A = ( [ 'A' .. 'B' ], [ 1 .. 2 ], [ 'a', 'b' ] );

result:

1. A 1 a
   
2. A 1 b
   
3. A 2 a
   
4. A 2 b
   
5. B 1 a
   
6. B 1 b
   
7. B 2 a
   
8. B 2 b

复制代码

zhlong8版主说了 :

1. 但是由于这个结果数是指数增长的，所以数目比较大时写成 generator 更好

复制代码

请大牛指导写个generator

zhlong8

use strict;
use warnings;

package Perm;

sub new {
    my $class = shift;
    my $prod = 1;
    $prod *= @$_ for @_;
    bless {
        data => [@_],
        idx  => -1,
        size => [map scalar @$_, @_],
        max  => $prod,
    }, $class;
}

sub _next {
    my $self = shift;
    $self->{idx}++;
    return 0 if $self->{idx} >= $self->{max};
    my @idx  = _select($self->{size}, $self->{idx});
    my $data = $self->{data};
    [map $data->[$_]->[$idx[$_]], 0 .. $#idx];
}

sub _select {
    my($size, $idx) = @_;
    my @result;
    for (reverse @$size) {
        push @result, $idx % $_;
        $idx = int($idx / $_);
    }
    return reverse @result;
}

package main;

my $t = Perm->new(['a3', 'jj', 'm@', 'cc'], ['===>'], [1, 2 ,3, 4], [qw/@  $ %/]);
while ($_ = $t->_next) {
    print "@$_\n";
}

kk861123

赞啊{:3_190:}

mcshell

老大出面 就是不一样{:3_186:}{:3_186:}{:3_186:}

rubyish

牛~ {:3_188:} {:3_188:} {:3_188:}

rubyish

简而言之，版主 very 强大
3Q~

104359176

1. #!perl
   
2. 
   
3. use 5.010;
   
4. use YAML qw(Dump);
   
5. 
   
6. my @A = ( [ 'A' .. 'B' ], [ 1 .. 2 ], [ 'a', 'b' ] );
   
7. 
   
8. say Dump(generator(@A));
   
9. 
   
10. sub _combin {
    
11.   my ($array1, $array2) = @_;
    
12.   my @array = ();
    
13.   foreach my $i (@{$array1}) {
    
14.     foreach my $j (@{$array2}) {
    
15.       push @array, "$i $j";
    
16.     }
    
17.   }
    
18.   return [@array];
    
19. }
    
20. 
    
21. sub generator {
    
22.   my @array = @_;
    
23.   my $first_array = shift @array;
    
24.   foreach my $key (@array) {
    
25.     $first_array = _combin($first_array, $key);
    
26.   }
    
27.   return $first_array;
    
28. }
    

复制代码

只是一个红薯

厉害

rubyish

104359176 发表于 2013-06-14 11:31

大牛啊~

yybmsrs

代码很漂亮，纯粹的perl风格