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

被折叠的 条评论
为什么被折叠?



