25.11.2014 Views

Algorithms and Data Structures

Algorithms and Data Structures

Algorithms and Data Structures

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

N.Wirth. <strong>Algorithms</strong> <strong>and</strong> <strong>Data</strong> <strong>Structures</strong>. Oberon version 170<br />

p.right := p2.left; p2.left := p;<br />

IF p2.bal = +1 THEN p.bal := -1 ELSE p.bal := 0 END;<br />

IF p2.bal = -1 THEN p1.bal := 1 ELSE p1.bal := 0 END;<br />

p := p2; p2.bal := 0<br />

END<br />

END<br />

END balanceL;<br />

PROCEDURE balanceR (VAR p: Node; VAR h: BOOLEAN);<br />

VAR p1, p2: Node;<br />

BEGIN<br />

(*h; right branch has shrunk*)<br />

IF p.bal = 1 THEN p.bal := 0<br />

ELSIF p.bal = 0 THEN p.bal := -1; h := FALSE<br />

ELSE (*bal = -1, rebalance*) p1 := p.left;<br />

IF p1.bal x THEN<br />

delete(x, p.left, h);<br />

IF h THEN balanceL(p, h) END<br />

ELSIF p.key < x THEN<br />

delete(x, p.right, h);<br />

IF h THEN balanceR(p, h) END

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!