R版本的递归生成全排列

问题： https://mp.weixin.qq.com/s/U29Ha92GXgRTAWTXe2sOQA

递归

函数自己调用自己的过程，称为套娃 递归。
举一个简单例子， 阶乘。

fact <- function(n){
   
  if (n == 1){
   
    return(1)
  }
  res <- n * fact(n-1)
  return(res)
}
##############
> fact(9)
[1] 362880

实际上递归程序不可能一直递归循环下去，需要利用其它条件来结束递归循环。这里求阶乘的例子，就是当n==1时就结束递归循环。
这里以fact(5)为例，看程序是如何进行递归运行的

===> fact(5) 
===> 5 * fact(4)
===> 5 * (4 * fact(3))
===> 5 * (4 * (3 * fact(2)))
===> 5 * (4 * (3 * (2 * fact(1))))
===> 5 * (4 * (3 * (2 * 1)))
===> 5 * (4 * (3 * 2))
===> 5 * (4 * 6)
===> 5 * 24
===> 120

全排列

我们求全排列的有多少种，其实就可以用阶乘来表示。9个数字，排列在一起有
362880 = 9 * 8 * 7 * 6 * 5 * 4 * 3 * 2 * 1种。
即求全排列有多少种，也是可以用递归。

perm(5)(
	perm(4