计算机程序的构造和解释习题3.22

最新推荐文章于 2021-07-18 16:29:02 发布
最新推荐文章于 2021-07-18 16:29:02 发布
阅读量809 收藏
点赞数
分类专栏： 计算机程序的构造和解释
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/chdhust/article/details/8558384
版权
计算机程序的构造和解释习题3.22

Here is the implementation of QUEUE as a procedure with local state.

[plain]  view plain copy
  1. ;;;QUEUE as a procedure with local state  
  2. (define (make-queue)  
  3.   (let ((front-ptr nil)  
  4.         (rear-ptr nil))  
  5.     (define (dispatch m)  
  6.       (cond ((eq? m 'empty-queue?) empty-queue?)  
  7.             ((eq? m 'front-queue) front-queue)  
  8.             ((eq? m 'insert-queue!) insert-queue!)  
  9.             ((eq? m 'delete-queue!) delete-queue!)  
  10.             ((eq? m 'print-queue) print-queue)  
  11.             (else (error "Undefined operation -- MAKE-QUEUE" m))))  
  12.     (define (empty-queue?)  
  13.       (null? front-ptr))  
  14.     (define (front-queue)  
  15.       (if (empty-queue?)  
  16.           (error "FRONT called with an empty queue")  
  17.           (car front-ptr)))  
  18.     (define (insert-queue! item)  
  19.       (let ((new-pair (cons item nil)))  
  20.         (if (empty-queue?)  
  21.             (begin (set! front-ptr new-pair)  
  22.                    (set! rear-ptr new-pair))  
  23.             (begin (set-cdr! rear-ptr new-pair)  
  24.                    (set! rear-ptr new-pair)))))  
  25.     (define (delete-queue!)  
  26.       (if (empty-queue?)  
  27.           (error "DELETE called with an empty queue")  
  28.           (set! front-ptr (cdr front-ptr))))     
  29.     (define (print-queue)  
  30.       (display front-ptr))  
  31.     dispatch))  
  32.   
  33. ;;;QUEUE OPERATIONS  
  34. (define (empty-queue? queue)   
  35.   ((queue 'empty-queue?)))  
  36. (define (front-queue queue)  
  37.   ((queue 'front-queue)))  
  38. (define (insert-queue! queue item)  
  39.   ((queue 'insert-queue!) item)  
  40.   queue)  
  41. (define (delete-queue! queue)  
  42.   ((queue 'delete-queue!))  
  43.   queue)  
  44. (define (print-queue queue)  
  45.   ((queue 'print-queue)))  

The test code is as follows:
[plain]  view plain copy
  1. ;;;TEST  
  2. (define q1 (make-queue))  
  3. (print-queue (insert-queue! q1 'a))  
  4. (newline)  
  5. (print-queue (insert-queue! q1 'b))  
  6. (newline)  
  7. (print-queue (delete-queue! q1))  
  8. (newline)  
  9. (print-queue (delete-queue! q1))  
  10. (newline)  
  11. (empty-queue? q1)  
And the result of the test is:
[plain]  view plain copy
  1. (a)  
  2. (a b)  
  3. (b)  
  4. ()  
  5. #t  

快乐的霖霖
关注
专栏目录
计算机程序的构造和解释习题
i saw you walking in the rain
03-14 318
1.1表达式求值 user=> 10 10 user=> (+ 5 3 4) 12 user=> (- 9 1) 8 user=> (/ 6 3) 2 user=> (+ (* 2 4) (- 4 6)) 6 user=> (def a 3) #'user/a user=> (println a) 3 nil user=> (def b (+ a 1)) #'user/b user=> (println b) 4 nil user=> (+
计算机程序的构造和解释第一章习题参考答案(DrPacket中编译通过)
追求卓越，永不止步
07-09 2596
都是初学者，写了半天才写好，汗～～ 练习1.3： (define (max2 a b) (cond ((> a b) a) (else b) ) ) (define (max3 a b c) (cond ((> c (max2 a b)) c) (else (max2 a b)) )
计算机程序的构造和解释 习题 1.11
Roger的博客
02-28 562
函数f由如下的规则定义： 如果n<3,那么f(n)=n;如果n>=3,那么f(n)=f(n-1)+2f(n-2)+3f(n-3) 1)递归计算 (define (fn3 n) (if (< n 3) n (+ (fn3 (- n 1)) (* (fn3 (- n 2)) 2) (* (fn3 (- n ...
计算机程序的构造和解释习题3.28
chenglinhust的专栏
01-31 844
计算机程序的构造和解释习题3.28        问题：请将或门定义为一个基本功能块，令构造函数为or-gate。        程序：        (define (or-gate in1 in2 out)        (define (or-action-procedure)            (let ((new-value (logic-or(get-signal
计算机程序的构造和解释 练习题3.23
船长灬普朗克的博客
01-20 164
双向队列，类似于我们现在的双向链表，我们把原来单项队列的cdr变成一个序对，序对car是指向前一个节点的指针，cdr是指向后一个节点的指针，具体的结构图如下。 这样就构成了一个双向队列。 附上完整代码 #lang R5RS (define (make-deque) (cons '() '())) (define (front-ptr deque) (car deque)) (define (rear-ptr deque) (cdr deque)) (define (make-deque-item valu
计算机程序的构造和解,计算机程序的构造与解释（SICP）习题02
weixin_39715187的博客
07-18 287
Exercise 1.22.Most Lisp implementationsinclude a primitivecalledruntimethatreturns an integer that specifies the amount of time the system hasbeen running (measured, for example, in microseconds). ...
reading-sicp:《计算机程序的构造和解释》(SICP) 解题集
05-03
书籍使用《计算机程序的构造和解释》。在线英文版，排版更好的英文版。 使用 开发环境，来测试编写 Scheme 代码。 我最初设想使用 Lua 完成书中代码和习题。Lua 和 Scheme 有点相似，而我也更熟悉 Lua 语言。 第 1 ...
北京大学，计算机程序构造和解释（SICP）课件，裘宗燕老师主讲
05-10
《计算机程序构造和解释》（SICP，Structure and Interpretation of Computer Programs）是一本具有深远影响力的计算机科学教材，由Harold Abelson和Gerald Jay Sussman编写，MIT Press出版。这门课程由北京大学数学...
<计算机程序的构造和解释>第二版中文参考答案
12-09
### 计算机程序的构造和解释：第二版中文参考答案解析 #### 一、章节概览 本书《计算机程序的构造和解释》第二版旨在深入探讨计算机程序的设计原理及其背后的逻辑思考方式。第一章作为开篇，介绍了Scheme语言的...
计算机程序的构造和解释 练习题1.21
船长灬普朗克的博客
03-01 174
smaillest-divisor (define (square x) (* x x)) (define (divides? a b) (= (remainder b a) 0)) (define （smaillest-divisor n) (find-divisor n 2)) (define（find-divisor n test-divisor) (cond ((> (squar...
计算机程序构造与解释答案（周银辉）
01-11
1，过程作为返回值 在1.3中我们明白了高阶函数之后，“用一个过程作为另外一个过程的返回值”则是稀松平常的事情了，比如下面的代码： (define (f x) (+ x 1)) (define (g) f) ((g) 2) 函数g没有参数，其返回值为函数f，所以((g) 2)就运算结果就是(f 2)，最后运算结果为3。 上面是用一个已命名的函数作为返回结果的，相应的，也可以将一个“匿名过程”作为结果返回，这里的“匿名过程”也就是我们的Lambda表达式，所以上面的代码可以改造成： (define (g) (lambda (x) (+ x 1))) ((g) 2) 那么((g) 2)的运算结果就是((lambda (x) (+ x 1)) 2)，最后运算结果为3。 2，牛顿法 学到这里，你可能需要复习一下高等数学的基本内容，包括“导数”和“微分”，高数的在线教材可以在这里找到：http://sxyd.sdut.edu.cn/gaoshu1/index.htm 关于牛顿法的介绍可以看这里：http://en.wikipedia.org/wiki/Newton%27s_method ，下面是程序： (define (close-enough? v1 v2) (< (abs (- v1 v2)) 0.000000001)) ;定义不动点函数 (define (fixed-point f first-guess) (define (try guess step-count) (let ((next (f guess))) (if (close-enough? guess next) next (try next (+ step-count 1))))) (try first-guess 0)) ;定义导数函数 (define (D f) (lambda (x dx) (/ (- (f (+ x dx)) (f x)) dx))) ;牛顿法 (define (newton g first-guess) (fixed-point (lambda (x) (- x (/ (g x) ((D g) x 0.000000001)))) first-guess)) ;平方 (define (square x) (* x x)) ;定义开方，来测试下牛顿法 (define (sq x) (newton (lambda (y) (- (square y) x)) 1.0)) (sq 5) 3，“一等公民” 这里列出了程序语言中作为“一等公民”的语言元素所具备的几个“特权”： 可以用变量命名 可以作为过程参数 可以作为过程返回结果 可以被包含在数据结构中 4，练习1.40 求三次方程 x^3 + ax^2 + bx + c 的零点。 首先，证明 函数f(x) = x^3 + ax^2 + bx + c 是“可微”的： 由可导和可微的性质知道，可导和可微互为充要条件，所以，要证可微我们可以先证可导， f ’ (x) = (x^3)’ + (ax^2)’ + (bx)’ + (c)’ = 3x^2 + 2ax + b 所以f(x)的导数存在，那么f(x)可导，其必定可微。 其次，利用“牛顿法”：如果f(x)是可微函数，那么f(x)=0的一个解就是函数(x – f(x)/df(x)的一个不动点，其中df(x)是f(x)的导数。所以我们可以轻松得到下面的代码： (define (close-enough? v1 v2) (< (abs (- v1 v2)) 0.000000001)) ;定义不动点函数 (define (fixed-point f first-guess) (define (try guess step-count) (let ((next (f guess))) (if (close-enough? guess next) next (try next (+ step-count 1))))) (try first-guess 0)) ;定义导数函数 (define (D f) (lambda (x dx) (/ (- (f (+ x dx)) (f x)) dx))) ;牛顿法 (define (newton g first-guess) (fixed-point (lambda (x) (- x (/ (g x) ((D g) x 0.000000001)))) first-guess)) ;定义cubic函数，也就是我们题目中所谓的f(x) (define (cubic a b c) (lambda (x) (+ (* x x x) (* a x x) (* b x) c))) ;随便定义几个系数 (define a 3) (define b 5) (define c 8) (define result (newton (cubic a b c) 1.0)) ;定义一个验证过程，让其验证得到的解，是否让方程成立 (define (validate x) (= 0 (+ (* x x x) (* a x x) (* b x) c))) ;输出结果 result ;验证结果 (validate result) 比如上面我们计算 x^3 + 3x^2 + 5x + 8 = 0, 其一个解为：-2.3282688556686084 .....
计算机程序的构造和解释 练习题2.92
船长灬普朗克的博客
07-02 133
#lang racket ;put get实现 (define *op-table* (make-hash)) (define (put op type proc) (hash-set! *op-table* (list op type) proc)) (define (get op type) (hash-ref *op-table* (list op type) #f)) (define *type-coercion* (make-hash)) (define (put-coercion
计算机程序的构造和解释 练习题1.46
船长灬普朗克的博客
03-21 119
将fixed-point直接改写为题目要求的过程，然后按照1.17的sqrt改造过程，结合fixed-point改造一个带平均阻尼的sqrt-damp过程。 #lang racket (define (iterative-improve improve good-enough?) (define (try guess) (let ((next (improve guess))) ...
SICP-《计算机程序的构造和解释》之习题分析与收获——练习1.29
oo0o0o0qq0的专栏
12-06 648
前面给出了sum函数的定义： (define (sum term a next b)     (if (> a b)         0         (+ (term a)            (sum term (next a) next b)))) //功能为求f(a)到f(b)的和。 这里我们要求的辛普森公式里的每一项（a）为两部分构成：乘法因子和y。所有我们
《计算机程序的构造和解释》笔记 01 - 构造过程抽象
一个软件工程师的技术笔记
03-03 880
《计算机程序的构造和解释》，原书第二版，Structure and Interpretation of Computer Programs，SICP。 豆瓣读书：https://book.douban.com/subject/1148282/ 这本神作，目前看完了第 1 章，习题还没来得及做。名不虚传啊，很多真知灼见的金句，还有很多思想都是醍醐灌顶的。第一章里主要是讲了 Lisp 语言的一些基...
《深入理解计算机系统》 练习题3.2-3.5 汇编相关
热门推荐
anlian523的博客
11-12 1万+
汇编命令总结 1）%eax，%dx就是寄存器的名字 2）(%rax)。只要是有括号的了，那就是内存引用。注意x86-64中的内存引用总是用四字长寄存器给出的，即寄存器名字开头都是r开头的。(%rax)意思是取寄存器%rax中的存的地址中的存的值，相当于解引用两次，先解引用寄存器，再解引用这地址（我用“解引用”这个词只是为了方便理解）。 3）mov命令中，两个操作数只允许有一个内存引用，即只能有一个...
深入理解计算机系统 练习题3.8 理解计算机二元操作
ciqingloveless的博客
11-22 3907
我讲解这道题的目的是为了让大家理解结果为什么是那样的，假如对基础知识不是特别了解的人，可能会对答案有疑问，但是答案并没有详细讲解为什么会得到哪些答案。 这里推荐我写的另一篇博客，https://blog.csdn.net/ciqingloveless/article/details/84136002，这里详细讲述了寄存器寻址，后面有的内存我回省略。 题目 假设下面的值存放在指定的内存地址和寄存器中...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值