根据帕斯卡三角的一行求帕斯卡三角的下一行
(define (3-angle s)
(define (item s)
(cond ((= (length s) 1) s)
(else (cons (+ (car s) (cadr s)) (item (cdr s))))
)
)
(cons 1 (item s))
)
根据帕斯卡三角的一行求帕斯卡三角的下一行
(define (3-angle s)
(define (item s)
(cond ((= (length s) 1) s)
(else (cons (+ (car s) (cadr s)) (item (cdr s))))
)
)
(cons 1 (item s))
)