超级会员免费看
博客内容讲述了在Clojure中实现习题1.27，该习题涉及对小于561的数字进行561次方运算，并检查结果是否与模561相同。测试显示所有小于561的数字都通过了费曼检查，即561次方后仍与原数模相同。而对于非素数，执行结果显示为'no'，未能通过测试。
先写代码
(defn square [x] (* x x))
(defn expmod[base exp m]
(cond (= exp 0) 1
(even? exp) (mod (square (expmod base (/ exp 2) m)) m)
:else (mod (* base (expmod base (- exp 1) m)) m)
)
)
(defn fermat-test[n]
(defn try-it [a]
(cond (= a n) (println "test end" n);
(= (expmod a n n) (mod a n)) (try-it (+ 1 a))
:else (println "no")
)
)
(try-it (+ 1 0))
)
执行结果如下
输出结果显示，对于每一个小于561的数字，他的561次方 和他与561的模相同，也就是通过了测试。
对于一个非素数，执行结果显示为no，表明没有逃过费曼检查测试。
410
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
