在prolog列表中查找所有重复项

Question

我编写了以下代码，该代码在给定列表中找到第一个副本，然后返回＆＃39;它作为L，我该怎样做这个＆＃39;返回＆＃39;列表中的所有重复项都是L？ 防爆。重复（L，[1,2,3,3,4,4]）。将返回L = 3，L = 4。

duplicate(_,[]).
duplicate(L,[H|T]) :-
    member(H,T),
    L is H.