【SICP练习】76 练习2.47-阿里云开发者社区

开发者社区> nomasp> 正文

【SICP练习】76 练习2.47

简介:
+关注继续查看


练习2.47

这道题重点就是要理清楚listcons的关系了。我们依次来写出过程函数。

(define (make-frame origin edge1 edge2)

   (list origin edge1 edge2))

(define (origin-frame f) (car f))

(define (edge1-frame f) (cadr f))

(define (edge2-frame f) (caddr f))

 

(define (make-frame origin edge1 edge2)

    (cons origin (cons edge1 edge2)))

(define (origin-frame f) (car f))

(define (edge1-frame f) (cadr f))

(define (edge2-frame f) (cddr f))

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

相关文章
+关注
542
文章
0
问答
文章排行榜
最热
最新
相关电子书
更多
《2021云上架构与运维峰会演讲合集》
立即下载
《零基础CSS入门教程》
立即下载
《零基础HTML入门教程》
立即下载