全民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))