RosettaCodeData/Task/Remove-duplicate-elements/SETL/remove-duplicate-elements-3.setl
2023-07-01 13:44:08 -04:00

4 lines
120 B
Text

proc unique(items);
seen := {};
return [item: item in items, nps in {#seen} | #(seen with:= item) > nps];
end proc;