接下来我会写一写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))
,将会错过更好的风景,保持一份平和,保持一份清醒。