Weight balanced tree right rotation
procedure rrot( var t : tree ); var temp : tree; begin temp := t; t := t^.left; temp^.left := t^.right; t^.right := temp; {*** adjust weight ***} t^.weight := temp^.weight; temp^.weight := wt(temp^.left) + wt(temp^.right); end;
C
source (3414.rrot.c)
Pascal
source (3414.rrot.p)
©
Addison-Wesley
Publishing Co. Inc.
![[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 (3414.rrot.c) 