SICP 习题2.23 实现for-each

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

本文展示了一种使用Scheme语言实现for-each函数的方法。该方法通过递归调用自身来遍历列表，并对每个元素执行指定的过程。示例代码演示了如何打印列表中的每个数字。
我还是用了前面那个非常讨巧的办法，两个if
(define (for-each proc items)
  (if (not (null? items)) (proc (car items)))
  (if (not (null? items)) (for-each proc (cdr items))))

(for-each (lambda (x) (newline) (display x)) '(57 321 88))
SICP 习题答案
05-16
《计算机程序的构造和解释》（SICP）是一本极具影响力的计算机科学教材，由Harold Abelson和Gerald Jay Sussman所著，MIT出版社出版。这本书以其深入探讨编程概念、程序设计方法以及计算机系统的工作原理而闻名。1-3...
精选资源
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.23）解题总结：for-each的实现
keyboardOTA的专栏
01-16 2486
SICP 习题 2.23 要求我们实现一个for-each过程。for-each过程和map过程其实很像，只不过for-each过程不返回值，如果返回一个值的话也是不包含意义的值。map比较像一个加工厂，进去一堆东西，加工一下，出来另一堆东西。for-each更像一个蒸汽机，进去一堆煤，燃烧一下，产生能量干点活，不出来东西，真的一定要说有东西出来也是煤渣，大家不在乎的东西。所以for-each更关
sicp 习题 2.23
尘埃的博客
04-30 800
#lang planet neil/sicp (define lst (list 57 321 88)) (define thing (lambda (x) (newline) (display x))) (define (for-each thing lst) (cond ((not (null? lst)) (thing (car lst))
SICP习题解答2.23
weixin_30326515的博客
08-02 165
(define (for-each proc items) (cond ((not (null? items)) (proc (car items)) (for-each proc (cdr items))))) 转载于:https://www.cnblogs.com/science/archive/2007/01/09/616114.html...
【SICP练习】55 练习2.23
weixin_34127717的博客
02-22 152
 练习2.23 这道题就有小小的难度了。(define (for-each f lst) (cond ((not (null? lst)) (f (car lst)) (for-each f (cdr lst))))) 如果用上前面经常用到的begin和if，这里还有另一种for-each实...
sicp每日一题[2.22-2.23]
最新发布
再思的博客
09-23 727
第一部分的代码得到的答案是倒序的，这个是因为程序里每次都把新加入的元素放到结果列表的开头；第二部分得到的答案是这样的：'(((((() . 1) . 9) . 25) . 49) . 81)，虽然顺序对了，这并不是我们想要的列表，其实只要在调用第一部分代码后再次调用之前练习里的 reverse 函数就可以得到顺序正确的列表了。这道题开始我不知道怎么连续执行 2 条程序，所以不知道怎么处理，后来上网查了一下，发现。可以直接把多条语句放到一起执行，然后这道题就没有什么难度了。
激光表面熔覆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 习题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 1073
前几个输出是书上介绍不动点法的几个样例(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 928
(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 796
修改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 772
书上提到了迭代的算法，想到了完全背包，但是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) (
SICP 习题2.42 八皇后问题
NM的专栏
07-01 727
想不到第一次写八皇后问题是用的scm写代码的途中遇到一个错误，用let错了，用define对了，应该是编译器的原因，和nil差不多。(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr
SICP 习题2.33 用accumulate完成一些基本的表操作
NM的专栏
06-24 705
这个accumulate比第一章完成更强大(define (accumulate op initial sequence) (if (null? sequence) initial (op (car sequence) (accumulate op initial (cdr sequence)))))(define (map p sequence) (accu
MIT-Scheme实现的SICP习题解答
《SICP-ANSWER：MIT-Scheme 版本的答案》是一个针对经典计算机科学教材《计算机程序的构造和解释》（Structure and Interpretation of Computer Programs，简称 SICP）中所有编程练习题提供解答的开源项目，特别聚焦...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值