SICP 习题2.17 last-pair 找出表的最后一个值

最新推荐文章于 2019-08-02 08:23:55 发布
原创 最新推荐文章于 2019-08-02 08:23:55 发布 · 437 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文介绍了一个简单的Scheme程序，用于获取列表的最后一个元素。通过递归地检查列表的cdr部分来实现这一目标。
比较简单，判断(cdr s)是否为空即可
(define last-pair
  (lambda (s)
    (if (null? (cdr s))
      (car s)
      (last-pair (cdr s)))))

(last-pair '(23 72 149 34))
SICP 习题答案
05-16
列表可以是空的（nil或null），或者由一个元素和一个指向另一个列表的引用组成。 - **递归数据结构**：如树和图，可以通过递归定义来表示，这在处理层次结构的问题中非常有用。 - **表处理**：SICP介绍了基于链表...
SICP-计算机课后习题资源
最新发布
04-20
而"Chap1"到"Chap4"的文件则可能分别对应SICP书中的四个章节，每个章节都包含了一系列的阅读笔记和课后习题解答，这对于理解书中的各个部分非常有帮助。"Courseware of Peking University"可能包含了北京大学关于...
软件测试的6个对象
Qmen_Crow的专栏
03-16 1万+
软件测试的6个对象 软件需求（ps:理解软件需求，对于用户测试人员TE比较重要） 软件概要设计 软件源代码 软件详细设计 可运行程序 软件运行环境（ps:测试提交Bug时，应该注明当前环境。例如window7+64 IE10 1920*1080之类的（兼容性问题）） note:理解6个对象,理清思路自己是从哪个对象进行测试软件测试所遵循的原则 测试显示缺陷的存在，但不能系统不存在缺陷. 穷尽测试是不
笨办法学 Python · 续 第七部分：大作业
热门推荐
龙哥盟
08-15 4万+
第七部分：大作业 原文：Part VII: Final Projects 译者：飞龙 协议：CC BY-NC-SA 4.0 自豪地采用谷歌翻译 本书的最后一部分是你进阶更高级项目，并尝试确定你的个人流程的地方。这些项目是困难的组合，但他们应该帮助你正式化你的流程，并找出适合你的东西。最重要的是，你应该着手分析你的工作方式和最适合你的东西。也许你没有执行我在本书建议的
SICP习题2.17-2.18
weixin_30530523的博客
08-02 153
(define (last-pair items) (cond ((or (null? items) (null? (cdr items))) items) (else (last-pair (cdr items)))))(define (reverse items) (cond ((null? items) items) (else (append (revers...
SICP习题解答2.17-2.23
yaojiank的专栏
09-01 1216
#lang racket ; exercise 2.17 (define (last-pair l) (cond ((null? l) null) ((null? (cdr l)) l) (else (last-pair (cdr l))))) (last-pair (list 23 72 149 34)) (last-pair '(1)) (last-pai
sicp 习题2.17
尘埃的博客
04-29 748
Welcome to DrRacket, version 5.3.3 [3m]. Language: planet neil/sicp; memory limit: 128 MB. > (define a (list 1 2 3 4 5)) > (last-pair a) (mcons 5 '()) > 运行: Welcome to DrRacket, version 5.3.3 [
SICP 习题 （2.17）解题总结：列表的遍历
keyboardOTA的专栏
12-25 2484
SICP 习题 2.17 要求我们定义出过程last-pair，它返回只包含给定表里之后一个元素的表。比如 (last-pair (list 23 72 149 34))的结果应该是(34)当你开始做这道题的时候你应该已经看完书中有关list操作的内容了，你应该明白car和cdr分别是什么意思，也应该知道如何通过递归调用遍历一个list。有了以上基础的话完成习题2.17就是小菜一碟啦，基本思路就是
《SICP》习题第2章
四毛毛的博客
01-17 1629
本人做的SICP习题第2章，如有错误请指正，用的解释器是Racket   练习2.1 ;; Exercise 2.1 ;; 有理数 #lang racket ;; 有理数定义 (define (numer x) (car x)) (define (demon x) (cdr x)) ;; 处理分子分母均为正的有理数 (define (make-positive-rat n d) (l...
【SICP练习】49 练习2.17
nomasp
02-22 2095
练习2.17 这道题就比较简单了，直接可以写出如下： (define (last-pair list)    (if (null? (cdr list))       list       (last-pair (cdr list))))
sicp 习题 2.17 ~ 2.20
zhangle
11-04 323
2.17 [code="java"] (define (my-last-pair l) (if (null? (cdr l)) (car l) (last-pair (cdr l)))) (my-last-pair (list 23 72 149 34)) [/code] 2.18 [code="java"] (define (my-reve...
sicp-py-zh:[译] UCB CS61a SICP Python 描述 中文版
05-29
UCB CS61a SICP Python 描述 原文： 译者： 协议： 前面是山，我们就爬山；前面是海，我们就渡海；前面是皇宫，我们就开炮！——《龙族前传》 ‍ 下载 Docker docker pull apachecn0/sicp-py-zh docker run -tid -p ...
SICP 习题2.19 重写count-change 过程
NM的专栏
06-12 1185
(define (cc amount coin-values) (cond ((= amount 0) 1) ((or (< amount 0) (no-more? coin-values)) 0) (else (+ (cc amount (except-first-denomination coin-values)) (cc (
SICP 练习1.35使用不动点发寻找黄金分割律
NM的专栏
06-04 1062
前几个输出是书上介绍不动点法的几个样例(define tolerance 0.00001)(define (fixed-point f first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (try guess) (let ((next (f guess)))
SICP 习题2.8 区间减法
NM的专栏
06-11 1014
我的想法是区间减法是a区间的每一个数减去b区间的每一个数，这些相减的结果在一个区间上。也就是x的下界-y的上界是最小的，x的上界-y的下界是最大的。其他所有结果都在这两个数之间。(define (add-interval x y) (make-interval (+ (lower-bound x) (lower-bound y)) (+ (upper-bound x) (upp
SICP 牛顿法求平方根
NM的专栏
05-31 924
(define (sqrt-iter guess x) (if (good-enough? guess x) guess (sqrt-iter (improve guess x) x)))(define (improve guess x) (average guess (/ x guess))) (define (average x y) (/ (+ x y) 2))(d
SICP 习题2.3 计算矩形面积和周长
NM的专栏
06-10 801
我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。(define make-rect cons) (define s-rect car) (define e-rect cdr)(define make-point cons) (defi
SICP 习题1.36 使用不动点发寻找x^x = 1000的根
NM的专栏
06-04 786
修改fixed-point过程，在let里修改即可(define tolerance 0.00001)(define (fixed-point f first-guess) (newline) (display first-guess) (define (close-enough? v1 v2) (< (abs (- v1 v2)) tolerance)) (define (
SICP 换零钱问题
NM的专栏
06-01 770
书上提到了迭代的算法，想到了完全背包，但是lisp功底太差，实现不了。(define (count-change amount) (cc amount 5))(define (cc amount kinds-of-coins) (cond ((= amount 0) 1) ((or (< amount 0) (= kinds-of-coins 0)) 0) (
MIT-Scheme实现的SICP习题解答
《SICP-ANSWER：MIT-Scheme 版本的答案》是一个针对经典计算机科学教材《计算机程序的构造和解释》（Structure and Interpretation of Computer Programs，简称 SICP）中所有编程练习题提供解答的开源项目，特别聚焦...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值