7 lines
191 B
Text
7 lines
191 B
Text
|
comb := proc (n::integer, k::integer)
|
||
|
|
return factorial(n)/(factorial(k)*factorial(n-k));
|
||
|
|
end proc;
|
||
|
|
perm := proc (n::integer, k::integer)
|
||
|
|
return factorial(n)/factorial(n-k);
|
||
|
|
end proc;
|