我正試圖計算列表中所有中間值的總和。我的代碼如下,但它不起作用。 (: sums : (Listof Integer) -> (Listof Integer))
;; compute the sum of a list,
;; produce all the intermediate sums along the way
;; start with 0
;; (sums (list 1 2
我寫了下面的功能find-index在列表中搜索:現在 (: finind : (Listof Integer) Integer -> (Option Integer))
;; helper function for find-index
(define (finind a b)
(let loop ((a a) (c 0))
(cond
((empty? a