home *** CD-ROM | disk | FTP | other *** search
/ Alde ADA 1: #1 / CCCC 8804 Volume 1 Number 1 - Alde.iso / C / MISC / LIB / CLIB2.ARC / SSORT.C < prev    next >
Unknown  |  1985-10-18  |  1.1 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert Compact Compressed (Unix) (archive/compact) ext Supported
100% file data default
100% TrID Digital Micrograph Script default (weak)
100% gt2 Kopftext: '/* ssort - shell sort (see Knuth p. 85 default (weak)
100% xdgMime text/x-csrc default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 2a 20 73 73 6f 72 74 | 20 2d 20 73 68 65 6c 6c |/* ssort| - shell|
|00000010| 20 73 6f 72 74 20 28 73 | 65 65 20 4b 6e 75 74 68 | sort (s|ee Knuth|
|00000020| 20 70 2e 20 38 35 0d 0a | 20 20 20 73 73 6f 72 74 | p. 85..| ssort|
|00000030| 28 6e 2c 63 6f 6d 70 2c | 73 77 61 70 29 0d 0a 75 |(n,comp,|swap)..u|
|00000040| 6e 73 69 67 6e 65 64 20 | 6e 3b 0d 0a 69 6e 74 20 |nsigned |n;..int |
|00000050| 28 2a 63 6f 6d 70 29 28 | 29 3b 0d 0a 69 6e 74 20 |(*comp)(|);..int |
|00000060| 28 2a 73 77 61 70 29 28 | 29 3b 0d 0a 20 20 20 20 |(*swap)(|);.. |
|00000070| 20 20 20 20 20 20 20 20 | 73 65 65 20 62 73 6f 72 | |see bsor|
|00000080| 74 20 66 6f 72 20 66 75 | 6c 6c 20 64 65 73 63 72 |t for fu|ll descr|
|00000090| 69 70 74 69 6f 6e 20 6f | 66 20 70 61 72 6d 73 0d |iption o|f parms.|
|000000a0| 0a 2a 2f 0d 0a 23 64 65 | 66 69 6e 65 20 76 6f 69 |.*/..#de|fine voi|
|000000b0| 64 20 69 6e 74 0d 0a 0d | 0a 76 6f 69 64 20 73 73 |d int...|.void ss|
|000000c0| 6f 72 74 28 6e 2c 63 6f | 6d 70 2c 73 77 61 70 29 |ort(n,co|mp,swap)|
|000000d0| 0d 0a 75 6e 73 69 67 6e | 65 64 20 6e 3b 0d 0a 69 |..unsign|ed n;..i|
|000000e0| 6e 74 20 28 2a 63 6f 6d | 70 29 28 29 3b 0d 0a 69 |nt (*com|p)();..i|
|000000f0| 6e 74 20 28 2a 73 77 61 | 70 29 28 29 3b 0d 0a 7b |nt (*swa|p)();..{|
|00000100| 0d 0a 09 69 6e 74 20 6d | 3b 0d 0a 09 69 6e 74 20 |...int m|;...int |
|00000110| 68 2c 69 2c 6a 2c 6b 3b | 0d 0a 0d 0a 09 6d 3d 6e |h,i,j,k;|.....m=n|
|00000120| 3b 0d 0a 0d 0a 09 77 68 | 69 6c 65 28 6d 20 2f 3d |;.....wh|ile(m /=|
|00000130| 20 32 29 20 7b 0d 0a 09 | 09 6b 20 3d 20 6e 20 2d | 2) {...|.k = n -|
|00000140| 20 6d 3b 0d 0a 09 09 6a | 20 3d 20 31 3b 0d 0a 09 | m;....j| = 1;...|
|00000150| 09 64 6f 20 7b 0d 0a 09 | 09 09 69 20 3d 20 6a 3b |.do {...|..i = j;|
|00000160| 0d 0a 09 09 09 64 6f 20 | 7b 0d 0a 09 09 09 09 68 |.....do |{......h|
|00000170| 20 3d 20 69 20 2b 20 6d | 3b 0d 0a 09 09 09 09 69 | = i + m|;......i|
|00000180| 66 28 28 2a 63 6f 6d 70 | 29 28 69 2d 31 2c 68 3d |f((*comp|)(i-1,h=|
|00000190| 31 29 20 3e 20 30 29 20 | 7b 0d 0a 09 09 09 09 09 |1) > 0) |{.......|
|000001a0| 28 2a 73 77 61 70 29 28 | 69 20 2d 20 31 2c 20 68 |(*swap)(|i - 1, h|
|000001b0| 20 2d 20 31 29 3b 0d 0a | 09 09 09 09 09 69 20 2d | - 1);..|.....i -|
|000001c0| 3d 20 6d 3b 0d 0a 20 09 | 09 09 09 7d 65 6c 73 65 |= m;.. .|...}else|
|000001d0| 0d 0a 09 09 09 09 09 62 | 72 65 61 6b 3b 0d 0a 09 |.......b|reak;...|
|000001e0| 09 09 7d 20 77 68 69 6c | 65 28 69 3e 3d 20 31 29 |..} whil|e(i>= 1)|
|000001f0| 3b 0d 0a 09 09 6a 2b 3d | 31 3b 0d 0a 09 09 7d 20 |;....j+=|1;....} |
|00000200| 77 68 69 6c 65 28 6a 20 | 3c 3d 20 6b 29 3b 0d 0a |while(j |<= k);..|
|00000210| 09 7d 0d 0a 7d 0d 0a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |.}..}...|........|
|00000220| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000230| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000240| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000250| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000260| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000270| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000280| 1a 68 69 6c 65 28 6a 20 | 3c 3d 20 6b 29 3b 0d 0a |.hile(j |<= k);..|
|00000290| 09 7d 0d 0a 7d 0d 0a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |.}..}...|........|
|000002a0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000002b0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000002c0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000002d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000002e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000002f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000300| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000390| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 1a 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000420| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000430| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000450| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+