BobDay的博客

;(define rember-f ; (lambda(test? a l) ; (cond ; ((null? l)(quote())) ; (else(cond ; ((test?(car l)a)(cdr l)) ; (else(cons(car l) ; (rember...

(define set? (lambda(lat) (cond ((null? lat)#t) ((member?(car lat)(cdr lat)) #f) (else(set?(cdr lat)))))) (define multirember (lambda(a lat) (cond ...

(define numbered? (lambda (aexp) (cond ((atom? aexp)(number? aexp)) ((eq?(car(cdr aexp))(quote +)) (and(numbered?(car aexp)) (numbered? (car(cdr(cdr aex...

(define rember* (lambda (a l) (cond ((null? l)(quote())) ((atom?(car l)) (cond ((eq?(car l) a) (rember* a (cdr l))) (else(cons (car l) ...

#lang sicp ;加一 (define add1 (lambda (n) (+ n 1))) ;减一 (define sub1 (lambda (n) (- n 1))) ;求和 (define sum (lambda (n m) (cond ((zero? m) n) (else (add1(sum n(sub1 m)))))...

#lang sicp ;判断是否是原子 (define atom? (lambda (x) (and (not (pair? x)) (not (null? x))))) ;判断列表的元素是否都是原子 (define lat? (lambda (l) (cond ((null? l)#t) ((atom?(car l))(lat? (cdr l))...