灵魂图解 —— Perl 递归排列过程

523066680

CU有个帖子要枚举九宫格满足横竖对角线和相同的情况，有个排列代码比较精简，应题主要求做详细说明，顺便发这里一份。

代码：http://bbs.chinaunix.net/forum.p ... ;page=1#pid24638198

将排列的部分单独提取：

1. #Code by: rubyish
   
2. E_( [ 1 .. 9 ], [] );
   
3. 
   
4. sub E_
   
5. {
   
6.     my ( $a, $b ) = @_;
   
7.     #此处省略若干代码
   
8.     E_( [ @$a[ 0 .. $_ - 1, $_ + 1 .. $#$a ] ], [ @$b, $a->[$_] ] )
   
9.         for 0 .. $#$a;
   
10. }

复制代码

图解（假设元素是a,b,c）：


虽然我觉得大家都懂，但是做图这个工艺活我很喜欢。