Composition of Quicksort
. . . . begin while up-lo > M do begin . . . . body of quicksort; . . . . end; if up > lo then begin . . . . simpler-sort . . . . end end;
Pascal
source (413.compos.p)
©
Addison-Wesley
Publishing Co. Inc.