【SICP练习】109 练习3.22-阿里云开发者社区

开发者社区> nomasp> 正文

【SICP练习】109 练习3.22

简介:
+关注继续查看

练习3-22

原文

Exercise 3.22. Instead of representing a queue as a pair of pointers, we can build a queue as a procedure with local state. The local state will consist of pointers to the beginning and the end of an ordinary list.
Thus, the make-queue procedure will have the form

 (define (make-queue)
   (let ((front-ptr ...)     
         (rear-ptr ...))   
     <definitions of internal procedures>    
      (define (dispatch m) ...)  
          dispatch))

Complete the definition of make-queue and provide implementations of the queue operations using this representation.

分析

这道题中的局部状态由指向一个常规表的开始和结束指针组成。并且要将insert-queue!和delete-queue!嵌套进整个过程中。通过dispatch来调用这些函数。

(define (make-queue)
    (let ((front-ptr '())
          (rear-ptr '()))

   (define (empty-queue?)
      (null? front-ptr))

   (define (insert-queue! item)
       (cond ((empty-queue?)
              (let ((init-list (list item)))
                  (set! front-ptr init-list)
                  (set! rear-ptr init-list)
                  front-ptr))
             (else
              (let ((new-item (list item)))
                  (set-cdr! rear-ptr new-item)
                  (set! rear-ptr new-item)
                  front-ptr))))
   (define (delete-queue!)
       (cond ((empty-queue?)
              (error "DELETE! called with an empty queue" queue))
             (else
              (set! front-ptr (cdr front-ptr))
              front-ptr)))

   (define (dispatch m)
      (cond ((eq? m 'insert-queue!)
              insert-queue!)
            ((eq? m 'delete-queue!)
              (delete-queue!))
            ((eq? m 'empty-queue?)
              (empty-queue?))
            (else
             (error "Unknown operation -- DISPATCH" m))))
    dispatch))

测试


(define q3 (make-queue))        

;Value: q3

((q3 'insert-queue!) 'a)                

;Value 15: (a)

((q3 'insert-queue!) 'b)

;Value 16: (a b)

(q3 'delete-queue!)                  

;Value 17: (b)

(q3 'delete-queue!)

;Value: ()

(q3 'empty-queue?)                   

;Value: #t

补充

由于insert-queue!有参数,所以在dispatch中不需要添加括号,否则会报错。



感谢访问,希望对您有所帮助。 欢迎关注或收藏、评论或点赞。


为使本文得到斧正和提问,转载请注明出处:
http://blog.csdn.net/nomasp


版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

相关文章
阿里云服务器怎么设置密码?怎么停机?怎么重启服务器?
如果在创建实例时没有设置密码,或者密码丢失,您可以在控制台上重新设置实例的登录密码。本文仅描述如何在 ECS 管理控制台上修改实例登录密码。
10099 0
使用OpenApi弹性释放和设置云服务器ECS释放
云服务器ECS的一个重要特性就是按需创建资源。您可以在业务高峰期按需弹性的自定义规则进行资源创建,在完成业务计算的时候释放资源。本篇将提供几个Tips帮助您更加容易和自动化的完成云服务器的释放和弹性设置。
12078 0
阿里云服务器如何登录?阿里云服务器的三种登录方法
购买阿里云ECS云服务器后如何登录?场景不同,阿里云优惠总结大概有三种登录方式: 登录到ECS云服务器控制台 在ECS云服务器控制台用户可以更改密码、更换系.
13897 0
windows server 2008阿里云ECS服务器安全设置
最近我们Sinesafe安全公司在为客户使用阿里云ecs服务器做安全的过程中,发现服务器基础安全性都没有做。为了为站长们提供更加有效的安全基础解决方案,我们Sinesafe将对阿里云服务器win2008 系统进行基础安全部署实战过程! 比较重要的几部分 1.
9161 0
腾讯云服务器 设置ngxin + fastdfs +tomcat 开机自启动
在tomcat中新建一个可以启动的 .sh 脚本文件 /usr/local/tomcat7/bin/ export JAVA_HOME=/usr/local/java/jdk7 export PATH=$JAVA_HOME/bin/:$PATH export CLASSPATH=.
4670 0
阿里云服务器ECS登录用户名是什么?系统不同默认账号也不同
阿里云服务器Windows系统默认用户名administrator,Linux镜像服务器用户名root
4511 0
+关注
542
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
《2021云上架构与运维峰会演讲合集》
立即下载
《零基础CSS入门教程》
立即下载
《零基础HTML入门教程》
立即下载