две схемы списков ассоциаций

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 «Обработка двух списков одновременно». У этого есть куча проблем такого рода.

Если это не вопрос, связанный с классом, то дайте мне знать.