摘要: 19919997 阅读全文
posted @ 2017-11-24 21:07 R4mble 阅读(203) 评论(0) 推荐(0) 编辑
摘要: 你写的算法,银河一号都跑不动. 阅读全文
posted @ 2017-11-24 20:57 R4mble 阅读(104) 评论(0) 推荐(0) 编辑
摘要: 如果N是合数,则必有一个小于或者等于根号N的素因子. 因为任何合数都可表示为两个或者更多个素数之积. 假如N是合数且其素因子都大于根号N,那么将产生矛盾:根号N*根号N>N.所以合数必有(至少)一个不大于根号N的素因子 阅读全文
posted @ 2017-11-24 13:29 R4mble 阅读(161) 评论(0) 推荐(0) 编辑
摘要: 用java来跑一跑: 经过我拙劣的比较,对数级比线性还是要好很多的. 阅读全文
posted @ 2017-11-24 12:01 R4mble 阅读(190) 评论(0) 推荐(0) 编辑
摘要: (define (double a) (+ a a)) (define (halve a) (/ a 2)) (define (mult a b) (mult-iter a b 0)) (define (mult-iter a b product) (cond ((= b 0) product) ((even? b) (mult-iter (double a... 阅读全文
posted @ 2017-11-24 11:39 R4mble 阅读(127) 评论(0) 推荐(0) 编辑
摘要: (define (double x) (+ x x)) (define (halve x) (/ x 2)) (define (mult a b) (cond ((= b 0) 0) ((even? b) (double (mult a (halve b)))) ((odd? b) (+ a (mult a (- b 1)))))) (mult ... 阅读全文
posted @ 2017-11-24 11:33 R4mble 阅读(131) 评论(0) 推荐(0) 编辑
摘要: (define (fast-expt b n) (expt-iter b n 1)) (define (expt-iter b n a) (cond ((= n 0) a) ((even? n) (expt-iter (square b) (/ n 2) ... 阅读全文
posted @ 2017-11-23 02:48 R4mble 阅读(208) 评论(0) 推荐(0) 编辑
摘要: (define (expte b n) (if (= n 0) 1 (* b (expte b (- n 1))))) ;(expte 2 200000);(expt 2 200000) (define (expta b n) (expta-iter b n 1)) (define (expta-i 阅读全文
posted @ 2017-11-23 02:24 R4mble 阅读(260) 评论(0) 推荐(0) 编辑
摘要: define-values: assignment disallowed; cannot change constant constant: expt 你动了语言内置的函数了. 改个名字吧. 阅读全文
posted @ 2017-11-23 02:00 R4mble 阅读(276) 评论(0) 推荐(0) 编辑
摘要: (define (pascal row col) (cond ((or (< col 0) (< row 0)) (display"behave yourself!")) ((> col row) (display"behave yourself!")) ((or (= col 0) (= col 阅读全文
posted @ 2017-11-23 01:15 R4mble 阅读(235) 评论(0) 推荐(0) 编辑