计数项目出现在结构化列表中的方案

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))))) 

我已经给你提供了大部分的解决方案。如果你了解上面的代码，其余部分应该很容易理解。