接下来我会写一写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))