置换系数
什么是置换系数置换是指将给定集合的所有成员排列成一个序列的过程。一组n个元素上的置换数由n给出！，其中“� 按斫壮擞肞（n，k）表示的置换系数表示从一组n
解答动态
APL（Dyalog扩展），5字节 ?÷?！-?左参数÷?！除以阶乘，将阶乘应用于两个参数，然后进行除法-减法-在线尝试！
Python 3.8（预发行版），51 23 21 bytes 导入数学.perm Try它在线！
编号内置：
3.8（预发布），31 bytes f=lambda n，k:k<；1或n*f（n-1，k-1） 联机试用！
JavaScript ES6，25字节 c=（n，k）=>；k？n*c（n-1，k-1）：1
c（gcc），34 32 27 bytes 节省了2字节，这要感谢Davide，他相信Irratix的JavaScript答案！！！
f（n，k）{n=k？n*f（n-1，k-1）：1；} 在线试用！
耳语v2，34字节 gt；输入gt；输出3 在线试用！
win
05AB1E的内置，1 byte ebuiltins ftw‘\（ツ）’/’
第一个输入是\$k\$，第二个输入是\$n\$。e是排列数的内置，因此\$P（n，k）=\frac{n！}{（n-k）！}\$.
联机试用或验证所有测试用例。
MathGolf，5 bytes ?!-!/ 按\$k\text{}n\$顺序输入。
联机试用。
Ex夷平面：
? #分别在堆栈上应用以下两个命令：！#取第二个（隐式）输入整数的阶乘-#从第一个（隐式）输入整数中减去第二个！#取（n-k）的阶乘/#整数除n！按（n-k）！#（在此之后，整个堆栈将作为结果隐式输出）PowerShell，28 bytes param（$a，$b）'$a--*'*$b+1
iex Try online！
PowerShell 7，43字节 $f={param（$a，$b）$b？$a*（&；$f（$a-1）（$b-1））：1} 没有TIO链接，因为TIO仍然在不支持三元运算符的PS 6上运行。
Pyth，4 .P.* 请联机试用！
Explanation Q 2元组的隐式输入。*splat.P nPr显式输出外壳，4字节 ∏↑?? 在线试用！
∏#的↑#第一个k元素（k是第二个参数）的乘积? #?#1…n的反面（n是第一个参数）Retina，37 bytes \d+*~[quot；
"；L$v`（
*）\u1$。$* 请在线试用！链接包括测试用例。以k n.Ex的顺序进行输入夷平面：
\d+* 将输入转换为一元。
L$v`（*）\u1$.$* 列出从n-k+1到n的数字，每个数字后面都有一个*后缀。
quot； 不要用默认换行符分隔结果。
[quot； 用给定的字符串作为结果的前缀。
~ 将其作为Retina 1表达式进行计算。
示例：对于输入2 100，有两个匹配项，其中$.'取值99和100。因此，L命令的结果是
.+$。（99*100* 当作为Retina程序执行时，这将用所需的结果替换输入。
carcover，7 bytes i∏n…n try it online！链接到详细版本的代码。前任夷平面：
n Input'k'…?Range from'0'to'k-1'n Input'n'?Subtract即Range from'n-k+1'to'n'（inclusive）πproducti Cast to string隐式打印Julia，20 bytes 这里没什么特别的，只要应用基本定义
p（n，k）=prod（n-k+1:n） 就可以在线试用！
Wolfram语言（Mathematica），11字节 #！/(#-#2)!&； 联机试用！2
Japt，6 bytes oáV l 在这里试一试2
Jelly，4 bytes ?在线试一试！
?对于1。。k、 从n'中减去它并递增。P拿产品。 或者，
果冻，4 bytes c×！}在线试试吧！
c nCk×次！}k！ 额外解决方案，5字节，全部ASCII:，\ux！：/
因子，27字节 使用：数学组合npk try它在线！
有一个内置的。。。只是进口的时间太长了。更令人尴尬的是，我找不到一个非内置的解决方案：
Factor，28 bytes [[1，b]swap tail*product] 在线试用！
从堆栈中获取两个数字kn，从包含范围1..n中提取最后的k个数字，并计算乘积。空序列的乘积是1.- End
免责声明：
本页内容仅代表作者本人意见，若因此产生任何纠纷由作者本人负责，概与琴岛网公司无关。本页内容仅供参考，请您根据自身实际情况谨慎操作。尤其涉及您或第三方利益等事项，请咨询专业人士处理。