/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsm / numbers / !NumModTxt / Lucas3

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 4c | 75 63 61 73 33 0d 00 14 |..... >L|ucas3...|
|00000010| 28 f4 20 28 43 29 20 43 | 6f 70 79 72 69 67 68 74 |(. (C) C|opyright|
|00000020| 20 4e 69 63 6b 20 43 72 | 61 69 67 2d 57 6f 6f 64 | Nick Cr|aig-Wood|
|00000030| 20 31 39 39 32 0d 00 1e | 04 0d 00 28 44 f4 20 54 | 1992...|...(D. T|
|00000040| 68 69 73 20 69 6d 70 6c | 65 6d 65 6e 74 73 20 74 |his impl|ements t|
|00000050| 68 65 20 4c 75 63 61 73 | 5f 4c 65 68 6d 65 72 20 |he Lucas|_Lehmer |
|00000060| 74 65 73 74 20 66 6f 72 | 20 6c 6f 6f 6b 69 6e 67 |test for| looking|
|00000070| 20 66 6f 72 20 4d 65 72 | 73 65 6e 6e 65 0d 00 32 | for Mer|senne..2|
|00000080| 36 f4 20 70 72 69 6d 65 | 73 20 6f 66 20 74 68 65 |6. prime|s of the|
|00000090| 20 66 6f 72 6d 20 32 5e | 71 2d 31 20 77 68 65 72 | form 2^|q-1 wher|
|000000a0| 65 20 71 20 69 73 20 61 | 6e 20 6f 64 64 20 70 72 |e q is a|n odd pr|
|000000b0| 69 6d 65 0d 00 3c 04 0d | 00 46 45 f4 20 54 68 69 |ime..<..|.FE. Thi|
|000000c0| 73 20 69 73 20 74 68 65 | 20 77 61 79 20 74 68 65 |s is the| way the|
|000000d0| 20 62 69 67 67 65 73 74 | 20 70 72 69 6d 65 73 20 | biggest| primes |
|000000e0| 6b 6e 6f 77 6e 20 74 6f | 64 61 79 20 61 72 65 20 |known to|day are |
|000000f0| 63 68 65 63 6b 65 64 20 | 66 6f 72 2e 0d 00 50 3c |checked |for...P<|
|00000100| f4 20 48 6f 77 65 76 65 | 72 20 61 20 73 75 70 65 |. Howeve|r a supe|
|00000110| 72 63 6f 6d 70 75 74 65 | 72 20 69 73 20 6e 65 65 |rcompute|r is nee|
|00000120| 64 65 64 20 74 6f 20 62 | 72 65 61 6b 20 74 68 65 |ded to b|reak the|
|00000130| 20 72 65 63 6f 72 64 21 | 0d 00 5a 04 0d 00 64 28 | record!|..Z...d(|
|00000140| 2a 52 4d 45 6e 73 75 72 | 65 20 4e 75 6d 62 65 72 |*RMEnsur|e Number|
|00000150| 73 20 30 2e 30 20 52 4d | 4c 6f 61 64 20 4e 75 6d |s 0.0 RM|Load Num|
|00000160| 62 65 72 73 0d 00 6e 3a | 2a 52 4d 45 6e 73 75 72 |bers..n:|*RMEnsur|
|00000170| 65 20 4e 75 6d 62 65 72 | 73 20 30 2e 30 20 45 72 |e Number|s 0.0 Er|
|00000180| 72 6f 72 20 31 20 4e 75 | 6d 62 65 72 73 20 6d 6f |ror 1 Nu|mbers mo|
|00000190| 64 75 6c 65 20 6e 6f 74 | 20 66 6f 75 6e 64 0d 00 |dule not| found..|
|000001a0| 78 04 0d 00 82 14 48 65 | 61 70 53 69 7a 65 3d 36 |x.....He|apSize=6|
|000001b0| 34 2a 31 30 32 34 0d 00 | 8c 16 de 20 4e 75 6d 62 |4*1024..|... Numb|
|000001c0| 65 72 73 20 48 65 61 70 | 53 69 7a 65 0d 00 96 3c |ers Heap|Size...<|
|000001d0| c8 99 20 22 4e 75 6d 5f | 48 65 61 70 49 6e 69 74 |.. "Num_|HeapInit|
|000001e0| 22 2c 4e 75 6d 62 65 72 | 73 2c 48 65 61 70 53 69 |",Number|s,HeapSi|
|000001f0| 7a 65 20 b8 20 68 70 25 | 2c 7a 65 72 6f 25 2c 6f |ze . hp%|,zero%,o|
|00000200| 6e 65 25 2c 74 77 6f 25 | 0d 00 a0 27 c8 99 20 22 |ne%,two%|...'.. "|
|00000210| 4e 75 6d 5f 4d 61 6b 65 | 53 6d 61 6c 6c 50 72 69 |Num_Make|SmallPri|
|00000220| 6d 65 73 22 2c 31 30 30 | 30 30 20 b8 20 61 25 0d |mes",100|00 . a%.|
|00000230| 00 aa 1f f1 20 3b 61 25 | 3b 22 20 73 6d 61 6c 6c |.... ;a%|;" small|
|00000240| 20 70 72 69 6d 65 73 20 | 66 6f 75 6e 64 22 0d 00 | primes |found"..|
|00000250| b4 04 0d 00 be 12 e3 20 | 71 25 3d 33 20 b8 20 31 |....... |q%=3 . 1|
|00000260| 30 30 30 30 0d 00 c8 16 | 20 f2 6c 75 63 61 73 5f |0000....| .lucas_|
|00000270| 6c 65 68 6d 65 72 28 71 | 25 29 0d 00 d2 08 ed 20 |lehmer(q|%)..... |
|00000280| 71 25 0d 00 dc 05 e0 0d | 00 e6 04 0d 00 f0 04 0d |q%......|........|
|00000290| 00 fa 49 f4 20 54 68 69 | 73 20 63 68 65 63 6b 73 |..I. Thi|s checks|
|000002a0| 20 74 6f 20 73 65 65 20 | 77 68 65 74 68 65 72 20 | to see |whether |
|000002b0| 32 5e 71 25 2d 31 20 69 | 73 20 70 72 69 6d 65 2c |2^q%-1 i|s prime,|
|000002c0| 20 70 72 69 6e 74 69 6e | 67 20 69 74 73 20 72 65 | printin|g its re|
|000002d0| 73 75 6c 74 73 20 6f 6e | 0d 01 04 10 f4 20 74 68 |sults on|..... th|
|000002e0| 65 20 73 63 72 65 65 6e | 0d 01 0e 04 0d 01 18 17 |e screen|........|
|000002f0| dd 20 f2 6c 75 63 61 73 | 5f 6c 65 68 6d 65 72 28 |. .lucas|_lehmer(|
|00000300| 71 25 29 0d 01 22 25 ea | 20 6e 25 2c 6c 25 2c 70 |q%).."%.| n%,l%,p|
|00000310| 25 2c 66 61 63 74 6f 72 | 25 2c 70 72 69 6d 65 25 |%,factor|%,prime%|
|00000320| 2c 72 65 73 75 6c 74 25 | 0d 01 2c 1b 20 c8 99 20 |,result%|..,. .. |
|00000330| 22 4e 75 6d 5f 49 6e 69 | 74 22 2c 68 70 25 20 b8 |"Num_Ini|t",hp% .|
|00000340| 20 6e 25 0d 01 36 1b 20 | c8 99 20 22 4e 75 6d 5f | n%..6. |.. "Num_|
|00000350| 49 6e 69 74 22 2c 68 70 | 25 20 b8 20 6c 25 0d 01 |Init",hp|% . l%..|
|00000360| 40 1b 20 c8 99 20 22 4e | 75 6d 5f 49 6e 69 74 22 |@. .. "N|um_Init"|
|00000370| 2c 68 70 25 20 b8 20 70 | 25 0d 01 4a 04 0d 01 54 |,hp% . p|%..J...T|
|00000380| 17 20 c8 99 20 22 4e 75 | 6d 5f 53 65 74 22 2c 6e |. .. "Nu|m_Set",n|
|00000390| 25 2c 71 25 0d 01 5e 26 | 20 c8 99 20 22 4e 75 6d |%,q%..^&| .. "Num|
|000003a0| 5f 53 6d 61 6c 6c 46 61 | 63 74 6f 72 22 2c 6e 25 |_SmallFa|ctor",n%|
|000003b0| 20 b8 20 66 61 63 74 6f | 72 25 0d 01 68 12 20 e7 | . facto|r%..h. .|
|000003c0| 20 66 61 63 74 6f 72 25 | 3d 30 20 8c 0d 01 72 1d | factor%|=0 ...r.|
|000003d0| 20 20 c8 99 20 22 4e 75 | 6d 5f 50 6f 77 22 2c 74 |  .. "Nu|m_Pow",t|
|000003e0| 77 6f 25 2c 6e 25 2c 70 | 25 0d 01 7c 2e 20 20 c8 |wo%,n%,p|%..|.  .|
|000003f0| 99 20 22 4e 75 6d 5f 53 | 63 61 6c 61 72 53 75 62 |. "Num_S|calarSub|
|00000400| 22 2c 70 25 2c 31 2c 70 | 25 20 3a f4 20 70 20 3c |",p%,1,p|% :. p <|
|00000410| 2d 20 32 5e 71 2d 31 0d | 01 86 27 20 20 c8 99 20 |- 2^q-1.|..'  .. |
|00000420| 22 4e 75 6d 5f 53 6d 61 | 6c 6c 46 61 63 74 6f 72 |"Num_Sma|llFactor|
|00000430| 22 2c 70 25 20 b8 20 66 | 61 63 74 6f 72 25 0d 01 |",p% . f|actor%..|
|00000440| 90 13 20 20 e7 20 66 61 | 63 74 6f 72 25 3d 30 20 |..  . fa|ctor%=0 |
|00000450| 8c 0d 01 9a 18 20 20 20 | c8 99 20 22 4e 75 6d 5f |.....   |.. "Num_|
|00000460| 53 65 74 22 2c 6c 25 2c | 34 0d 01 a4 14 20 20 20 |Set",l%,|4....   |
|00000470| e3 20 69 25 3d 31 20 b8 | 20 71 25 2d 32 0d 01 ae |. i%=1 .| q%-2...|
|00000480| 1d 20 20 20 20 c8 99 20 | 22 4e 75 6d 5f 4d 75 6c |.    .. |"Num_Mul|
|00000490| 22 2c 6c 25 2c 6c 25 2c | 6c 25 0d 01 b8 22 20 20 |",l%,l%,|l%..."  |
|000004a0| 20 20 c8 99 20 22 4e 75 | 6d 5f 53 63 61 6c 61 72 |  .. "Nu|m_Scalar|
|000004b0| 53 75 62 22 2c 6c 25 2c | 32 2c 6c 25 0d 01 c2 1d |Sub",l%,|2,l%....|
|000004c0| 20 20 20 20 c8 99 20 22 | 4e 75 6d 5f 4d 6f 64 22 |    .. "|Num_Mod"|
|000004d0| 2c 6c 25 2c 70 25 2c 6c | 25 0d 01 cc 0b 20 20 20 |,l%,p%,l|%....   |
|000004e0| ed 20 69 25 0d 01 d6 24 | 20 20 20 c8 99 20 22 4e |. i%...$|   .. "N|
|000004f0| 75 6d 5f 45 71 75 61 6c | 73 22 2c 6c 25 2c 30 20 |um_Equal|s",l%,0 |
|00000500| b8 20 70 72 69 6d 65 25 | 0d 01 e0 11 20 20 20 e7 |. prime%|....   .|
|00000510| 20 70 72 69 6d 65 25 20 | 8c 0d 01 ea 1b 20 20 20 | prime% |.....   |
|00000520| 20 f1 20 27 22 32 5e 22 | 3b 71 25 3b 22 2d 31 20 | . '"2^"|;q%;"-1 |
|00000530| 3d 20 22 3b 0d 01 f4 19 | 20 20 20 20 c8 99 20 22 |= ";....|    .. "|
|00000540| 4e 75 6d 5f 50 72 69 6e | 74 22 2c 70 25 0d 01 fe |Num_Prin|t",p%...|
|00000550| 15 20 20 20 20 f1 20 22 | 20 69 73 20 70 72 69 6d |.    . "| is prim|
|00000560| 65 22 0d 02 08 08 20 20 | 20 cc 0d 02 12 0e 20 20 |e"....  | .....  |
|00000570| 20 20 f1 20 22 23 22 3b | 0d 02 1c 08 20 20 20 cd |  . "#";|....   .|
|00000580| 0d 02 26 07 20 20 cc 0d | 02 30 0d 20 20 20 f1 20 |..&.  ..|.0.   . |
|00000590| 22 5f 22 3b 0d 02 3a 07 | 20 20 cd 0d 02 44 06 20 |"_";..:.|  ...D. |
|000005a0| cc 0d 02 4e 0c 20 20 f1 | 20 22 2e 22 3b 0d 02 58 |...N.  .| ".";..X|
|000005b0| 06 20 cd 0d 02 62 17 20 | c8 99 20 22 4e 75 6d 5f |. ...b. |.. "Num_|
|000005c0| 52 65 6d 6f 76 65 22 2c | 6e 25 0d 02 6c 17 20 c8 |Remove",|n%..l. .|
|000005d0| 99 20 22 4e 75 6d 5f 52 | 65 6d 6f 76 65 22 2c 6c |. "Num_R|emove",l|
|000005e0| 25 0d 02 76 17 20 c8 99 | 20 22 4e 75 6d 5f 52 65 |%..v. ..| "Num_Re|
|000005f0| 6d 6f 76 65 22 2c 70 25 | 0d 02 80 05 e1 0d ff    |move",p%|....... |
+--------+-------------------------+-------------------------+--------+--------+