list - 用于检查列表是否存在重复项的 Scheme 函数

Question

我需要编写一个 Scheme 函数来检查重复条目列表。我想我已经把工作流程写在纸上，我只需要帮助将它从纸上转换成代码。

首先我需要检查它是否是一个空列表。所以我有...

(define (checkDupe mylist)
  (if (null? mylist)
      ()
      (checkDupeB mylist)
  )
)

然后我有这种“双重递归”，我检查第一个数字与列表的其余部分，然后第二个数字与列表的其余部分，依此类推，当它找到匹配时，它会吐出一个 #t ，如果它到达末尾并且没有找到匹配项，则该函数的结果是 #f 。问题是我无法理解这个递归的东西。这是一个家庭作业问题，但我对学习这些东西非常感兴趣。

有人可以向我抛出一些代码并帮助我解决这个问题吗？

Answer 1

这是一种方式

(define (has-duplicates? lst) 
  (cond
     [(empty? lst) #f] 
     [(not (not (member (first lst) (rest lst)))) #t]
     [else (has-duplicates? (rest lst)) ]))