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

kangwenyi

顶~~~~~~~~~~~{:3_187:}

mjus

1. 
   
2. #!perl -w
   
3.     my @A = ( [ 'A' .. 'B' ], [ 1 .. 2 ], [ 'a', 'b' ] );
   
4.     print "{", join(", ", @$_), "}\n" for gnr(@A);
   
5. 
   
6. sub gnr{
   
7.     my $tail = pop @_;
   
8.     return map { my $left = $_; map [@$left, $_], @$tail } gnr(@_) if (@_);
   
9.     return map [$_], @$tail;
   
10. }
    

复制代码

rubyish

回复 12# mjus

很漂亮的代码，据我所知，貌似不是 generator ...

rubyish

回复 7# 104359176
据我所知，也貌似不是 generator ...

   

rubyish

貌似写成 generator
只有 zhlong8版主 这个算法了 ~

alpha14

用closure，应该可以写出generator吧

alpha14

用闭包做了个。不知道大家觉得如何。

1. use warnings;
   
2. use strict;
   
3. 
   
4. sub Genterator
   
5. {
   
6.     my ( $raList ) = shift;
   
7.     return 0 if not $raList or
   
8.                 not @{ $raList };
   
9.    
   
10.     my ( $sStartIndex ) = 0;
    
11.    
    
12.     return sub {
    
13.         return 0 if $sStartIndex > $#{ $raList->[0] };
    
14. 
    
15.         my $sValue = join(" ", map { $_->[ $sStartIndex ] }  @{ $raList });
    
16.         $sStartIndex++;
    
17.         return $sValue;
    
18.     }
    
19. }
    
20. 
    
21. 
    
22. sub Test
    
23. {
    
24.     my @A = ( [ 'A' ,"B", 'C',"D" ],
    
25.               [ 1,2,3,4 ],
    
26.               [ 'a', 'b', "c", "d" ] );
    
27.     my $crGenterator =  Genterator( \@A );
    
28.     while( my $sValue = $crGenterator->() ){
    
29.         print "$sValue\n";
    
30.     }
    
31. }
    
32. 
    
33. Test();

复制代码

rubyish

回复 16# alpha14

这个 ?

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my @A = ( [ 1 .. 3 ], [ 'A' .. 'C' ], [ 'a' .. 'b' ] );
   
4. 
   
5. sub cross {
   
6.     my ( $i, $E, $t, $A ) = ( -1, 1, 1, shift );
   
7.     my @E = map { $E *= @$_; scalar @$_ } @$A;
   
8.     my @M = reverse 1, map $t = $t * $E[ -$_ ], 1 .. $#E;
   
9.     $E -= 1;
   
10.     sub {
    
11.         return if $i++ == $E;
    
12.         [ map $A->[$_][ $i / $M[$_] % $E[$_] ], 0 .. $#E ];
    
13.     };
    
14. }
    
15. my $gen = cross \@A;
    
16. while ( my $r = $gen->() ) {
    
17.     say "@$r";
    
18. }

复制代码

rubyish

alpha14 发表于 2013-06-15 15:29
用闭包做了个。不知道大家觉得如何。

    3Q 大牛~
仔细研究研究 ~

alpha14

回复 18# rubyish


好像是类似的思路。用闭包做迭代器吧。我想是这样的