檢查列表中的重複 - 序言

Question

我正在嘗試編寫hasRepetition'recives'列表並返回true，當且僅當它有重複。

我寫道：hasRepetition（[Head | Tail]）： - 成員（Head，Tail）; hasRepetition（Tail）。

7？ - hasRepetition（[1,1]）。 錯誤：頂層：未定義的過程：hasRepetition/1（DWIM無法更正目標）

Answer 1

您的過程定義沒有問題。

我想你忘了諮詢你的代碼，即consult(name).其中name是代碼文件的名稱。

Answer 2

我想@gusbro已經給你答案（+1）。但請注意，您編寫的程序非常低效。

首先，應該使用memberchk/2而不是成員。然後，在分離之前進行剪切。否則，你的代碼將非常緩慢，如果在回溯時調用（例如，在findall內...）