suxing.m

来自「为配套王能超版本数值分析简明教程编写,方便学生教师演示!」· M 代码 · 共 7 行

function x=suxing(a,p)
if mod(a^(p-1),p)==1
    x=1;
else
    x=0;
end