问题

用复合方式定义函数 counting(n,r)=$\frac{n!}{r!(n-r)!}$.

> counting:= function(n,r)
>   x:= Factorial(n);
>   y:= Factorial(r);
>   z:= Factorial(n-r);
>   p:= x div z; // 这里正好可以整除
>   c:= p div y; // 同上
>   return p, c; // 可以返回两个值\r
> end function; // 别忘了函数体需要结束\r
> per, com := counting(5,2);