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