a_deleteDuplicates(A[0...n-1]) :A'[0...n-1] { buildHeap(A) //as it's done in heapsort for (i=n downto 2) do { temp := Heap.deleteMin } if (A'[i-1] != temp) { A'[i]:= temp } }

b_deleteDuplicates(A[0...n-1]) :A'[0...n-1] { for (i=0 to n-1) do { A'[i] := null } for (i=0 to n-1) do { h:= H(A[i]) //H ist universelle Hashfkt die ganzzahlig in [0,...,n-1] abbildet A'[h]:= A[i] } } return A'