Rob*_*man 11

我不知道任何现有的功能.你的第一个建议将失败,大n.作为函数编写时,您的第二个想法应该可以正常工作:

perm <- function(n,k){choose(n,k) * factorial(k)}
Run Code Online (Sandbox Code Playgroud)

然后perm(500,2)以249500为例.

  • 第一个建议可以重写为“exp(lfactorial(n) - lfactorial(nk))”。但我也会使用第二个。 (2认同)