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
<pre class="jasscode">a_deleteDuplicates<span class="style_symbol">(</span>A<span class="style_symbol">[</span>0...n-<span class="style_int">1</span><span class="style_symbol">]</span><span class="style_symbol">)</span> :A<span class="style_comment">'[0...n-1]</span> buildHeap<span class="style_symbol">(</span>A<span class="style_symbol">)</span> //as it<span class="style_comment">'s done in heapsort</span> for <span class="style_symbol">(</span>i=n downto <span class="style_int">2</span><span class="style_symbol">)</span> do temp := Heap.deleteMin if <span class="style_symbol">(</span>A<span class="style_comment">'[i-1] != temp)</span> A<span class="style_comment">'[i]:= temp</span> b_deleteDuplicates<span class="style_symbol">(</span>A<span class="style_symbol">[</span>0...n-<span class="style_int">1</span><span class="style_symbol">]</span><span class="style_symbol">)</span> :A<span class="style_comment">'[0...n-1]</span> for <span class="style_symbol">(</span>i=<span class="style_int">0</span> to n-<span class="style_int">1</span><span class="style_symbol">)</span> do A<span class="style_comment">'[i] := null</span> for <span class="style_symbol">(</span>i=<span class="style_int">0</span> to n-<span class="style_int">1</span><span class="style_symbol">)</span> do h:= H<span class="style_symbol">(</span>A<span class="style_symbol">[</span>i<span class="style_symbol">]</span><span class="style_symbol">)</span> //H ist universelle Hashfkt die ganzzahlig in <span class="style_symbol">[</span><span class="style_int">0</span>,...,n-<span class="style_int">1</span><span class="style_symbol">]</span> abbildet A<span class="style_comment">'[h]:= A[i]</span> return A<span class="style_comment">'</span> </pre>
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'