屑俺日記

☆ lat?

丸写しより、0.1歩前進。
引数にatomが来たら、黙って#fを。

(define	atom?
  (lambda (x)
    (and (not (pair? x)) (not (null? x)))))
(define lat?
  (lambda (l)
    (cond
     ((atom? l)	#f)
     ((null? l)  #t)
     ((atom? (car l)) (lat? (cdr l)))
     (else #f)))

☆ 全部足す、掛ける

前に書いたのと、同じ...かと思ったが、違った。

(define allplus
  (lambda (l)
    (cond
     ((null? l) 0)
     (else
      (+ (car l)
         (allplus
          (cdr l)))))))
 
(allplus '(1 2 3 4))
10

掛け算にする時は、((null? l) 1)か。
それにしても、再帰による繰り返し処理は、 なかなか頭に入らない。