两个关联列表计划

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“同时处理两个列表”。它有一堆这样的问题。

如果这不是一个类相关的问题，那么让我知道。