练习1.23-练习1.30

1.练习1.23

改后的代码如下:

(define (find-divisor-better n a)
  (cond ((> (square a) n) n)
	((divides?-better n a) a)
	(else (find-divisor-better n (next-2 a)))))

(define (next-2 n)
  (if (= 2 n)
      (+ 1 n)
      (+ 2 n)))
(define (find-min-prime-since-better n start-time number)
  (cond ((= number 0) (display-info start-time (real-time-clock)))
	((prime? n) (begin
		      (format #t "~S~%" n)
		      (find-min-prime-since-better (+ n (next-plus n)) start-time (- number 1))))
	(else (find-min-prime-since-better (+ n (next-plus n)) start-time number)))
  #f)
(define (next-plus n)
  (if (even? n)
      1
      2))

电脑跑这些代码的时候,没有固定的运行时间,一直在变。不过结果是改后的基本是没改前的0.5,也可能0.6左右。

2.练习1.24

代码就不贴出来了,只是将上一题中的判断是否为素数的方法改为费马方法。

在检测接近1000000的素数和接近1000的素数时,接近1000000的素数在时间上应该为(log1000000)=6应该大于接近1000的3的素数检查,比值为2:1,实验中计算从1000和1000000开始的1000个素数,1000开始的时间为695,而从1000000开始的时间为1470,比值接近于1:2, 与假设基本相同。

但是在帖子,那我猜,可能是64位和32位的不同了。

3.练习1.25

先求次方的结果会导致一个很大的数求余数,这样的时间消耗会很大。

4.练习1.26

不使用square的结果是每次减半的expmod操作没有了简版的效果,所以时间复杂度会变回O(n) 。

5.练习1.27

(define (try-it a n)
    (= (expmod a n n) a))

(define (carmichael-test n number)
  (cond ((= number 0) true)
	((try-it number n) (carmichael-test n (- number 1)))
	(else false)))

(define (car-prime? n)
  (carmichael-text n (- n 1)))

6.练习1.28

(define (new-expmod base exp m)
  (define tmpbase 100)
  (cond ((= exp 0) 1)
	((even? exp) (begin
		      (set! tmpbase (new-expmod base (/ exp 2) m))
		      (if (and (not (= tmpbase (- m 1)))
			       (not (= tmpbase 1))
			       (= (remainder (square tmpbase)
					       m) 1))
			   0
			   (remainder (square tmpbase)
					 m))))
	(else (remainder (* base (new-expmod base (- exp 1) m))
			 m))))
(define (new-try-it n a)
  (new-expmod a (- n 1) n))


(define (new-fermat-test n start)
  (cond ((= start 1) true)
	((= (new-try-it n start) 0) false)
	(else (new-fermat-test n (- start 1)))))

(define (really-prime? n)
 (new-fermat-test n (if (even? n)
			(/ n 2)
			(/ (- n 1) 2))))

没有进行优化,但本身也有可能会有更好的方法吧


已标记关键词 清除标记
相关推荐
内容简介 《你必须知道的495个C语言问题》以问答的形式组织内容,讨论了学习或使用C语言的过程中经常遇到的一些问题。书中列出了C用户经常问的400多个经典问题,涵盖了初始化、数组、指针、字符串、内存分配、库函数、C预处理器等各个方面的主题,并分别给出了解答,而且结合代码示例阐明要点。 《你必须知道的495个C语言问题》结构清晰,讲解透彻,是各高校相关专业C语言课程很好的教学参考书,也是各层次C程序员的优秀实践指南。 -------------------------------------------------------------------------------- C是一门简洁精妙的语言,掌握基本语法容易,真正能够自如运用,就不那么简单了。你难免会遇到各种各样的问题,有些可能让你百思不得其解,甚至翻遍图书馆,也找不到问题的答案。 《你必须知道的495个C语言问题》的出版填补了这一空白。许多知识点的阐述都是其他资料中所没有的,弥足珍贵。 涵盖C99标准 目录 ~第1章 声明和初始化 1 基本类型 1 1.1 我该如何决定使用哪种整数类型? 1  1.2 为什么不精确定义标准类型的大小? 2 1.3 因为C语言没有精确定义类型的大小,所以我一般都用typedef定义int16和int32。然后根据实际的机器环境把它们定义为int、short、long等类型。这样看来,所有的问题都解决了,是吗? 2  1.4 新的64位机上的64位类型是什么样的? 3 指针声明 3 1.5 这样的声明有什么问题?char *p1, p2; 我在使用p2的时候报错了。 3 1.6 我想声明一个指针,并为它分配一些空间,但却不行。这样的代码有什么问题?char *p; *p=malloc(10); 4 声明风格 4 1.7 怎样声明和定义全局变量和函数最好? 4 1.8 如何在C中实现不透明(抽象)数据类型? 5 1.9 如何生成“半全局变量”,就是那种只能被部分源文件中的部分函数访问的变量? 5 存储类型 6 1.10 同一个静态(static)函数或变量的所有声明都必须包含static存储类型吗? 6 1.11 extern在函数声明中是什么意思? 6 1.12 关键字auto到底有什么用途? 7 类型定义(typedef) 7 1.13 对于用户定义类型,typedef 和#define有什么区别? 7 1.14 我似乎不能成功定义一个链表。我试过typedef struct{char *item; NODEPTR next;}* NODEPTR; 但是编译器报了错误信息。难道在C语言中结构不能包含指向自己的指针吗? 7  1.15 如何定义一对相互引用的结构? 9 1.16 Struct{ } x1;和typedef struct{ } x2; 这两个声明有什么区别? 10 1.17 “typedef int(*funcptr)();”是什么意思? 10 const 限定词 10 1.18 我有这样一组声明:typedef char *charp; const charp p; 为什么是p而不是它指向的字符为const? 10 1.19 为什么不能像下面这样在初始式和数组维度值中使用const值?const int n=5; int a[n]; 10 1.20 const char *p、char const *p和char *const p有什么区别? 10 复杂的声明  11 1.21 怎样建立和理解非常复杂的声明?例如定义一个包含N个指向返回指向字符的指针的函数的指针的数组? 11  1.22 如何声明返回指向同类型函数的指针的函数?我在设计一个状态机,用函数表示每种状态,每个函数都会返回一个指向下一个状态的函数的指针。可我找不到任何方法来声明这样的函数——感觉我需要一个返回指针的函数,返回的指针指向的又是返回指针的函数……,如此往复,以至无穷。 12  数组大小 13 1.23 能否声明和传入数组大小一致的局部数组,或者由其他参数指定大小的参数数组? 13 1.24 我在一个文件中定义了一个extern数组,然后在另一个文件中使用,为什么sizeof取不到数组的大小? 13 声明问题 14 1.25 函数只定义了一次,调用了一次,但编译器提示非法重声明了。 14 *1.26 main的正确定义是什么?void main正确吗? 15 1.27 我的编译器总在报函数原型不匹配的错误,可我觉得没什么问题。这是为什么? 15 1.28 文件中的第一个声明就报出奇怪的语法错误,可我看没什么问题。这是为什么? 15 1.29 为什么我的编译器不允许我定义大数组,如double array[256][256]?
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页