杨辉三角---scheme表示

2023年1月20日 253次阅读 来源: 杨辉三角问题 
(define (pr n)
  (define (update l)
    (if (not (null? (cdr l)))
        (begin
          (set-car! l (+ (car l) (car (cdr l))))
          (update (cdr l)))))
  (let t ((l '(1)) (i 1))
    (if (<= i n)
        (begin
          (display l) (newline)
          (update l)
          (t (cons 1 l) (+ 1 i))))))
(pr 12)
(1)
(1 1)
(1 2 1)
(1 3 3 1)
(1 4 6 4 1)
(1 5 10 10 5 1)
(1 6 15 20 15 6 1)
(1 7 21 35 35 21 7 1)
(1 8 28 56 70 56 28 8 1)
(1 9 36 84 126 126 84 36 9 1)
(1 10 45 120 210 252 210 120 45 10 1)
(1 11 55 165 330 462 462 330 165 55 11 1)
     原文作者：杨辉三角问题
     原文地址: https://blog.csdn.net/myspacetravel/article/details/35572125
    本文转自网络文章，转载此文章仅为分享知识，如有侵权，请联系博主进行删除。 
  点赞