兩個關聯列表計劃

Question

假設我有兩個函數返回關聯列表，其中一個給出了每個人擁有的瓶子的總數量，另一個給出了他們獲得它所花費的天數。我如何將兩個列表的平均值結合起來？ 鑑於

(define (lookup k alst) 
    (cond [(empty? alst) 
     empty] 
     [(equal? k (first (first alst))) 
     (second (first alst))] 
     [else 
     (lookup k (rest alst))])) 

和

(define (put k v alst) 
    (cond [(empty? alst) 
     (list (list k v))] 
     [(equal? k (first (first alst))) 
     (cons (list k v) (rest alst))] 
     [else 
     (cons (first alst) 
       (put k v (rest alst)))])) 

所以說功能(total-bottles lst)回報 '((bob 10) (tim 30) (sally 25))和

(days-taken lst)將返回 '((bob 2) (tim 3) (sally 5))

我會怎麼做一個功能列表合併爲一個平均-瓶每日功能，可以返回平均每天收集的瓶子數量以返回此結果？ (average lst) '((bob 5) (tim 10) (sally 5))？

Answer 1

如果兩個列表都包含相同的人，並且順序相同，請按@JhonClements建議，並查看HtDP中的配方。爲了給你一個想法，這裏的解決方案的總體結構，填充了空白：

(define (average l1 l2) 
    (if <???>     ; if one of the lists is null 
     <???>     ; return null 
     (cons (list    ; else cons a new 2-element list, its first element 
      <???>   ; is the name in the current position in either list 
      (/ <???> <???>)) ; and calculate the average between current elements 
      (average <???> <???>)))) ; finally, advance recursion over both lists 

注意，用於確定其中一個列表爲空和採摘的人的名字，它無論您使用的是哪個清單 - 因爲我們假設這些清單在相同的職位上具有相同的長度和相同的人員。爲了計算平均值，您需要考慮列表中的當前元素，每個列表都包含列表。一旦你完成了，不要忘了測試你的解決方案：

(average (total-bottles lst) 
     (days-taken lst)) 

=> '((bob 5) (tim 10) (sally 5)) 

Answer 2

如果您按照您的建議，列表按照相同的順序並且包含完全相同的人員，那麼我建議您看看section 17.2 of HtDP，案例2「同時處理兩個列表」。它有一堆這樣的問題。

如果這不是一個類相關的問題，那麼讓我知道。