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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0c f4 20 3e 4c | 75 63 61 73 0d 00 14 28 |..... >L|ucas...(|
|00000010| f4 20 28 43 29 20 43 6f | 70 79 72 69 67 68 74 20 |. (C) Co|pyright |
|00000020| 4e 69 63 6b 20 43 72 61 | 69 67 2d 57 6f 6f 64 20 |Nick Cra|ig-Wood |
|00000030| 31 39 39 32 0d 00 1e 04 | 0d 00 28 44 f4 20 54 68 |1992....|..(D. Th|
|00000040| 69 73 20 69 6d 70 6c 65 | 6d 65 6e 74 73 20 74 68 |is imple|ments th|
|00000050| 65 20 4c 75 63 61 73 5f | 4c 65 68 6d 65 72 20 74 |e Lucas_|Lehmer t|
|00000060| 65 73 74 20 66 6f 72 20 | 6c 6f 6f 6b 69 6e 67 20 |est for |looking |
|00000070| 66 6f 72 20 4d 65 72 73 | 65 6e 6e 65 0d 00 32 36 |for Mers|enne..26|
|00000080| f4 20 70 72 69 6d 65 73 | 20 6f 66 20 74 68 65 20 |. primes| of the |
|00000090| 66 6f 72 6d 20 32 5e 71 | 2d 31 20 77 68 65 72 65 |form 2^q|-1 where|
|000000a0| 20 71 20 69 73 20 61 6e | 20 6f 64 64 20 70 72 69 | q is an| odd pri|
|000000b0| 6d 65 0d 00 3c 04 0d 00 | 46 45 f4 20 54 68 69 73 |me..<...|FE. This|
|000000c0| 20 69 73 20 74 68 65 20 | 77 61 79 20 74 68 65 20 | is the |way the |
|000000d0| 62 69 67 67 65 73 74 20 | 70 72 69 6d 65 73 20 6b |biggest |primes k|
|000000e0| 6e 6f 77 6e 20 74 6f 64 | 61 79 20 61 72 65 20 63 |nown tod|ay are c|
|000000f0| 68 65 63 6b 65 64 20 66 | 6f 72 2e 0d 00 50 3c f4 |hecked f|or...P<.|
|00000100| 20 48 6f 77 65 76 65 72 | 20 61 20 73 75 70 65 72 | However| a super|
|00000110| 63 6f 6d 70 75 74 65 72 | 20 69 73 20 6e 65 65 64 |computer| is need|
|00000120| 65 64 20 74 6f 20 62 72 | 65 61 6b 20 74 68 65 20 |ed to br|eak the |
|00000130| 72 65 63 6f 72 64 21 0d | 00 5a 04 0d 00 64 28 2a |record!.|.Z...d(*|
|00000140| 52 4d 45 6e 73 75 72 65 | 20 4e 75 6d 62 65 72 73 |RMEnsure| Numbers|
|00000150| 20 30 2e 30 20 52 4d 4c | 6f 61 64 20 4e 75 6d 62 | 0.0 RML|oad Numb|
|00000160| 65 72 73 0d 00 6e 3a 2a | 52 4d 45 6e 73 75 72 65 |ers..n:*|RMEnsure|
|00000170| 20 4e 75 6d 62 65 72 73 | 20 30 2e 30 20 45 72 72 | Numbers| 0.0 Err|
|00000180| 6f 72 20 31 20 4e 75 6d | 62 65 72 73 20 6d 6f 64 |or 1 Num|bers mod|
|00000190| 75 6c 65 20 6e 6f 74 20 | 66 6f 75 6e 64 0d 00 78 |ule not |found..x|
|000001a0| 04 0d 00 82 14 48 65 61 | 70 53 69 7a 65 3d 36 34 |.....Hea|pSize=64|
|000001b0| 2a 31 30 32 34 0d 00 8c | 16 de 20 4e 75 6d 62 65 |*1024...|.. Numbe|
|000001c0| 72 73 20 48 65 61 70 53 | 69 7a 65 0d 00 96 3c c8 |rs HeapS|ize...<.|
|000001d0| 99 20 22 4e 75 6d 5f 48 | 65 61 70 49 6e 69 74 22 |. "Num_H|eapInit"|
|000001e0| 2c 4e 75 6d 62 65 72 73 | 2c 48 65 61 70 53 69 7a |,Numbers|,HeapSiz|
|000001f0| 65 20 b8 20 68 70 25 2c | 7a 65 72 6f 25 2c 6f 6e |e . hp%,|zero%,on|
|00000200| 65 25 2c 74 77 6f 25 0d | 00 a0 27 c8 99 20 22 4e |e%,two%.|..'.. "N|
|00000210| 75 6d 5f 4d 61 6b 65 53 | 6d 61 6c 6c 50 72 69 6d |um_MakeS|mallPrim|
|00000220| 65 73 22 2c 31 30 30 30 | 30 20 b8 20 61 25 0d 00 |es",1000|0 . a%..|
|00000230| aa 0b ef 20 32 36 2c 31 | 32 0d 00 b4 1f f1 20 3b |... 26,1|2..... ;|
|00000240| 61 25 3b 22 20 73 6d 61 | 6c 6c 20 70 72 69 6d 65 |a%;" sma|ll prime|
|00000250| 73 20 66 6f 75 6e 64 22 | 0d 00 be 04 0d 00 c8 12 |s found"|........|
|00000260| e3 20 71 25 3d 33 20 b8 | 20 31 30 30 30 30 0d 00 |. q%=3 .| 10000..|
|00000270| d2 16 20 f2 6c 75 63 61 | 73 5f 6c 65 68 6d 65 72 |.. .luca|s_lehmer|
|00000280| 28 71 25 29 0d 00 dc 08 | ed 20 71 25 0d 00 e6 05 |(q%)....|. q%....|
|00000290| e0 0d 00 f0 04 0d 00 fa | 04 0d 01 04 49 f4 20 54 |........|....I. T|
|000002a0| 68 69 73 20 63 68 65 63 | 6b 73 20 74 6f 20 73 65 |his chec|ks to se|
|000002b0| 65 20 77 68 65 74 68 65 | 72 20 32 5e 71 25 2d 31 |e whethe|r 2^q%-1|
|000002c0| 20 69 73 20 70 72 69 6d | 65 2c 20 70 72 69 6e 74 | is prim|e, print|
|000002d0| 69 6e 67 20 69 74 73 20 | 72 65 73 75 6c 74 73 20 |ing its |results |
|000002e0| 6f 6e 0d 01 0e 10 f4 20 | 74 68 65 20 73 63 72 65 |on..... |the scre|
|000002f0| 65 6e 0d 01 18 04 0d 01 | 22 17 dd 20 f2 6c 75 63 |en......|".. .luc|
|00000300| 61 73 5f 6c 65 68 6d 65 | 72 28 71 25 29 0d 01 2c |as_lehme|r(q%)..,|
|00000310| 25 ea 20 6e 25 2c 6c 25 | 2c 70 25 2c 66 61 63 74 |%. n%,l%|,p%,fact|
|00000320| 6f 72 25 2c 70 72 69 6d | 65 25 2c 72 65 73 75 6c |or%,prim|e%,resul|
|00000330| 74 25 0d 01 36 1b 20 c8 | 99 20 22 4e 75 6d 5f 49 |t%..6. .|. "Num_I|
|00000340| 6e 69 74 22 2c 68 70 25 | 20 b8 20 6e 25 0d 01 40 |nit",hp%| . n%..@|
|00000350| 1b 20 c8 99 20 22 4e 75 | 6d 5f 49 6e 69 74 22 2c |. .. "Nu|m_Init",|
|00000360| 68 70 25 20 b8 20 6c 25 | 0d 01 4a 1b 20 c8 99 20 |hp% . l%|..J. .. |
|00000370| 22 4e 75 6d 5f 49 6e 69 | 74 22 2c 68 70 25 20 b8 |"Num_Ini|t",hp% .|
|00000380| 20 70 25 0d 01 54 04 0d | 01 5e 17 20 c8 99 20 22 | p%..T..|.^. .. "|
|00000390| 4e 75 6d 5f 53 65 74 22 | 2c 6e 25 2c 71 25 0d 01 |Num_Set"|,n%,q%..|
|000003a0| 68 26 20 c8 99 20 22 4e | 75 6d 5f 53 6d 61 6c 6c |h& .. "N|um_Small|
|000003b0| 46 61 63 74 6f 72 22 2c | 6e 25 20 b8 20 66 61 63 |Factor",|n% . fac|
|000003c0| 74 6f 72 25 0d 01 72 12 | 20 e7 20 66 61 63 74 6f |tor%..r.| . facto|
|000003d0| 72 25 3d 30 20 8c 0d 01 | 7c 1d 20 20 c8 99 20 22 |r%=0 ...||.  .. "|
|000003e0| 4e 75 6d 5f 50 6f 77 22 | 2c 74 77 6f 25 2c 6e 25 |Num_Pow"|,two%,n%|
|000003f0| 2c 70 25 0d 01 86 2e 20 | 20 c8 99 20 22 4e 75 6d |,p%.... | .. "Num|
|00000400| 5f 53 63 61 6c 61 72 53 | 75 62 22 2c 70 25 2c 31 |_ScalarS|ub",p%,1|
|00000410| 2c 70 25 20 3a f4 20 70 | 20 3c 2d 20 32 5e 71 2d |,p% :. p| <- 2^q-|
|00000420| 31 0d 01 90 27 20 20 c8 | 99 20 22 4e 75 6d 5f 53 |1...'  .|. "Num_S|
|00000430| 6d 61 6c 6c 46 61 63 74 | 6f 72 22 2c 70 25 20 b8 |mallFact|or",p% .|
|00000440| 20 66 61 63 74 6f 72 25 | 0d 01 9a 13 20 20 e7 20 | factor%|....  . |
|00000450| 66 61 63 74 6f 72 25 3d | 30 20 8c 0d 01 a4 18 20 |factor%=|0 ..... |
|00000460| 20 20 c8 99 20 22 4e 75 | 6d 5f 53 65 74 22 2c 6c |  .. "Nu|m_Set",l|
|00000470| 25 2c 34 0d 01 ae 14 20 | 20 20 e3 20 69 25 3d 31 |%,4.... |  . i%=1|
|00000480| 20 b8 20 71 25 2d 32 0d | 01 b8 1d 20 20 20 20 c8 | . q%-2.|...    .|
|00000490| 99 20 22 4e 75 6d 5f 4d | 75 6c 22 2c 6c 25 2c 6c |. "Num_M|ul",l%,l|
|000004a0| 25 2c 6c 25 0d 01 c2 22 | 20 20 20 20 c8 99 20 22 |%,l%..."|    .. "|
|000004b0| 4e 75 6d 5f 53 63 61 6c | 61 72 53 75 62 22 2c 6c |Num_Scal|arSub",l|
|000004c0| 25 2c 32 2c 6c 25 0d 01 | cc 1d 20 20 20 20 c8 99 |%,2,l%..|..    ..|
|000004d0| 20 22 4e 75 6d 5f 4d 6f | 64 22 2c 6c 25 2c 70 25 | "Num_Mo|d",l%,p%|
|000004e0| 2c 6c 25 0d 01 d6 0b 20 | 20 20 ed 20 69 25 0d 01 |,l%.... |  . i%..|
|000004f0| e0 24 20 20 20 c8 99 20 | 22 4e 75 6d 5f 45 71 75 |.$   .. |"Num_Equ|
|00000500| 61 6c 73 22 2c 6c 25 2c | 30 20 b8 20 70 72 69 6d |als",l%,|0 . prim|
|00000510| 65 25 0d 01 ea 11 20 20 | 20 e7 20 70 72 69 6d 65 |e%....  | . prime|
|00000520| 25 20 8c 0d 01 f4 1b 20 | 20 20 20 f1 20 27 22 32 |% ..... |   . '"2|
|00000530| 5e 22 3b 71 25 3b 22 2d | 31 20 3d 20 22 3b 0d 01 |^";q%;"-|1 = ";..|
|00000540| fe 19 20 20 20 20 c8 99 | 20 22 4e 75 6d 5f 50 72 |..    ..| "Num_Pr|
|00000550| 69 6e 74 22 2c 70 25 0d | 02 08 15 20 20 20 20 f1 |int",p%.|...    .|
|00000560| 20 22 20 69 73 20 70 72 | 69 6d 65 22 0d 02 12 08 | " is pr|ime"....|
|00000570| 20 20 20 cc 0d 02 1c 0e | 20 20 20 20 f1 20 22 23 |   .....|    . "#|
|00000580| 22 3b 0d 02 26 08 20 20 | 20 cd 0d 02 30 07 20 20 |";..&.  | ...0.  |
|00000590| cc 0d 02 3a 0d 20 20 20 | f1 20 22 5f 22 3b 0d 02 |...:.   |. "_";..|
|000005a0| 44 07 20 20 cd 0d 02 4e | 06 20 cc 0d 02 58 0c 20 |D.  ...N|. ...X. |
|000005b0| 20 f1 20 22 2e 22 3b 0d | 02 62 06 20 cd 0d 02 6c | . ".";.|.b. ...l|
|000005c0| 17 20 c8 99 20 22 4e 75 | 6d 5f 52 65 6d 6f 76 65 |. .. "Nu|m_Remove|
|000005d0| 22 2c 6e 25 0d 02 76 17 | 20 c8 99 20 22 4e 75 6d |",n%..v.| .. "Num|
|000005e0| 5f 52 65 6d 6f 76 65 22 | 2c 6c 25 0d 02 80 17 20 |_Remove"|,l%.... |
|000005f0| c8 99 20 22 4e 75 6d 5f | 52 65 6d 6f 76 65 22 2c |.. "Num_|Remove",|
|00000600| 70 25 0d 02 8a 05 e1 0d | ff                      |p%......|.       |
+--------+-------------------------+-------------------------+--------+--------+