積累在Scheme Lang R5RS中不工作

Question

我解決了一個涉及使用map和accumulate的問題，但它給了我這個錯誤： "accumulate: undefined;" cannot reference undefined identifier. "accumulate: undefined;" cannot reference undefined identifier.

這是我的代碼：

;Procedure to test it with
(define (double x)
   (* 2 x))

(define (my-map proc sequence) 
   (accumulate (lambda (x y) (cons (proc x) y)) '() sequence))

請任何人告訴我如何解決此問題？

Answer 1

R5RS中未定義過程accumulate 。 但是定義您自己的足夠簡單：

(define (accumulate proc init lst)
  (if (null? lst)
      init
      (proc (car lst)
            (accumulate proc init (cdr lst)))))

對於未來的參考， accumulate也被稱為foldr ， fold-right ， inject或reduce在其他編程語言，請咨詢您翻譯的文檔，了解更多詳情。