「Scheme手習い」で基礎勉強中

;; Page 10
;; x が atom かどうか
(define (atom? x)
 (and (not (pair? x)) (not (null? x))))


;; Page 16
;; l が、全て atom で構成されたリストかどうか
(define (lat? l)
 (cond ((null? l) #t)
  ((atom? (car l)) (lat? (cdr l)))
  (else #f)))


;; Page 23
;; a が lat のメンバーかどうか
(define (member? a lat)
 (cond ((null? lat) #f)
  (else (or (eq? a (car lat)) (member? a (cdr lat))))))


;; Page 41
;; lat から最初に見つかった a を除いたリストを返す
(define (rember a lat)
 (cond ((null? lat) '())
  ((eq? a (car lat)) (cdr lat))
  (else (cons (car lat) (rember a (cdr lat))))))

#Scheme #Gauche #lisp

SN 2013/06/26 15:13:57

Archives > Little_Schemer_01.html