- 博客(5)
- 资源 (1)
- 收藏
- 关注
RSS订阅练习2.33-2.36
exercise 2.33[code="java"](define (map2 p sequence) (accumulate (lambda (x y) (cons (p x) y)) nil sequence))(define (append2 seq1 seq...
2012-03-04 15:12:32
138
练习2.30-2.32
2.30[code="java"](define (square-tree l) (cond ((null? l) '()) ((not (pair? l)) (square l)) (else (cons (square-tree (car l)) (square-tree (cdr l))))))(...
2012-03-03 20:50:35
98
练习2.23
[code="java"](define (my-for-each proc items) (if (null? items) #f (and (proc (car items)) (my-for-each proc (cdr items)))))[/code]
2012-03-03 14:19:02
87
scip练习2.22
为什么顺序会反？看看iter和cons的结构顺序就明白了[code="java"](define (square-list items) (define (iter things answer) (if (null? things) answer (cons (square (car things)) ...
2012-03-03 13:44:24
139
scip练习2.20
[code="java"](define (same-parity x . z) (define (q? y) (= (remainder y 2) 1)) (define (o? y) (= (remainder y 2) 0)) (define (jg z f) (define m '()) (define (je a f m) (...
2012-03-03 12:53:45
131
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人