【SICP练习】68 练习2.39
2015-02-22 13:59
260 查看
练习2.39
通过前一习题的类比相信已经知道了fold-left和fold-right的内在意义,本题中要求的逆序数可以用cons来构造。具体为,先将list的第一个元素取出用(cons
(car list) ‘() )构造,接着第二个、第三个……用(cons
…… (cons (car (car list) ) (cons (carlist) ‘())))。当然了,在这个递归的过程中我们并不需要(car (car list)),用(car list)不断的代换list即可。
根据题目中设置好的对应关系,nil对应x,sequence对应y。于是:
(define (reverse sequence)
(fold-left (lambda (x y)
(cons y x))
‘()
sequence))
同样的,fold-right也是用到类似的关系,区别就在于用的是append和list的组合。如果不懂的就慢慢领会了。
(define (reverse sequence)
(fold-right (lambda (x y)
(append y (list x)))
‘()
sequence))
写完了函数就只管测试了。
(reverse ‘(1 3 5 7 9 2 4 6 8))
;Value: (8 6 4 2 9 7 5 3 1)
上午三个小时才做了这7道题,略慢啊。当然了,也包括写博客的时间。下一题见咯。
练习2.39
通过前一习题的类比相信已经知道了fold-left和fold-right的内在意义,本题中要求的逆序数可以用cons来构造。具体为,先将list的第一个元素取出用(cons
(car list) ‘() )构造,接着第二个、第三个……用(cons
…… (cons (car (car list) ) (cons (carlist) ‘())))。当然了,在这个递归的过程中我们并不需要(car (car list)),用(car list)不断的代换list即可。
根据题目中设置好的对应关系,nil对应x,sequence对应y。于是:
(define (reverse sequence)
(fold-left (lambda (x y)
(cons y x))
‘()
sequence))
同样的,fold-right也是用到类似的关系,区别就在于用的是append和list的组合。如果不懂的就慢慢领会了。
(define (reverse sequence)
(fold-right (lambda (x y)
(append y (list x)))
‘()
sequence))
写完了函数就只管测试了。
(reverse ‘(1 3 5 7 9 2 4 6 8))
;Value: (8 6 4 2 9 7 5 3 1)
上午三个小时才做了这7道题,略慢啊。当然了,也包括写博客的时间。下一题见咯。
相关文章推荐
- 【SICP练习】68 练习2.39
- SICP题解----第1.1节练习
- 【SICP练习】15 练习1.21
- 【SICP练习】144 练习3.82
- 【SICP练习】88 练习2.60
- 【SICP练习】83 练习2.55
- 【SICP练习】77 练习2.48-2.49
- 【SICP练习】117 练习3.44
- 【SICP练习】124 练习3.55
- 【SICP练习】27 练习1.33
- 【SICP练习】141 练习3.72
- 【SICP练习】18 练习1.24
- 【SICP练习】8 练习1.12
- 【SICP练习】18 练习1.24
- SICP 练习1.17
- 【SICP练习】30 练习1.36
- SICP 练习1.31 product过程
- 【SICP练习】55 练习2.23
- 【SICP练习】72 练习2.43
- 【SICP练习】89 练习2.62