全民Scheme（2）：来自星星的你

一门编程语言，如果不能对你思考编程的方式产生影响，就不值得去学习。——  Alan Perlis

(define rember*
  (lambda (a list)
    (cond
      ((null? list) '())
      ((atom? (car list)) (cond 
                      ((eq? a (car list)) (rember* a (cdr list)))
                      (else (cons (car list) (rember* a (cdr list))))))
      (else (cons (rember* a (car list)) (rember* a (cdr list)))))))


(rember* 'cup '((coffee) cup ((tea) cup) (and (hick)) cup))

(define insertR*
  (lambda (new old l)
    (cond
      ((null? l) '())
      ((atom? (car l)) (cond
                         ((eq? (car l) old) (cons old (cons new (cdr l))))
                         (else (cons (car l) (insertR* new old (cdr l))))))
      (else (cons (insertR* new old (car l)) (insertR* new old (cdr l)))))))

(insertR* 'roast 'chuck '((how much (wood))
                          could
                          ((a (wood) chuck))
                          (((chuck)))
                          (if (a) ((wood chuck)))
                          could chuck wood))

(define occur*
  (lambda (a l)
    (cond
      ((null? l) 0)
      ((atom? (car l)) (cond ((eq? a (car l)) (+ 1 (occur* a (cdr l))))
                             (else (occur* a (cdr l)))))
      (else (+ (occur* a (car l)) (occur* a (cdr l)))))))

(occur* 'banana '((banana) (split ((((banana ice)))
                                   (cream (banana))
                                   sherbet))
                           (banana)
                           (bread)
                           (banana brandy)))
(define subst*
  (lambda (new old l)
    (cond
      ((null? l) '())
      ((atom? (car l)) (cond
                         ((eq? old (car l)) (cons new (subst* new old (cdr l))))
                         (else (cons (car l) (subst* new old (cdr l))))))
      (else (cons (subst* new old (car l)) (subst* new old (cdr l)))))))
(subst* 'orange 'banana '((banana) (split ((((banana ice)))
                                   (cream (banana))
                                   sherbet))
                           (banana)
                           (bread)
                           (banana brandy)))

(define insertL*
  (lambda (new old l)
    (cond
      ((null? l) '())
      ((atom? (car l)) (cond
                        ((eq? old (car l)) (cons new (cons old (insertL* new old (cdr l)))))
                        (else (cons (car l) (insertL* new old (cdr l))))
                        ))
      (else (cons (insertL* new old (car l)) (insertL* new old (cdr l)))))))

(insertL* 'pecker 'chuck '((how much (wood))
                           could
                           ((a (wood) chuck))
                           (((chunck)))
                           (if (a) ((wood chuck)))
                           (could chuck wood)))

(define member*
  (lambda (a l)
    (cond
      ((null? l) #f)
      ((atom? (car l)) (cond
                         ((eq? (car l) a) #t)
                         (else (member* a (cdr l)))))
      (else (or (member* a (car l))
                (member* a (cdr l)))))))

(member* 'chips '((potato) (chips ((with) fish)(chips))))