|
<![CDATA[
procedure lrot( var t : tree );
var temp : tree;
a : integer;
begin
temp := t;
t := t^.right;
temp^.right := t^.left;
t^.left := temp;
{*** adjust balance ***}
a := temp^.bal;
temp^.bal := a - 1 - max( t^.bal, 0 );
t^.bal := min( a-2, a+t^.bal-2, t^.bal-1);
end;
]]> |
![[Home]](../../images/home_g.gif)
![[Chapter]](../../images/chapter_g.gif)
![[Contents]](../../images/contents_g.gif)
![[Previous Algorithm]](../../images/prevalg_g.gif)
![[Next Algorithm]](../../images/nextalg_g.gif)
C source (3413.lrot.c) 