全员Scheme（0）：lat的定义
全民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))