計劃乘法列表項目

Question

我看了看，但很驚訝沒有找到這個問題的答案。

在R5RS計劃中，您將如何編寫一個將列表中的每個元素相互相乘的過程。如果我給了一個清單'（4 5 6），程序multiply-list應該返回120. 4 * 5 * 6 = 120。

在此先感謝。

Answer 1

的「建議」的方式：

(define mult 
    (lambda (the-list) 
    (apply * the-list))) 

一個迭代實現：

(define mult-it 
    (lambda (the-list) 
    (let ((result 1)) 
     (begin 
     (for-each 
     (lambda (x) 
      (set! result (* result x))) 
     the-list) 
     result)))) 

一個純粹的功能性和遞歸執行：

(define mult-rec 
    (lambda (the-list) 
    (if (null? the-list) 
     1 
     (* (car the-list) (mult-rec (cdr the-list)))))) 

Answer 2

(define (multiply-list list) 
    (let loop ((list list) (accum 1)) 
    (cond 
     ((null? list) accum) 
     ((not (number? (car list))) '()) 
     (else (loop (cdr list) (* accum (car list))))))) 

Answer 3

(define (multiply-list l) (apply * l))

微不足道，因爲它得到。這可能是爲什麼你從來沒有找到答案：沒有人打擾寫下來......