![](https://img-blog.csdnimg.cn/20201014180756724.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
lisp
solamio
这个作者很懒,什么都没留下…
展开
-
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 · 137 阅读 · 0 评论 -
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 · 145 阅读 · 0 评论 -
练习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 · 94 阅读 · 0 评论 -
练习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 · 105 阅读 · 0 评论 -
练习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 · 146 阅读 · 0 评论