Single left rotation


procedure lrot( var t : tree ); var temp : tree; begin temp := t; t := t^.right; temp^.right := t^.left; t^.left := temp; end;

Pascal source (3418.lrot.p)


© Addison-Wesley Publishing Co. Inc.