SICP 习题2.18 reverse-list

Scheme列表逆序
最新推荐文章于 2019-08-02 08:23:55 发布
最新推荐文章于 2019-08-02 08:23:55 发布
阅读量390 收藏
点赞数
CC 4.0 BY-SA版权
分类专栏： SICP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/NMfloat/article/details/51648152
本文介绍了一个使用Scheme语言实现的列表逆序函数。该函数通过递归方式将输入列表中的元素顺序反转。 
(define reverse-list 
  (lambda (s)
    (if (null? s)
      '()
      (append (reverse-list (cdr s)) (list (car s))))))

(newline)
(display (reverse-list '(1 2 3 4)))
SICP 习题 （2.18） 解题总结：反转列表
keyboardOTA的专栏
12-25 3403
SICP 习题 2.18 要求我们定义一个过程名叫reverse，可以将一个list反转过来。比如 (reverse (list 1 4 9 16 25)) 的结果是：(25 16 9 4 1)这道题和之前的2.17有相似之处，都是对list进行遍历，然后做相应处理。不过2.17比较简单，遍历到最后面返回最后的元素就好了，2.18复杂一点，需要在遍历之后将list元素反向组装起来。我们可以按以前的
SICP 习题2.8 区间减法
NM的专栏
06-11 995
我的想法是区间减法是a区间的每一个数减去b区间的每一个数，这些相减的结果在一个区间上。也就是x的下界-y的上界是最小的，x的上界-y的下界是最大的。其他所有结果都在这两个数之间。(define (add-interval x y) (make-interval (+ (lower-bound x) (lower-bound y)) (+ (upper-bound x) (upp
【SICP练习】50 练习2.18
weixin_34195142的博客
02-22 130
 练习2.18 这道题也不难，通过迭代来完成。不过我想整个过程，无论是两个define还是一个define，都只用一个参数，但还为完成，希望有谁会的在博文下面评论咯。 (define (reverse list) (reverse-iter list ‘())) (define (reverse-iter list other) ...
sicp 习题2.18
尘埃的博客
04-29 1041
#lang planet neil/sicp (define a (list 1 2 3)) (define (reverse lst) (iter lst '())) (define (iter reminder result) (if (null? reminder) result (iter (cdr reminder) (c
sicp 2.18
07-21 122
  Exercise 2.18.  Define a procedure reverse that takes a list as argument and returns a list of the same elements in reverse order:     (reverse (list 1 4 9 16 25))(25 16 9 4 1)         (def...
SICP 2.18 2.19 代码
weixin_30262255的博客
04-09 114
2.18 要求反转参数表 2.19 要求写出兑换零钱方式计数程序，并且零钱种类可变 #lang planet neil/sicp ;;2.18 (define (reverse input-list) (if (null? (cdr input-list)) input-list (append (reverse (cdr input-list)) (cons (ca...
SICP习题2.17-2.18
weixin_30530523的博客
08-02 150
(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 1206
#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-py-zh:[译] UCB CS61a SICP Python 描述 中文版
05-29
UCB CS61a SICP Python 描述 原文： 译者： 协议： 前面是山，我们就爬山；前面是海，我们就渡海；前面是皇宫，我们就开炮！——《龙族前传》 ‍ 下载 Docker docker pull apachecn0/sicp-py-zh docker run -tid -p ...
SICP 习题答案
05-16
《计算机程序的构造和解释》...通过解答SICP的习题，读者将深入理解这些概念，并能运用到实际的编程实践中。习题旨在促进对这些基本原理的深入思考，帮助程序员建立坚实的基础，进而在面对复杂的编程挑战时能游刃有余。
激光表面熔覆SiCp/Ni-Cr-B-Si-C涂层的组织演化及其相确定
02-11
运用激光熔覆技术在AISI1045钢表面制备了30vol-% SiCp/Ni-Cr-B-Si-C涂层。SEM和TEM观察分析表明：SiCp在熔覆过程中完全溶解；涂层结合区组织为共晶结构；涂层组织由初生石墨球G,分布在γ-Ni固溶体枝晶中的M23(C,B)6...
SiCp/Al-Fe-V-Si复合材料组织与性能的热稳定性 (2008年)
05-12
为研究SiCP/Al-Fe-V-Si复合材料的热稳定性,对多层喷射沉积技术制备的SiC颗粒增强Al-Fe-V-Si合金经过不同温度下的热稳定性实验后进行了硬度检测,并对其显微组织进行了电镜观察。结果表明:随着基体合金材料中Fe含量的...
SICP-计算机课后习题资源
最新发布
04-20
SICP的习题和课后资源对于学生理解和掌握书中的概念至关重要。 在提供的文件列表中，我们可以看到包含了多种类型的资源文件，这些资源可以帮助读者更深入地理解SICP的内容。其中"许可证"文件（LICENSE）可能包含了...
SICP 习题2.19 重写count-change 过程
NM的专栏
06-12 1167
(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 1027
前几个输出是书上介绍不动点法的几个样例(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 牛顿法求平方根
NM的专栏
05-31 900
(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 788
我是用两个点表示的一个矩形，矩形的左下方的点和右上方的点。还有一种方法可以用一个左下方的点，一个长，一个宽就可以了。建立抽象屏障就是要求每个表示方法都能求出一个矩形的长和宽，根据这两个信息，就可以求出矩形面积和周长。(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 761
修改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 747
书上提到了迭代的算法，想到了完全背包，但是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) (
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值