home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_10_09 / 1009032a < prev    next >
Text File  |  1991-12-18  |  303b  |  14 lines
  1. for (incr = n; swap != 0 || incr > 1; incr = (incr + 1) / 2) {
  2.   swap = 1;
  3.   while (swap != 0) {
  4.     swap = 0;
  5.     for (i = 0; i < n - incr; i++)
  6.       if (x[i] > x[i + incr]) {
  7.         tmp = x[i];
  8.         x[i] = x[i + incr];
  9.         x[i + incr] = tmp;
  10.         swap = 1;
  11.       }
  12.     }
  13.   }
  14. }