/ NetNews Usenet Archive 1992 #27 / NN_1992_27.iso / spool / bit / listserv / sasl / 5146

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 43 6f 6d 6d 65 6e 74 73 | 3a 20 47 61 74 65 64 20 |Comments|: Gated |
|00000010| 62 79 20 4e 45 54 4e 45 | 57 53 40 41 55 56 4d 2e |by NETNE|WS@AUVM.|
|00000020| 41 4d 45 52 49 43 41 4e | 2e 45 44 55 0a 50 61 74 |AMERICAN|.EDU.Pat|
|00000030| 68 3a 20 73 70 61 72 6b | 79 21 75 75 6e 65 74 21 |h: spark|y!uunet!|
|00000040| 70 61 6c 61 64 69 6e 2e | 61 6d 65 72 69 63 61 6e |paladin.|american|
|00000050| 2e 65 64 75 21 61 75 76 | 6d 21 4c 41 4d 42 41 44 |.edu!auv|m!LAMBAD|
|00000060| 41 2e 4f 49 54 2e 55 4e | 43 2e 45 44 55 21 50 41 |A.OIT.UN|C.EDU!PA|
|00000070| 55 4c 2e 44 41 4c 42 45 | 52 54 48 0a 58 2d 4d 61 |UL.DALBE|RTH.X-Ma|
|00000080| 69 6c 65 72 3a 20 45 4c | 4d 20 5b 76 65 72 73 69 |iler: EL|M [versi|
|00000090| 6f 6e 20 32 2e 34 64 65 | 76 20 50 4c 36 35 5d 0a |on 2.4de|v PL65].|
|000000a0| 4d 69 6d 65 2d 56 65 72 | 73 69 6f 6e 3a 20 31 2e |Mime-Ver|sion: 1.|
|000000b0| 30 0a 43 6f 6e 74 65 6e | 74 2d 54 79 70 65 3a 20 |0.Conten|t-Type: |
|000000c0| 74 65 78 74 0a 43 6f 6e | 74 65 6e 74 2d 4c 65 6e |text.Con|tent-Len|
|000000d0| 67 74 68 3a 20 31 32 33 | 36 0a 4d 65 73 73 61 67 |gth: 123|6.Messag|
|000000e0| 65 2d 49 44 3a 20 3c 39 | 32 31 31 32 33 32 31 33 |e-ID: <9|21123213|
|000000f0| 34 2e 41 41 30 34 39 30 | 30 40 6c 61 6d 62 61 64 |4.AA0490|0@lambad|
|00000100| 61 2e 6f 69 74 2e 75 6e | 63 2e 65 64 75 3e 0a 4e |a.oit.un|c.edu>.N|
|00000110| 65 77 73 67 72 6f 75 70 | 73 3a 20 62 69 74 2e 6c |ewsgroup|s: bit.l|
|00000120| 69 73 74 73 65 72 76 2e | 73 61 73 2d 6c 0a 44 61 |istserv.|sas-l.Da|
|00000130| 74 65 3a 20 20 20 20 20 | 20 20 20 20 4d 6f 6e 2c |te:     |    Mon,|
|00000140| 20 32 33 20 4e 6f 76 20 | 31 39 39 32 20 31 36 3a | 23 Nov |1992 16:|
|00000150| 33 34 3a 35 36 20 45 53 | 54 0a 52 65 70 6c 79 2d |34:56 ES|T.Reply-|
|00000160| 54 6f 3a 20 20 20 20 20 | 50 61 75 6c 20 44 61 6c |To:     |Paul Dal|
|00000170| 62 65 72 74 68 20 3c 50 | 61 75 6c 2e 44 61 6c 62 |berth <P|aul.Dalb|
|00000180| 65 72 74 68 40 4c 41 4d | 42 41 44 41 2e 4f 49 54 |erth@LAM|BADA.OIT|
|00000190| 2e 55 4e 43 2e 45 44 55 | 3e 0a 53 65 6e 64 65 72 |.UNC.EDU|>.Sender|
|000001a0| 3a 20 20 20 20 20 20 20 | 22 53 41 53 28 72 29 20 |:       |"SAS(r) |
|000001b0| 44 69 73 63 75 73 73 69 | 6f 6e 22 20 3c 53 41 53 |Discussi|on" <SAS|
|000001c0| 2d 4c 40 55 47 41 2e 42 | 49 54 4e 45 54 3e 0a 46 |-L@UGA.B|ITNET>.F|
|000001d0| 72 6f 6d 3a 20 20 20 20 | 20 20 20 20 20 50 61 75 |rom:    |     Pau|
|000001e0| 6c 20 44 61 6c 62 65 72 | 74 68 20 3c 50 61 75 6c |l Dalber|th <Paul|
|000001f0| 2e 44 61 6c 62 65 72 74 | 68 40 4c 41 4d 42 41 44 |.Dalbert|h@LAMBAD|
|00000200| 41 2e 4f 49 54 2e 55 4e | 43 2e 45 44 55 3e 0a 53 |A.OIT.UN|C.EDU>.S|
|00000210| 75 62 6a 65 63 74 3a 20 | 20 20 20 20 20 57 6f 72 |ubject: |     Wor|
|00000220| 6b 69 6e 67 20 44 61 79 | 73 20 43 6f 6d 70 75 74 |king Day|s Comput|
|00000230| 61 74 69 6f 6e 0a 43 6f | 6d 6d 65 6e 74 73 3a 20 |ation.Co|mments: |
|00000240| 54 6f 3a 20 53 41 53 2d | 4c 40 75 67 61 2e 63 63 |To: SAS-|L@uga.cc|
|00000250| 2e 75 67 61 2e 65 64 75 | 0a 4c 69 6e 65 73 3a 20 |.uga.edu|.Lines: |
|00000260| 33 38 0a 0a 49 6e 20 72 | 65 73 70 6f 6e 73 65 20 |38..In r|esponse |
|00000270| 74 6f 20 41 6e 61 6d 69 | 20 42 68 61 72 67 61 76 |to Anami| Bhargav|
|00000280| 61 27 73 20 72 65 71 75 | 65 73 74 2c 0a 74 68 65 |a's requ|est,.the|
|00000290| 20 66 6f 6c 6c 6f 77 69 | 6e 67 20 77 69 6c 6c 20 | followi|ng will |
|000002a0| 63 61 6c 63 75 6c 61 74 | 65 20 74 68 65 20 6e 75 |calculat|e the nu|
|000002b0| 6d 62 65 72 20 6f 66 20 | 77 6f 72 6b 69 6e 67 20 |mber of |working |
|000002c0| 64 61 79 73 20 62 65 74 | 77 65 65 6e 20 74 77 6f |days bet|ween two|
|000002d0| 0a 64 61 74 65 73 3a 0a | 0a 62 65 67 69 6e 20 3d |.dates:.|.begin =|
|000002e0| 20 30 3b 0a 64 6f 20 69 | 20 3d 20 64 61 74 65 31 | 0;.do i| = date1|
|000002f0| 20 74 6f 20 28 64 61 74 | 65 31 2b 37 29 3b 0a 20 | to (dat|e1+7);. |
|00000300| 20 20 69 66 20 28 69 3e | 3d 20 64 61 74 65 32 29 |  if (i>|= date2)|
|00000310| 20 74 68 65 6e 20 6c 65 | 61 76 65 3b 0a 20 20 20 | then le|ave;.   |
|00000320| 64 61 79 6f 66 77 6b 20 | 3d 20 77 65 65 6b 64 61 |dayofwk |= weekda|
|00000330| 79 28 69 29 3b 0a 20 20 | 20 69 66 20 28 64 61 79 |y(i);.  | if (day|
|00000340| 6f 66 77 6b 20 3d 20 32 | 29 20 74 68 65 6e 20 6c |ofwk = 2|) then l|
|00000350| 65 61 76 65 3b 20 20 20 | 20 20 2a 20 46 4f 55 4e |eave;   |  * FOUN|
|00000360| 44 20 54 48 45 20 46 49 | 52 53 54 20 4d 4f 4e 44 |D THE FI|RST MOND|
|00000370| 41 59 20 2a 3b 0a 20 20 | 20 69 66 20 28 64 61 79 |AY *;.  | if (day|
|00000380| 6f 66 77 6b 20 3c 20 37 | 29 20 74 68 65 6e 20 62 |ofwk < 7|) then b|
|00000390| 65 67 69 6e 2b 31 3b 0a | 20 20 20 65 6e 64 3b 0a |egin+1;.|   end;.|
|000003a0| 66 69 72 73 74 6d 6f 6e | 20 3d 20 69 3b 0a 0a 65 |firstmon| = i;..e|
|000003b0| 6e 64 20 3d 20 30 3b 0a | 64 6f 20 69 20 3d 20 64 |nd = 0;.|do i = d|
|000003c0| 61 74 65 32 20 74 6f 20 | 28 64 61 74 65 32 2d 37 |ate2 to |(date2-7|
|000003d0| 29 20 62 79 20 2d 31 3b | 0a 20 20 20 69 66 20 28 |) by -1;|.   if (|
|000003e0| 69 3c 3d 20 64 61 74 65 | 31 29 20 74 68 65 6e 20 |i<= date|1) then |
|000003f0| 6c 65 61 76 65 3b 0a 20 | 20 20 64 61 79 6f 66 77 |leave;. |  dayofw|
|00000400| 6b 20 3d 20 77 65 65 6b | 64 61 79 28 69 29 3b 0a |k = week|day(i);.|
|00000410| 20 20 20 69 66 20 28 64 | 61 79 6f 66 77 6b 20 3d |   if (d|ayofwk =|
|00000420| 20 31 29 20 74 68 65 6e | 20 6c 65 61 76 65 3b 20 | 1) then| leave; |
|00000430| 20 20 20 20 2a 20 46 4f | 55 4e 44 20 54 48 45 20 |    * FO|UND THE |
|00000440| 4c 41 53 54 20 53 55 4e | 44 41 59 20 2a 3b 0a 20 |LAST SUN|DAY *;. |
|00000450| 20 20 69 66 20 28 64 61 | 79 6f 66 77 6b 20 3c 20 |  if (da|yofwk < |
|00000460| 37 29 20 74 68 65 6e 20 | 65 6e 64 2b 31 3b 0a 20 |7) then |end+1;. |
|00000470| 20 20 65 6e 64 3b 0a 6c | 61 73 74 73 75 6e 20 3d |  end;.l|astsun =|
|00000480| 20 69 3b 0a 0a 6d 69 64 | 64 6c 65 20 3d 20 30 3b | i;..mid|dle = 0;|
|00000490| 0a 69 66 20 28 66 69 72 | 73 74 6d 6f 6e 20 3c 20 |.if (fir|stmon < |
|000004a0| 6c 61 73 74 73 75 6e 29 | 20 74 68 65 6e 0a 20 20 |lastsun)| then.  |
|000004b0| 20 6d 69 64 64 6c 65 20 | 3d 20 28 6c 61 73 74 73 | middle |= (lasts|
|000004c0| 75 6e 20 2d 20 66 69 72 | 73 74 6d 6f 6e 29 2f 37 |un - fir|stmon)/7|
|000004d0| 20 2a 20 35 3b 0a 0a 74 | 6f 74 64 61 79 73 20 3d | * 5;..t|otdays =|
|000004e0| 20 62 65 67 69 6e 20 2b | 20 6d 69 64 64 6c 65 20 | begin +| middle |
|000004f0| 2b 20 65 6e 64 3b 0a 0a | 2a 2d 2d 2d 2d 2d 2d 2d |+ end;..|*-------|
|00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000510| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2a 3b 0a 0a 54 |--------|---*;..T|
|00000540| 68 65 20 61 6c 67 6f 72 | 69 74 68 6d 20 63 6f 6e |he algor|ithm con|
|00000550| 73 69 64 65 72 73 20 74 | 68 65 20 74 69 6d 65 20 |siders t|he time |
|00000560| 69 6e 74 65 72 76 61 6c | 20 64 65 66 69 6e 65 64 |interval| defined|
|00000570| 20 62 79 20 28 64 61 74 | 65 31 2c 20 64 61 74 65 | by (dat|e1, date|
|00000580| 32 29 20 69 6e 0a 74 68 | 72 65 65 20 70 69 65 63 |2) in.th|ree piec|
|00000590| 65 73 3a 20 74 68 65 20 | 77 6f 72 6b 20 64 61 79 |es: the |work day|
|000005a0| 73 20 62 65 6c 6f 6e 67 | 69 6e 67 20 74 6f 20 74 |s belong|ing to t|
|000005b0| 68 65 20 77 65 65 6b 20 | 70 72 65 63 65 64 69 6e |he week |precedin|
|000005c0| 67 20 74 68 65 20 66 69 | 72 73 74 0a 4d 6f 6e 64 |g the fi|rst.Mond|
|000005d0| 61 79 20 69 6e 20 74 68 | 65 20 69 6e 74 65 72 76 |ay in th|e interv|
|000005e0| 61 6c 20 28 42 45 47 49 | 4e 29 2c 20 74 68 65 20 |al (BEGI|N), the |
|000005f0| 77 6f 72 6b 20 64 61 79 | 73 20 62 65 6c 6f 6e 67 |work day|s belong|
|00000600| 69 6e 67 20 74 6f 20 74 | 68 65 20 77 65 65 6b 0a |ing to t|he week.|
|00000610| 66 6f 6c 6c 6f 77 69 6e | 67 20 74 68 65 20 6c 61 |followin|g the la|
|00000620| 73 74 20 53 75 6e 64 61 | 79 20 69 6e 20 74 68 65 |st Sunda|y in the|
|00000630| 20 69 6e 74 65 72 76 61 | 6c 20 28 45 4e 44 29 2c | interva|l (END),|
|00000640| 20 61 6e 64 20 61 6c 6c | 20 6f 66 20 74 68 65 20 | and all| of the |
|00000650| 77 6f 72 6b 0a 64 61 79 | 73 20 69 6e 20 62 65 74 |work.day|s in bet|
|00000660| 77 65 65 6e 20 28 69 2e | 65 2e 20 69 6e 20 74 68 |ween (i.|e. in th|
|00000670| 65 20 69 6e 74 65 72 76 | 61 6c 20 28 46 49 52 53 |e interv|al (FIRS|
|00000680| 54 4d 4f 4e 2c 20 4c 41 | 53 54 53 55 4e 29 29 2e |TMON, LA|STSUN)).|
|00000690| 20 20 49 20 68 61 76 65 | 6e 27 74 0a 74 65 73 74 |  I have|n't.test|
|000006a0| 65 64 20 74 68 69 73 20 | 65 78 74 65 6e 73 69 76 |ed this |extensiv|
|000006b0| 65 6c 79 20 62 75 74 20 | 69 74 20 61 70 70 65 61 |ely but |it appea|
|000006c0| 72 73 20 74 6f 20 77 6f | 72 6b 2e 20 20 44 6f 6e |rs to wo|rk.  Don|
|000006d0| 27 74 20 75 73 65 20 74 | 68 69 73 20 74 6f 0a 64 |'t use t|his to.d|
|000006e0| 65 74 65 72 6d 69 6e 65 | 20 68 6f 77 20 6d 61 6e |etermine| how man|
|000006f0| 79 20 6d 6f 72 65 20 4d | 6f 6e 64 61 79 73 20 79 |y more M|ondays y|
|00000700| 6f 75 20 68 61 76 65 20 | 74 6f 20 66 61 63 65 20 |ou have |to face |
|00000710| 62 65 66 6f 72 65 20 72 | 65 74 69 72 65 6d 65 6e |before r|etiremen|
|00000720| 74 20 2e 2e 2e 0a 76 65 | 72 79 20 64 65 70 72 65 |t ....ve|ry depre|
|00000730| 73 73 69 6e 67 2e 0a    |                         |ssing.. |        |
+--------+-------------------------+-------------------------+--------+--------+