Comments on: 快速进行素数测试

By: dustman

dustman — Thu, 15 Jan 2009 02:56:59 +0000

奶奶滴你写的代码让我脑袋都大了

(define (exp_e a n)
(exp-iter a n 1))
(define (exp-iter product n a)
(cond ((= n 0) a)
((even? n) (exp-iter (square product) (/ n 2) a))
(else (exp-iter product (- n 1) (* product a)))))
(define (exp-mod a n)
(if(= (remainder (exp_e a (- n 1)) n) 1)
1
0))
(define (prime-test n)
(exp-mod (random n) n))
(define (prime? n times)
(cond ((= (prime-test n) 0) 0)
((= times 0) 1)
(else (prime? n (- times 1)))))

这是迭代版能迭代的部分我都迭代了

By: dustman

dustman — Thu, 15 Jan 2009 01:14:20 +0000

尾递归英文是什么我看SICP里好像没提到过

iterative 就是迭代可能也是尾递归吧

老哥质数没有递推公式你能把他转化成迭代形式你就是神…(或许是我理解错误?)

By: Dustman

Dustman — Sat, 01 Nov 2008 22:46:09 +0000

“所以，如果你不愿意去记录Carmichael数表的话，我们可以加强我们的素数测试方法。”

我怎么觉得这句话有问题

By: shellex

shellex — Sun, 27 Jul 2008 00:53:43 +0000

[quote comment="290"]递归的反汇编码,读起来可是非常费劲的..
普通的循环求解,我觉得更容易理解啊,不知道是不是习惯问题

话说LISP这种括号匹配,你眼睛不花吗?[/quote]

递归的高级语言代码和汇编代码都很好理解。相反，很多时候是循环不好理解。
对于Lisp这种东东，你知道我们都很依赖NB的编辑器

By: Dustman

Dustman — Sat, 26 Jul 2008 20:31:35 +0000

递归的反汇编码,读起来可是非常费劲的..
普通的循环求解,我觉得更容易理解啊,不知道是不是习惯问题

话说LISP这种括号匹配,你眼睛不花吗?