RosettaCodeData/Task/Remove-duplicate-elements/SETL/remove-duplicate-elements-3.setl
Ingy döt Net b83f433714 tasks a-s
2013-04-10 23:57:08 -07:00

4 lines
120 B
Text

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