用法
评论
建议
取 消
确 定
(defun m:fermat-test (n / test-it) "素数测试" "T or nil" "(m:fermat-test 11)" (defun test-it (a) (= (m:expmod a n n) a)) (test-it (+ 1 (fix (m:random (- n 1))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新