全民Scheme（0）：lat的定义

接下来我会写一写Scheme的学习笔记。嗯，Scheme是属于小众的语言，但合适用来教学的。

什么是lat，就是遍历list里的每个S-expression,如果发现其中某个不是atom的，则返回false，否则返回true。

(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)))
      (else #f))))


(lat? ‘())


(lat? ‘(jack sprat could eat no chicken fat))


(lat? ‘((jack) sprat))


(lat? ‘(jack (sprat could) eat))

全民Scheme（0）：lat的定义

原文：http://blog.csdn.net/booirror/article/details/46596099