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

最新推荐文章于 2021-07-18 16:29:02 发布
最新推荐文章于 2021-07-18 16:29:02 发布
阅读量864 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： 计算机程序的构造和解释
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/chdhust/article/details/8558384
本文介绍了一种使用带有局部状态的过程实现队列的方法，并提供了插入、删除等队列操作的具体实现。通过测试代码验证了队列操作的有效性。

摘要生成于 C知道 ，由 DeepSeek-R1 满血版支持， 前往体验 >

计算机程序的构造和解释习题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 394
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=> (+
计算机程序的构造与解释(SICP)
zzljlu的专栏
03-16 2592
计划用半年的时间把《计算机程序的构造与解释》这本书读完，并完成一半以上的习题。 所用的软件： 系统：windows xp 解释器：DrRacket, version 5.1 语言：SICP(PLaneT 1.13) ，如何获得该语言，请看这里。 习题答案目录： 第1章 构造过程抽象 1.1节 程序设计基本元素1.2节 过程与它们所产生的计算 第2章 构造数据抽象
计算机程序的构造和解释 习题 1.11
Roger的博客
02-28 650
函数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 891
计算机程序的构造和解释习题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 198
双向队列，类似于我们现在的双向链表，我们把原来单项队列的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 349
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). ...
数据结构
yefengkk的专栏
06-28 1万+
习题一 一、概念题 (一)单选 1.研究数据结构就是研究(   D   ) A.数据的逻辑结构        B.数据的存储结构 C.数据的逻辑结构和存储结构 D.数据的逻辑结构、存储结构及其数据在运算上的实现 2.下面关天算法的说法，错误的是( D   ) A.为解决某问题的算法与为该问题编写的程序含义是相同的 B.算法最终必须由计算机程序实现 C.算法的可行性是指指令不能有
随书光盘资源下载/提取码（二）
热门推荐
jzjleo的博客
12-11 1万+
随书光盘大小后面的字母数字字符串为光盘提取码，其他没有的还在收录过程中，如何通过提取码下载光盘，请参考这里：  http://clmdtb.iteye.com/blog/1986678   随书光盘查询网址： http://mfjzjleo.free.800m.net/   PowerPoint 2007精美演示文稿制作 609.21MB 48X68X9V996UZXU28...
数据结构与算法——每日一练（3月）
yangwei2048的博客
05-09 3447
本文整理了一系列关于数据结构和Java编程的练习题，涵盖单链表、循环队列、栈等数据结构的基本特性与操作，以及Java中单例模式、接口实现等知识点。主要内容包括：单链表的存储特点与操作复杂度（3.1-3.5）；Java对象引用与接口实现（3.6-3.7）；队列的基本运算与循环队列判断条件（3.8-3.12）；栈的进出序列分析（3.15-3.19）等。所有题目均附答案与解析，适合计算机专业学习者巩固基础知识。
计算机程序的构造和解释 练习题1.21
船长灬普朗克的博客
03-01 209
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 163
#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 155
将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 685
前面给出了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 982
《计算机程序的构造和解释》，原书第二版，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 4128
我讲解这道题的目的是为了让大家理解结果为什么是那样的，假如对基础知识不是特别了解的人，可能会对答案有疑问，但是答案并没有详细讲解为什么会得到哪些答案。 这里推荐我写的另一篇博客，https://blog.csdn.net/ciqingloveless/article/details/84136002，这里详细讲述了寄存器寻址，后面有的内存我回省略。 题目 假设下面的值存放在指定的内存地址和寄存器中...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值