計數項目出現在結構化列表中的方案

Question

僅供參考我正在編程Scheme使用DrRacket。

我想計算一個名稱（字符串）是選票列表中的第一選擇的次數，但似乎無法弄清楚。

對於這個問題的一些背景，

進行投票表決由三個候選人的名字，一個人投票支持的。這被定義爲結構：（define-struct vote（choice1 choice2 choice3））。

top-votes-for函數應該使用一個名稱和一個投票列表，併產生給定名稱是投票列表中第一選票的次數。

這是我的代碼（注意，定義不正確）：

;; Data Definition 
(define-struct vote (choice1 choice2 choice3)) 
;; A vote is a structure: (make-vote String Number String). 
;; interp. 3 candidates that one person has voted for (String) 

(define vote1 
    (make-vote "Blake" "Joey" "Will")) 

(define vote2 
    (make-vote "Blake" "Bob" "Ash")) 

(define vote3 
    (make-vote "Bob" "Ash" "Blake")) 

(define listofVotes 
    (list vote1 vote2 vote3)) 

;; Signature: top-votes-for: string list-of-strings -> number 
;; Purpose: Consumes a name and a list of votes and produces the number of 
;;   times that the given name was the first choice vote in the list of votes. 
;; Tests: 
(check-expect (top-votes-for "Blake" empty) 0) 
(check-expect (top-votes-for "Blake" listofVotes) 2) 
(check-expect (top-votes-for "Bob" listofVotes) 1) 
(check-expect (top-votes-for "Ash" listofVotes) 0) 
;; Define: 
(define (top-votes-for cand alov) 
    (cond 
    [(empty? alov) 0] 
    [(string=? (vote-choice1 cand) cand) 1] 
    [else ((first alov) (top-votes-for (rest alov)))] 
    ) 
) 

預先感謝您！

Answer 1

您對top-votes-for的定義是錯誤的。這是一個更正解決方案的骨架版本：

(define (top-votes-for cand alov) 
    (cond ((empty? alov) 0) 
     ((string=? (vote-choice1 <???>) cand) 
     (add1 <???>)) 
     (else (top-votes-for cand (rest alov))))) 

我已經給你提供了大部分的解決方案。如果你瞭解上面的代碼，其餘部分應該很容易理解。