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