从多个数组中各取一个元素，组合有多少种呢,急~~？

pp1984829

回复 10# rubyish
谢谢，我看看你的帖子去

   

pp1984829

回复 10# rubyish


非常感谢你的答复，因为我的场景数据量比较大，相当于有16个数组，每个数组中有15个元素，求从每个数组中选出一个数的所有组合，如果用递归的话速度确实很慢很慢，所以想找一个比较快速的方法。

   

pp1984829

1. use 5.016;
   
2. 
   
3. sub hello { map "@$_$/", @_ }
   
4. sub to { @_ ? map { my $h = $_; map [$h, @$_], to(@_) } @{+shift}:[] }
   
5. my @yesterday = ( [qw/M1 M2 M3 M4 M5 M6 M7 M8 M9 M10/],[qw/M11 M12 M13 M14 M15 M16 M17 M18 M19 M20/],[qw/M21 M22 M23 M24 M25 M26 M27 M28 M29 M30/],[qw/M31 M32 M33 M34 M35 M36 M37 M38 M39 M40/],[qw/M41 M42 M43 M44 M45 M46 M47 M48 M49 M50/],[qw/M51 M52 M53 M54 M55 M56 M57 M58 M59 M60/],[qw/M61 M62 M63 M64 M65 M66 M67 M68 M69 M70/],[qw/ M71 M72 M73 M74 M75 M76 M77 M78 M79 M80/],[qw/M81 M82 M83 M84 M85 M86 M87 M88 M89 M90/],[qw/M91 M92 M93 M94 M95 M96 M97 M98 M99 M100/],[qw/M101 M102 M103 M104 M105 M106 M107 M108 M109 M110/] );
   
6. say hello to @yesterday;

复制代码

返回了Killed。。。。。内存。。。。

rubyish

16个数组，每个数组中有15个元素
15 ** 16 = 6568408355712890625

保存为文件就有 6568408355712890625 行
太大不能指望计算