蒙特卡罗方法求p