用法
评论
建议
取 消
确 定
(defun m:expmod (base exp1 m) (setq base (float base)) (setq exp1 (float exp1)) (cond ((zerop exp1) 1) ((m:evenp exp1) (rem (m:square (m:expmod base (/ (float exp1) 2) m)) m)) (t (rem (* base (m:expmod base (- exp1 1) m)) m))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 747 个
函数库类别: 52 种
上传记录
刷新