/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume5 / random

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 78 61 | 6e 74 68 21 6e 69 63 2e |Path: xa|nth!nic.|
|00000010| 4d 52 2e 4e 45 54 21 68 | 61 6c 21 6e 63 6f 61 73 |MR.NET!h|al!ncoas|
|00000020| 74 21 61 6c 6c 62 65 72 | 79 0a 46 72 6f 6d 3a 20 |t!allber|y.From: |
|00000030| 66 75 61 74 40 63 75 6e | 69 78 63 2e 63 63 2e 63 |fuat@cun|ixc.cc.c|
|00000040| 6f 6c 75 6d 62 69 61 2e | 65 64 75 20 28 46 75 61 |olumbia.|edu (Fua|
|00000050| 74 20 43 2e 20 42 61 72 | 61 6e 29 0a 4e 65 77 73 |t C. Bar|an).News|
|00000060| 67 72 6f 75 70 73 3a 20 | 63 6f 6d 70 2e 73 6f 75 |groups: |comp.sou|
|00000070| 72 63 65 73 2e 6d 69 73 | 63 0a 53 75 62 6a 65 63 |rces.mis|c.Subjec|
|00000080| 74 3a 20 76 30 35 69 30 | 30 39 3a 20 4d 69 6e 69 |t: v05i0|09: Mini|
|00000090| 6d 61 6c 20 53 74 61 6e | 64 61 72 64 20 52 61 6e |mal Stan|dard Ran|
|000000a0| 64 6f 6d 20 4e 75 6d 62 | 65 72 20 47 65 6e 65 72 |dom Numb|er Gener|
|000000b0| 61 74 6f 72 0a 4b 65 79 | 77 6f 72 64 73 3a 20 72 |ator.Key|words: r|
|000000c0| 61 6e 64 6f 6d 20 6e 75 | 6d 62 65 72 20 67 65 6e |andom nu|mber gen|
|000000d0| 65 72 61 74 6f 72 0a 4d | 65 73 73 61 67 65 2d 49 |erator.M|essage-I|
|000000e0| 44 3a 20 3c 31 30 35 37 | 40 63 75 6e 69 78 63 2e |D: <1057|@cunixc.|
|000000f0| 63 6f 6c 75 6d 62 69 61 | 2e 65 64 75 3e 0a 44 61 |columbia|.edu>.Da|
|00000100| 74 65 3a 20 32 38 20 4f | 63 74 20 38 38 20 30 32 |te: 28 O|ct 88 02|
|00000110| 3a 33 31 3a 32 30 20 47 | 4d 54 0a 53 65 6e 64 65 |:31:20 G|MT.Sende|
|00000120| 72 3a 20 61 6c 6c 62 65 | 72 79 40 6e 63 6f 61 73 |r: allbe|ry@ncoas|
|00000130| 74 2e 55 55 43 50 0a 52 | 65 70 6c 79 2d 54 6f 3a |t.UUCP.R|eply-To:|
|00000140| 20 66 75 61 74 40 63 75 | 6e 69 78 63 2e 63 63 2e | fuat@cu|nixc.cc.|
|00000150| 63 6f 6c 75 6d 62 69 61 | 2e 65 64 75 20 28 46 75 |columbia|.edu (Fu|
|00000160| 61 74 20 43 2e 20 42 61 | 72 61 6e 29 0a 4f 72 67 |at C. Ba|ran).Org|
|00000170| 61 6e 69 7a 61 74 69 6f | 6e 3a 20 43 6f 6c 75 6d |anizatio|n: Colum|
|00000180| 62 69 61 20 55 6e 69 76 | 65 72 73 69 74 79 20 43 |bia Univ|ersity C|
|00000190| 65 6e 74 65 72 20 66 6f | 72 20 43 6f 6d 70 75 74 |enter fo|r Comput|
|000001a0| 69 6e 67 20 41 63 74 69 | 76 69 74 69 65 73 0a 4c |ing Acti|vities.L|
|000001b0| 69 6e 65 73 3a 20 31 32 | 32 0a 41 70 70 72 6f 76 |ines: 12|2.Approv|
|000001c0| 65 64 3a 20 61 6c 6c 62 | 65 72 79 40 6e 63 6f 61 |ed: allb|ery@ncoa|
|000001d0| 73 74 2e 55 55 43 50 0a | 0a 50 6f 73 74 69 6e 67 |st.UUCP.|.Posting|
|000001e0| 2d 6e 75 6d 62 65 72 3a | 20 56 6f 6c 75 6d 65 20 |-number:| Volume |
|000001f0| 35 2c 20 49 73 73 75 65 | 20 39 0a 53 75 62 6d 69 |5, Issue| 9.Submi|
|00000200| 74 74 65 64 2d 62 79 3a | 20 22 46 75 61 74 20 43 |tted-by:| "Fuat C|
|00000210| 2e 20 42 61 72 61 6e 22 | 20 3c 66 75 61 74 40 63 |. Baran"| <fuat@c|
|00000220| 75 6e 69 78 63 2e 63 63 | 2e 63 6f 6c 75 6d 62 69 |unixc.cc|.columbi|
|00000230| 61 2e 65 64 75 3e 0a 41 | 72 63 68 69 76 65 2d 6e |a.edu>.A|rchive-n|
|00000240| 61 6d 65 3a 20 72 61 6e | 64 6f 6d 0a 0a 5b 43 6f |ame: ran|dom..[Co|
|00000250| 6e 66 6c 69 63 74 21 21 | 21 20 20 42 53 44 20 61 |nflict!!|!  BSD a|
|00000260| 6c 72 65 61 64 79 20 68 | 61 73 20 61 20 72 61 6e |lready h|as a ran|
|00000270| 64 6f 6d 28 29 20 77 68 | 69 63 68 20 69 73 20 62 |dom() wh|ich is b|
|00000280| 65 74 74 65 72 20 74 68 | 61 6e 20 72 61 6e 64 28 |etter th|an rand(|
|00000290| 29 2e 20 20 2b 2b 62 73 | 61 5d 0a 0a 49 20 64 6f |).  ++bs|a]..I do|
|000002a0| 6e 27 74 20 6b 6e 6f 77 | 20 69 66 20 74 68 69 73 |n't know| if this|
|000002b0| 20 69 73 20 72 65 61 6c | 6c 79 20 77 6f 72 74 68 | is real|ly worth|
|000002c0| 20 70 6f 73 74 69 6e 67 | 20 28 49 20 6a 75 73 74 | posting| (I just|
|000002d0| 20 63 6f 6e 76 65 72 74 | 65 64 0a 70 73 65 75 64 | convert|ed.pseud|
|000002e0| 6f 2d 63 6f 64 65 20 74 | 6f 20 43 20 66 72 6f 6d |o-code t|o C from|
|000002f0| 20 74 68 65 20 6c 61 74 | 65 73 74 20 69 73 73 75 | the lat|est issu|
|00000300| 65 20 6f 66 20 43 41 43 | 4d 29 2c 20 62 75 74 20 |e of CAC|M), but |
|00000310| 69 6e 20 63 61 73 65 20 | 6f 74 68 65 72 0a 70 65 |in case |other.pe|
|00000320| 6f 70 6c 65 20 6e 65 65 | 64 20 74 68 69 73 20 49 |ople nee|d this I|
|00000330| 20 74 68 6f 75 67 68 74 | 20 49 27 64 20 6d 61 6b | thought| I'd mak|
|00000340| 65 20 69 74 20 61 76 61 | 69 6c 61 62 6c 65 2e 20 |e it ava|ilable. |
|00000350| 20 49 74 20 69 6d 70 6c | 65 6d 65 6e 74 73 20 61 | It impl|ements a|
|00000360| 0a 22 6d 69 6e 69 6d 61 | 6c 20 73 74 61 6e 64 61 |."minima|l standa|
|00000370| 72 64 20 72 61 6e 64 6f | 6d 20 6e 75 6d 62 65 72 |rd rando|m number|
|00000380| 20 67 65 6e 65 72 61 74 | 6f 72 22 20 64 69 73 63 | generat|or" disc|
|00000390| 75 73 73 65 64 20 69 6e | 20 43 41 43 4d 2e 20 20 |ussed in| CACM.  |
|000003a0| 49 74 20 69 73 0a 6d 65 | 61 6e 74 20 61 73 20 61 |It is.me|ant as a|
|000003b0| 20 72 65 70 6c 61 63 65 | 6d 65 6e 74 20 66 6f 72 | replace|ment for|
|000003c0| 20 72 61 6e 64 28 33 29 | 20 74 68 61 74 20 63 6f | rand(3)| that co|
|000003d0| 6d 65 73 20 77 69 74 68 | 20 34 2e 78 20 42 53 44 |mes with| 4.x BSD|
|000003e0| 20 77 68 69 63 68 20 69 | 73 0a 73 61 69 64 20 74 | which i|s.said t|
|000003f0| 6f 20 62 65 20 61 20 70 | 6f 6f 72 20 67 65 6e 65 |o be a p|oor gene|
|00000400| 72 61 74 6f 72 20 61 63 | 63 6f 72 64 69 6e 67 20 |rator ac|cording |
|00000410| 74 6f 20 74 68 65 20 61 | 72 74 69 63 6c 65 2e 20 |to the a|rticle. |
|00000420| 20 49 74 20 73 68 6f 75 | 6c 64 20 77 6f 72 6b 0a | It shou|ld work.|
|00000430| 6f 6e 20 61 6e 79 20 73 | 79 73 74 65 6d 20 69 6e |on any s|ystem in|
|00000440| 20 77 68 69 63 68 20 74 | 68 65 20 6d 61 78 69 6d | which t|he maxim|
|00000450| 75 6d 20 69 6e 74 65 67 | 65 72 20 69 73 20 32 5e |um integ|er is 2^|
|00000460| 33 31 2d 31 20 28 77 68 | 65 6e 20 63 6f 6d 70 69 |31-1 (wh|en compi|
|00000470| 6c 65 64 0a 77 69 74 68 | 20 2d 44 54 45 53 54 20 |led.with| -DTEST |
|00000480| 69 74 20 63 68 65 63 6b | 73 20 74 6f 20 73 65 65 |it check|s to see|
|00000490| 20 77 68 65 74 68 65 72 | 20 6f 72 20 6e 6f 74 20 | whether| or not |
|000004a0| 69 74 20 77 61 73 20 69 | 6d 70 6c 65 6d 65 6e 74 |it was i|mplement|
|000004b0| 65 64 0a 63 6f 72 72 65 | 63 74 6c 79 29 2e 0a 0a |ed.corre|ctly)...|
|000004c0| 09 09 09 09 09 2d 2d 46 | 75 61 74 0a 0a 23 21 20 |.....--F|uat..#! |
|000004d0| 2f 62 69 6e 2f 73 68 0a | 23 20 54 68 69 73 20 69 |/bin/sh.|# This i|
|000004e0| 73 20 61 20 73 68 65 6c | 6c 20 61 72 63 68 69 76 |s a shel|l archiv|
|000004f0| 65 2c 20 6d 65 61 6e 69 | 6e 67 3a 0a 23 20 31 2e |e, meani|ng:.# 1.|
|00000500| 20 52 65 6d 6f 76 65 20 | 65 76 65 72 79 74 68 69 | Remove |everythi|
|00000510| 6e 67 20 61 62 6f 76 65 | 20 74 68 65 20 23 21 20 |ng above| the #! |
|00000520| 2f 62 69 6e 2f 73 68 20 | 6c 69 6e 65 2e 0a 23 20 |/bin/sh |line..# |
|00000530| 32 2e 20 53 61 76 65 20 | 74 68 65 20 72 65 73 75 |2. Save |the resu|
|00000540| 6c 74 69 6e 67 20 74 65 | 78 74 20 69 6e 20 61 20 |lting te|xt in a |
|00000550| 66 69 6c 65 2e 0a 23 20 | 33 2e 20 45 78 65 63 75 |file..# |3. Execu|
|00000560| 74 65 20 74 68 65 20 66 | 69 6c 65 20 77 69 74 68 |te the f|ile with|
|00000570| 20 2f 62 69 6e 2f 73 68 | 20 28 6e 6f 74 20 63 73 | /bin/sh| (not cs|
|00000580| 68 29 20 74 6f 20 63 72 | 65 61 74 65 3a 0a 23 09 |h) to cr|eate:.#.|
|00000590| 72 61 6e 64 6f 6d 2e 63 | 0a 23 20 54 68 69 73 20 |random.c|.# This |
|000005a0| 61 72 63 68 69 76 65 20 | 63 72 65 61 74 65 64 3a |archive |created:|
|000005b0| 20 4d 6f 6e 20 4f 63 74 | 20 32 34 20 31 37 3a 32 | Mon Oct| 24 17:2|
|000005c0| 37 3a 32 36 20 31 39 38 | 38 0a 65 78 70 6f 72 74 |7:26 198|8.export|
|000005d0| 20 50 41 54 48 3b 20 50 | 41 54 48 3d 2f 62 69 6e | PATH; P|ATH=/bin|
|000005e0| 3a 2f 75 73 72 2f 62 69 | 6e 3a 24 50 41 54 48 0a |:/usr/bi|n:$PATH.|
|000005f0| 69 66 20 74 65 73 74 20 | 2d 66 20 27 72 61 6e 64 |if test |-f 'rand|
|00000600| 6f 6d 2e 63 27 0a 74 68 | 65 6e 0a 09 65 63 68 6f |om.c'.th|en..echo|
|00000610| 20 73 68 61 72 3a 20 22 | 77 69 6c 6c 20 6e 6f 74 | shar: "|will not|
|00000620| 20 6f 76 65 72 2d 77 72 | 69 74 65 20 65 78 69 73 | over-wr|ite exis|
|00000630| 74 69 6e 67 20 66 69 6c | 65 20 27 72 61 6e 64 6f |ting fil|e 'rando|
|00000640| 6d 2e 63 27 22 0a 65 6c | 73 65 0a 73 65 64 20 27 |m.c'".el|se.sed '|
|00000650| 73 2f 5e 58 2f 2f 27 20 | 3c 3c 20 5c 53 48 41 52 |s/^X//' |<< \SHAR|
|00000660| 5f 45 4f 46 20 3e 20 27 | 72 61 6e 64 6f 6d 2e 63 |_EOF > '|random.c|
|00000670| 27 0a 58 2f 2a 2a 0a 58 | 20 2a 2a 20 72 61 6e 64 |'.X/**.X| ** rand|
|00000680| 6f 6d 2e 63 3a 20 4d 69 | 6e 69 6d 61 6c 20 53 74 |om.c: Mi|nimal St|
|00000690| 61 6e 64 61 72 64 20 50 | 73 65 75 64 6f 2d 52 61 |andard P|seudo-Ra|
|000006a0| 6e 64 6f 6d 20 4e 75 6d | 62 65 72 20 47 65 6e 65 |ndom Num|ber Gene|
|000006b0| 72 61 74 6f 72 0a 58 20 | 2a 2a 0a 58 20 2a 2a 20 |rator.X |**.X ** |
|000006c0| 41 75 74 68 6f 72 3a 20 | 46 75 61 74 20 43 2e 20 |Author: |Fuat C. |
|000006d0| 42 61 72 61 6e 2c 20 43 | 6f 6c 75 6d 62 69 61 20 |Baran, C|olumbia |
|000006e0| 55 6e 69 76 65 72 73 69 | 74 79 2c 20 31 39 38 38 |Universi|ty, 1988|
|000006f0| 0a 58 20 2a 2a 0a 58 20 | 2a 2a 20 42 61 73 65 64 |.X **.X |** Based|
|00000700| 20 6f 6e 20 63 6f 64 65 | 20 69 6e 20 22 52 61 6e | on code| in "Ran|
|00000710| 64 6f 6d 20 4e 75 6d 62 | 65 72 20 47 65 6e 65 72 |dom Numb|er Gener|
|00000720| 61 74 6f 72 73 3a 20 47 | 6f 6f 64 20 4f 6e 65 73 |ators: G|ood Ones|
|00000730| 20 61 72 65 20 48 61 72 | 64 20 74 6f 20 46 69 6e | are Har|d to Fin|
|00000740| 64 22 2c 0a 58 20 2a 2a | 20 62 79 20 53 74 65 70 |d",.X **| by Step|
|00000750| 68 65 6e 20 4b 2e 20 50 | 61 72 6b 20 61 6e 64 20 |hen K. P|ark and |
|00000760| 4b 65 69 74 68 20 57 2e | 20 4d 69 6c 6c 65 72 20 |Keith W.| Miller |
|00000770| 69 6e 20 43 6f 6d 6d 75 | 6e 69 63 61 74 69 6f 6e |in Commu|nication|
|00000780| 73 20 6f 66 20 74 68 65 | 20 41 43 4d 2c 0a 58 20 |s of the| ACM,.X |
|00000790| 2a 2a 20 33 31 2c 20 31 | 30 20 28 4f 63 74 2e 20 |** 31, 1|0 (Oct. |
|000007a0| 31 39 38 38 29 20 70 70 | 2e 20 31 31 39 32 2d 31 |1988) pp|. 1192-1|
|000007b0| 32 30 31 2e 0a 58 20 2a | 2a 0a 58 20 2a 2a 20 52 |201..X *|*.X ** R|
|000007c0| 65 71 75 69 72 65 6d 65 | 6e 74 73 3a 20 6d 61 78 |equireme|nts: max|
|000007d0| 69 6e 74 20 6d 75 73 74 | 20 62 65 20 32 5e 33 31 |int must| be 2^31|
|000007e0| 20 2d 31 20 6f 72 20 6c | 61 72 67 65 72 2e 0a 58 | -1 or l|arger..X|
|000007f0| 20 2a 2a 0a 58 20 2a 2a | 20 43 6f 6d 70 69 6c 65 | **.X **| Compile|
|00000800| 20 77 69 74 68 20 2d 44 | 54 45 53 54 20 61 6e 64 | with -D|TEST and|
|00000810| 20 72 75 6e 20 74 6f 20 | 73 65 65 20 69 66 20 69 | run to |see if i|
|00000820| 74 20 77 61 73 20 69 6d | 70 6c 65 6d 65 6e 74 65 |t was im|plemente|
|00000830| 64 20 63 6f 72 72 65 63 | 74 6c 79 2e 0a 58 20 2a |d correc|tly..X *|
|00000840| 2a 2f 0a 58 0a 58 2f 2a | 20 73 6f 6d 65 20 63 6f |*/.X.X/*| some co|
|00000850| 6e 73 74 61 6e 74 73 20 | 77 65 20 6e 65 65 64 20 |nstants |we need |
|00000860| 2a 2f 0a 58 23 64 65 66 | 69 6e 65 20 41 20 31 36 |*/.X#def|ine A 16|
|00000870| 38 30 37 0a 58 23 64 65 | 66 69 6e 65 20 4d 20 32 |807.X#de|fine M 2|
|00000880| 31 34 37 34 38 33 36 34 | 37 09 09 09 2f 2a 20 4d |14748364|7.../* M|
|00000890| 65 72 73 65 6e 6e 65 20 | 70 72 69 6d 65 20 32 5e |ersenne |prime 2^|
|000008a0| 33 31 20 2d 31 20 2a 2f | 0a 58 23 64 65 66 69 6e |31 -1 */|.X#defin|
|000008b0| 65 20 51 20 31 32 37 37 | 37 33 09 09 09 2f 2a 20 |e Q 1277|73.../* |
|000008c0| 4d 20 64 69 76 20 41 20 | 28 4d 20 2f 20 41 29 20 |M div A |(M / A) |
|000008d0| 2a 2f 0a 58 23 64 65 66 | 69 6e 65 20 52 20 32 38 |*/.X#def|ine R 28|
|000008e0| 33 36 09 09 09 09 2f 2a | 20 4d 20 6d 6f 64 20 41 |36..../*| M mod A|
|000008f0| 20 28 4d 20 25 20 41 29 | 20 2a 2f 0a 58 0a 58 73 | (M % A)| */.X.Xs|
|00000900| 74 61 74 69 63 20 6c 6f | 6e 67 20 73 65 65 64 20 |tatic lo|ng seed |
|00000910| 3d 20 31 3b 09 09 09 2f | 2a 20 69 6e 69 74 69 61 |= 1;.../|* initia|
|00000920| 6c 69 7a 65 20 77 69 74 | 68 20 72 61 6e 64 5f 69 |lize wit|h rand_i|
|00000930| 6e 69 74 28 29 20 2a 2f | 0a 58 0a 58 0a 58 2f 2a |nit() */|.X.X.X/*|
|00000940| 0a 58 20 2a 20 72 61 6e | 64 6f 6d 3a 0a 58 20 2a |.X * ran|dom:.X *|
|00000950| 20 6d 69 6e 69 6d 61 6c | 20 73 74 61 6e 64 61 72 | minimal| standar|
|00000960| 64 20 72 61 6e 64 6f 6d | 20 6e 75 6d 62 65 72 20 |d random| number |
|00000970| 67 65 6e 65 72 61 74 6f | 72 2e 0a 58 20 2a 20 63 |generato|r..X * c|
|00000980| 61 6c 6c 20 72 61 6e 64 | 5f 69 6e 69 74 20 66 69 |all rand|_init fi|
|00000990| 72 73 74 20 74 6f 20 69 | 6e 69 74 69 61 6c 69 7a |rst to i|nitializ|
|000009a0| 65 20 73 65 65 64 2e 0a | 58 20 2a 20 72 65 74 75 |e seed..|X * retu|
|000009b0| 72 6e 73 20 61 20 72 61 | 6e 64 6f 6d 20 66 6c 6f |rns a ra|ndom flo|
|000009c0| 61 74 2e 0a 58 20 2a 2f | 0a 58 0a 58 66 6c 6f 61 |at..X */|.X.Xfloa|
|000009d0| 74 0a 58 72 61 6e 64 6f | 6d 20 28 29 20 7b 0a 58 |t.Xrando|m () {.X|
|000009e0| 20 20 20 20 6c 6f 6e 67 | 20 68 69 2c 20 6c 6f 3b |    long| hi, lo;|
|000009f0| 0a 58 20 20 20 20 0a 58 | 20 20 20 20 68 69 20 3d |.X    .X|    hi =|
|00000a00| 20 73 65 65 64 20 2f 20 | 51 3b 0a 58 20 20 20 20 | seed / |Q;.X    |
|00000a10| 6c 6f 20 3d 20 73 65 65 | 64 20 25 20 51 3b 0a 58 |lo = see|d % Q;.X|
|00000a20| 20 20 20 20 69 66 20 28 | 28 73 65 65 64 20 3d 20 |    if (|(seed = |
|00000a30| 41 20 2a 20 6c 6f 20 2d | 20 52 20 2a 20 68 69 29 |A * lo -| R * hi)|
|00000a40| 20 3c 3d 20 30 29 0a 58 | 20 20 20 20 20 20 20 20 | <= 0).X|        |
|00000a50| 73 65 65 64 20 2b 3d 20 | 4d 3b 0a 58 20 20 20 20 |seed += |M;.X    |
|00000a60| 72 65 74 75 72 6e 20 28 | 28 66 6c 6f 61 74 29 20 |return (|(float) |
|00000a70| 73 65 65 64 20 2f 20 4d | 29 3b 0a 58 7d 0a 58 0a |seed / M|);.X}.X.|
|00000a80| 58 0a 58 2f 2a 0a 58 20 | 2a 20 72 61 6e 64 5f 69 |X.X/*.X |* rand_i|
|00000a90| 6e 69 74 3a 0a 58 20 2a | 20 69 6e 69 74 69 61 6c |nit:.X *| initial|
|00000aa0| 69 7a 65 20 73 65 65 64 | 2e 0a 58 20 2a 2f 0a 58 |ize seed|..X */.X|
|00000ab0| 0a 58 76 6f 69 64 0a 58 | 72 61 6e 64 5f 69 6e 69 |.Xvoid.X|rand_ini|
|00000ac0| 74 20 28 73 29 0a 58 6c | 6f 6e 67 20 73 3b 0a 58 |t (s).Xl|ong s;.X|
|00000ad0| 7b 0a 58 20 20 20 20 73 | 65 65 64 20 3d 20 73 3b |{.X    s|eed = s;|
|00000ae0| 0a 58 7d 0a 58 0a 58 0a | 58 23 69 66 64 65 66 20 |.X}.X.X.|X#ifdef |
|00000af0| 54 45 53 54 0a 58 0a 58 | 6d 61 69 6e 20 28 29 20 |TEST.X.X|main () |
|00000b00| 7b 0a 58 20 20 20 20 69 | 6e 74 20 69 3b 0a 58 20 |{.X    i|nt i;.X |
|00000b10| 20 20 20 66 6c 6f 61 74 | 20 72 3b 0a 58 0a 58 20 |   float| r;.X.X |
|00000b20| 20 20 20 72 61 6e 64 5f | 69 6e 69 74 20 28 31 29 |   rand_|init (1)|
|00000b30| 3b 0a 58 20 20 20 20 66 | 6f 72 20 28 69 20 3d 20 |;.X    f|or (i = |
|00000b40| 30 3b 20 69 20 3c 20 31 | 30 30 30 30 3b 20 69 2b |0; i < 1|0000; i+|
|00000b50| 2b 29 0a 58 09 72 20 3d | 20 72 61 6e 64 6f 6d 28 |+).X.r =| random(|
|00000b60| 29 3b 0a 58 20 20 20 20 | 70 72 69 6e 74 66 20 28 |);.X    |printf (|
|00000b70| 22 53 65 65 64 20 69 73 | 20 25 6c 64 20 28 73 68 |"Seed is| %ld (sh|
|00000b80| 6f 75 6c 64 20 62 65 20 | 31 30 34 33 36 31 38 30 |ould be |10436180|
|00000b90| 36 35 29 5c 6e 22 2c 20 | 73 65 65 64 29 3b 0a 58 |65)\n", |seed);.X|
|00000ba0| 7d 0a 58 0a 58 23 65 6c | 73 65 0a 58 0a 58 6d 61 |}.X.X#el|se.X.Xma|
|00000bb0| 69 6e 20 28 29 20 7b 0a | 58 20 20 20 20 69 6e 74 |in () {.|X    int|
|00000bc0| 20 69 3b 0a 58 0a 58 20 | 20 20 20 66 6f 72 20 28 | i;.X.X |   for (|
|00000bd0| 69 20 3d 20 30 3b 20 69 | 20 3c 20 31 30 30 30 30 |i = 0; i| < 10000|
|00000be0| 30 30 3b 20 69 2b 2b 29 | 0a 58 09 72 61 6e 64 6f |00; i++)|.X.rando|
|00000bf0| 6d 28 29 3b 0a 58 7d 0a | 58 0a 58 23 65 6e 64 69 |m();.X}.|X.X#endi|
|00000c00| 66 20 2f 2a 20 54 45 53 | 54 20 2a 2f 0a 58 0a 58 |f /* TES|T */.X.X|
|00000c10| 0a 53 48 41 52 5f 45 4f | 46 0a 66 69 0a 65 78 69 |.SHAR_EO|F.fi.exi|
|00000c20| 74 20 30 0a 23 09 45 6e | 64 20 6f 66 20 73 68 65 |t 0.#.En|d of she|
|00000c30| 6c 6c 20 61 72 63 68 69 | 76 65 0a 0a 0a 0a 2d 2d |ll archi|ve....--|
|00000c40| 20 0a 49 4e 54 45 52 4e | 45 54 3a 20 66 75 61 74 | .INTERN|ET: fuat|
|00000c50| 40 63 6f 6c 75 6d 62 69 | 61 2e 65 64 75 20 20 20 |@columbi|a.edu   |
|00000c60| 20 20 20 20 20 20 20 55 | 2e 53 2e 20 4d 41 49 4c |       U|.S. MAIL|
|00000c70| 3a 20 43 6f 6c 75 6d 62 | 69 61 20 55 6e 69 76 65 |: Columb|ia Unive|
|00000c80| 72 73 69 74 79 0a 42 49 | 54 4e 45 54 3a 20 20 20 |rsity.BI|TNET:   |
|00000c90| 66 75 61 74 40 63 75 6e | 69 78 63 2e 63 63 2e 63 |fuat@cun|ixc.cc.c|
|00000ca0| 6f 6c 75 6d 62 69 61 2e | 65 64 75 20 20 20 20 20 |olumbia.|edu     |
|00000cb0| 20 20 20 20 20 20 43 65 | 6e 74 65 72 20 66 6f 72 |      Ce|nter for|
|00000cc0| 20 43 6f 6d 70 75 74 69 | 6e 67 20 41 63 74 69 76 | Computi|ng Activ|
|00000cd0| 69 74 69 65 73 0a 55 53 | 45 4e 45 54 3a 20 20 20 |ities.US|ENET:   |
|00000ce0| 2e 2e 2e 21 72 75 74 67 | 65 72 73 21 63 6f 6c 75 |...!rutg|ers!colu|
|00000cf0| 6d 62 69 61 21 63 75 6e | 69 78 63 21 66 75 61 74 |mbia!cun|ixc!fuat|
|00000d00| 20 20 20 20 20 20 37 31 | 32 20 57 61 74 73 6f 6e |      71|2 Watson|
|00000d10| 20 4c 61 62 73 2c 20 36 | 31 32 20 57 31 31 35 74 | Labs, 6|12 W115t|
|00000d20| 68 20 53 74 2e 0a 50 48 | 4f 4e 45 3a 20 20 20 20 |h St..PH|ONE:    |
|00000d30| 28 32 31 32 29 20 32 38 | 30 2d 35 31 32 38 20 20 |(212) 28|0-5128  |
|00000d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000d50| 20 20 20 20 20 20 4e 65 | 77 20 59 6f 72 6b 2c 20 |      Ne|w York, |
|00000d60| 4e 59 20 31 30 30 32 35 | 0a                      |NY 10025|.       |
+--------+-------------------------+-------------------------+--------+--------+