Single right rotation
procedure rrot( var t : tree ); var temp : tree; begin temp := t; t := t^.left; temp^.left := t^.right; t^.right := temp; end;
Pascal
source (3418.rrot.p)
©
Addison-Wesley
Publishing Co. Inc.