在mod P(p为质数)意义下：

A!

≡ 1 * 2 * ... * (p-1) * p * 1 * ... * (p-1) * p * ... * p * 1 * 2 * ... * (A mod p)

≡((p-1)!)^(A/p)*(A mod P)!*p^(A/p)

喜闻乐见的威尔逊定理

(p-1)!≡{-1,p为质数;

          2，p=4;

          0，otherwise} mod p

或者直接for(i=1;i<=p-1;i++)？

反正都差不多

剩下的部分用O(p)的时间就可以算了