Pagodas insertion
procedure insert( new : tree; var pq : tree ); begin new^.left := new; new^.right := new; pq := merge( pq, new ) end;
C
source (515.ins.c)
Pascal
source (515.ins.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 (515.ins.c) 