Skip to content
Home
Post Code
Jass (Warcraft III)
Wurst
GUI (Warcraft III)
Galaxy (StarCraft II)
GUI (StarCraft II)
C++
Java
Delphi
Text
Search Code
Compare Code
Uploads
Draw
Create New Drawing
View Drawings
Graph
Log in
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'
select language
jass
java
delphi
> C++
php
GSL
galaxy
visualBasic
wurst
Text
Markdown
select style
default
bbcode - default
Jasscraft
jasscraft html
visual
lightweight
> lightweightNr
goto line:
Compare with:
text copy window
edit this code
post new code
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'