sicp practice 1.12

iteye_19972

于 2012-06-14 02:07:44 发布

阅读量166

点赞数

分类专栏： scheme

本文链接：https://blog.csdn.net/iteye_19972/article/details/82342216

版权

scheme 专栏收录该内容

6 篇文章

订阅专栏

本文介绍了一段使用 Racket 语言实现的代码，该代码能够输出帕斯卡三角形的部分序列。通过定义一个名为 sum-lst 的函数，传入一个整数列表，递归地计算并返回列表中元素累积相加的结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#lang racket
(define (sum-lst lst)
  (let loop ((lst lst) (accum '()) (prev 0))
    (cond
    ((empty? lst) (reverse (cons 1 accum)))
    (else (loop (cdr lst) (cons (+ (car lst) prev) accum) (car lst))))))

(sum-lst '(1))输出'(1 1)
(sum-lst '(1 1)输出'(1 2 1)

这题是为了输出帕斯卡三角