SICP 习题2.22 square迭代式写法的失败

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

本文介绍了一个用于处理嵌套列表并实现平方操作的Scheme语言程序。针对初始代码产生的不正确输出，文章提供了正确的代码实现及解释，确保了对嵌套列表中每个元素进行正确的平方处理。
代码产生的结果是
((((()1)2)3)4)
而我们需要的是
(1(2(3(4))))
(define (square-list items)
  (define (iter things answer)
    (if (null? things)
      answer
      (iter (cdr things)
        (cons answer 
          (square (car things))))))
  (iter items ()))

(define square
  (lambda (x) (* x x)))

(square-list '(1 2 3 4))
SICP 习题 （2.22）解题总结: 迭代过程中的列表处理
keyboardOTA的专栏
01-12 3064
SICP 习题 2.22是习题2.21的后续题目，题目中讲到叫Louis Reasoner的人想重写suqare-list过程，希望使用迭代计算过程，而不是递归计算过程，有关迭代计算过程和递归计算过程，如果你没什么印象了，请翻回习题1.9 的解题总结看看。那个叫Louis Reasoner的人写的迭代版的suqre-list是这样的：(define (square-list-revert item
SICP 习题答案
05-16
- **迭代与循环**：虽然函数式编程倾向于使用递归，但SICP也讨论了迭代结构，如do循环和while循环。 7. **过程的组合与复合**： - **过程复合**：将简单过程组合成复杂过程，以实现更复杂的计算逻辑。 - **局部...
sicp 习题2.22
尘埃的博客
04-30 980
Louis 的两种方法都不对，第一种方法list 的顺序反了，第二种方法最后构造出的是一个表头为空，后面是值的序对。  list 应该表头就是第一个元素。 正确的迭代方法: (define (square-list items) (define (iter things answer) (if (null? things) (revers
SICP习题解答2.22
weixin_30950887的博客
08-02 198
(define (square-list3 items) (define (append list1 list2) (cond ((null? list1) list2) (else (cons (car list1) (append (cdr list1) list2))))) (define (iter thing answer) (cond ((null? ...
【SICP练习】54 练习2.22
weixin_33895516的博客
02-22 127
 练习2.22 题目中Louis的第一个程序将items中的元素一个一个的取出来然后平方然后”推“到answer中。而我们在上一题中则是迭代结构，是将元素平方后”推“到一个大盒子中，而大盒子里又有一个元素被平方然后被”推“到另一个稍微小点的大盒子中去。 而修改后的程序看似解决了问题，其实错得更加离谱了。比如用(list 1 2 3 4 5)作...
《SICP》习题第1章
四毛毛的博客
11-13 1337
本人做的SICP习题第1章，如有错误请指正，用的解释器是Racket   练习1.1 计算代码如下 ;; Exercise 1.1 #lang racket 10 (+ 5 3 4) (- 9 1) (/ 6 2) (+ (* 2 4) (- 4 6)) (define a 3) (define b (+ a 1)) (+ a b (* a b)) (= a b) (i...
《SICP》习题第3章（施工中）
四毛毛的博客
05-07 949
本人做的SICP习题第3章，如有错误请指正，用的解释器是Racket 练习3.1 ;; 累加器 (define (make-accumulator initial) (lambda (x) (let ((sum (+ initial x))) (set! initial (+ initial x)) sum))) 练习3.2 ;; 监控器...
SICP-计算机课后习题资源
最新发布
04-20
"lambda演算.pdf"文件则是探讨了函数式编程的理论基础，其中lambda演算是函数式编程的核心概念之一，对于理解SICP中关于函数作为一等公民的概念至关重要。 此外，"readme.txt"文件可能包含对压缩包内容的介绍或使用...
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 1074
前几个输出是书上介绍不动点法的几个样例(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 773
书上提到了迭代的算法，想到了完全背包，但是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
SICP 练习1.7
NM的专栏
06-01 689
这个是改进good-enough?函数，容易想到，guess (improve guess x) 分别是上一次迭代和下一次迭代的结果，那么就可以测量这个变化来改进good-enough?函数(define (sqrt-iter guess x) (if (good-enough? guess (improve guess x)) guess (sqrt-iter (improve
SICP 习题2.4 cons car cdr 用过程实现
NM的专栏
06-10 646
(define (cons-a x y) (lambda (m) (m x y)))(define (car-a z) (z (lambda (p q) p)))(define (cdr-a z) (z (lambda (p q) q)))(define a (cons-a 1 2)) (newline) (display (car-a a)) (newline) (display (c
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值