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