计算 pascal 三角(就是杨辉三角)
为了描述方便, 先建立两个 0 基的坐标轴: 一个自上而下的 m 轴和一个自左而右的 n 轴。
(define (pascal m n)
(if (or (< m 2) (< n 1) (= m n))
1
(+ (pascal (- m 1) (- n 1))
(pascal (- m 1) n))))
为了描述方便, 先建立两个 0 基的坐标轴: 一个自上而下的 m 轴和一个自左而右的 n 轴。
(define (pascal m n)
(if (or (< m 2) (< n 1) (= m n))
1
(+ (pascal (- m 1) (- n 1))
(pascal (- m 1) n))))