僕の備忘録(PC、UN*X、ネットワーク関連が中心)なんです。
自分の書いたところは適当(な時とか)に書き換えますので御了承を。
また同じ本から。
atom? のさらに先で、
atom の list もしくは空白であれば #t、
さもなくば #f。
再帰によって全部走査する、らしい。
(define lat? (lambda (l) (cond ((null? l) #t) ((atom? (car l)) (lat? (cdr l))) (else #f))))
これも同じ。nil がうまく動かないので、 とりあえずは #f と書いてはいるが。
(define member?
(lambda (a lat)
(cond
((null? lat) #f)
(else (or (eq? (car lat) a)
(member? a (cdr lat)))))))
リンクはご自由にどうぞ。でもURLや内容が変った場合はあしからず。