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