/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / UBAS821.ZIP / RHO.UB

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 18 00 0a 00 03 98 00 00 | 52 48 4f 20 76 65 72 73 |........|RHO vers|
|00000010| 69 6f 6e 20 32 2e 33 0d | 21 00 14 00 03 98 00 00 |ion 2.3.|!.......|
|00000020| 0d 49 00 1e 00 03 98 00 | 00 20 20 46 61 63 74 6f |.I......|.  Facto|
|00000030| 72 69 7a 61 74 69 6f 6e | 20 77 69 74 68 20 72 68 |rization| with rh|
|00000040| 6f 20 6d 65 74 68 6f 64 | 0d 52 00 28 00 03 98 00 |o method|.R.(....|
|00000050| 00 0d 63 00 32 00 03 9f | de f1 78 00 c0 a9 de f1 |..c.2...|..x.....|
|00000060| 02 00 0d 93 00 3c 00 03 | 99 22 50 73 65 75 64 6f |.....<..|."Pseudo|
|00000070| 20 70 72 69 6d 65 20 64 | 65 63 6f 6d 70 6f 73 69 | prime d|ecomposi|
|00000080| 74 69 6f 6e 20 28 52 48 | 4f 20 6d 65 74 68 6f 64 |tion (RH|O method|
|00000090| 29 22 0d 9c 00 46 00 03 | 98 00 00 0d b6 00 50 00 |)"...F..|......P.|
|000000a0| 03 98 00 00 20 20 66 6f | 72 20 65 61 63 68 20 6e |....  fo|r each n|
|000000b0| 75 6d 62 65 72 0d bf 00 | 5a 00 03 98 00 00 0d e1 |umber...|Z.......|
|000000c0| 00 64 00 03 99 c0 a7 22 | 49 6e 70 75 74 20 61 6e |.d....."|Input an|
|000000d0| 20 69 6e 74 65 67 65 72 | 20 3d 22 c1 83 02 4e 00 | integer| ="...N.|
|000000e0| 0d f2 00 6e 00 03 8d 00 | 00 83 02 4e 00 d1 f0 8e |...n....|...N....|
|000000f0| bf 0d 10 01 78 00 03 88 | f5 0d 46 61 63 74 6f 72 |....x...|..Factor|
|00000100| 69 6e 67 5f 52 48 6f 00 | 00 28 83 02 4e 00 29 0d |ing_RHo.|.(..N.).|
|00000110| 1a 01 82 00 03 87 f1 64 | 00 0d 23 01 8c 00 03 98 |.......d|..#.....|
|00000120| 00 00 0d 3a 01 96 00 03 | 98 00 00 20 20 6d 61 69 |...:....|...  mai|
|00000130| 6e 20 72 6f 75 74 69 6e | 65 0d 43 01 a0 00 03 98 |n routin|e.C.....|
|00000140| 00 00 0d 60 01 aa 00 03 | f5 0d 46 61 63 74 6f 72 |...`....|..Factor|
|00000150| 69 6e 67 5f 52 68 6f 00 | 00 28 83 02 4e 00 29 0d |ing_Rho.|.(..N.).|
|00000160| a7 01 b4 00 03 a4 84 02 | 53 53 f1 14 00 29 c2 84 |........|SS...)..|
|00000170| 02 50 44 f1 14 00 29 c0 | 98 00 00 66 6f 72 20 69 |.PD...).|...for i|
|00000180| 6e 74 65 72 6d 65 64 69 | 61 74 65 20 64 69 76 69 |ntermedi|ate divi|
|00000190| 73 6f 72 73 20 61 6e 64 | 20 70 72 69 6d 65 20 66 |sors and| prime f|
|000001a0| 61 63 74 6f 72 73 0d cd | 01 be 00 03 83 02 4e 4e |actors..|......NN|
|000001b0| d1 83 02 4e 00 c0 81 02 | 53 31 d1 f1 01 00 c0 81 |...N....|S1......|
|000001c0| 02 53 50 d1 f0 c0 81 02 | 44 50 d1 f0 0d d6 01 c8 |.SP.....|DP......|
|000001d0| 00 03 98 00 00 0d f7 01 | d2 00 03 98 00 00 20 20 |........|......  |
|000001e0| 64 69 76 69 64 65 20 62 | 79 20 73 6d 61 6c 6c 20 |divide b|y small |
|000001f0| 70 72 69 6d 65 73 0d 00 | 02 dc 00 03 98 00 00 0d |primes..|........|
|00000200| 20 02 e6 00 03 83 02 44 | 00 d1 80 d1 83 02 4e 00 | ......D|......N.|
|00000210| 29 c0 8d 00 00 83 02 44 | 00 d1 f0 87 f1 40 01 0d |)......D|.....@..|
|00000220| 36 02 f0 00 03 8d 00 00 | 83 02 4e 00 d1 83 02 44 |6.......|..N....D|
|00000230| 00 87 f1 0e 01 0d 5c 02 | fa 00 03 99 83 02 44 00 |......\.|......D.|
|00000240| c1 22 2a 22 c1 c0 83 02 | 4e 00 d1 83 02 4e 00 e8 |."*"....|N....N..|
|00000250| 83 02 44 00 c0 81 02 53 | 31 d1 f0 0d 66 02 04 01 |..D....S|1...f...|
|00000260| 03 87 f1 e6 00 0d 8b 02 | 0e 01 03 8d 00 00 81 02 |........|........|
|00000270| 53 31 8e 99 83 02 4e 00 | c1 22 69 73 20 61 20 70 |S1....N.|."is a p|
|00000280| 72 69 6d 65 22 c0 87 f1 | e4 02 0d 9b 02 18 01 03 |rime"...|........|
|00000290| 99 83 02 4e 00 c0 87 f1 | e4 02 0d a4 02 22 01 03 |...N....|....."..|
|000002a0| 98 00 00 0d c4 02 2c 01 | 03 98 00 00 20 20 69 66 |......,.|....  if|
|000002b0| 20 4e 20 68 61 73 20 61 | 20 62 69 67 20 66 61 63 | N has a| big fac|
|000002c0| 74 6f 72 0d cd 02 36 01 | 03 98 00 00 0d d4 02 40 |tor...6.|.......@|
|000002d0| 01 03 99 0d dd 02 4a 01 | 03 98 00 00 0d fe 02 54 |......J.|.......T|
|000002e0| 01 03 98 00 00 20 20 70 | 73 65 75 64 6f 20 70 72 |.....  p|seudo pr|
|000002f0| 69 6d 61 6c 69 74 79 20 | 63 68 65 63 6b 0d 07 03 |imality |check...|
|00000300| 5e 01 03 98 00 00 0d 2e | 03 68 01 03 8d 00 00 b3 |^.......|.h......|
|00000310| f5 06 50 72 70 43 68 6b | 00 00 28 83 02 4e 00 29 |..PrpChk|..(..N.)|
|00000320| d1 f0 8e a8 81 02 53 31 | c0 87 f1 d6 01 0d 37 03 |......S1|......7.|
|00000330| 72 01 03 98 00 00 0d 5d | 03 7c 01 03 98 00 00 20 |r......]|.|..... |
|00000340| 20 73 74 6f 72 65 20 69 | 6e 20 50 44 20 69 66 20 | store i|n PD if |
|00000350| 70 73 65 75 64 6f 20 70 | 72 69 6d 65 0d 66 03 86 |pseudo p|rime.f..|
|00000360| 01 03 98 00 00 0d 80 03 | 90 01 03 84 02 50 44 81 |........|.....PD.|
|00000370| 02 44 50 29 d1 83 02 4e | 00 c0 a0 81 02 44 50 0d |.DP)...N|.....DP.|
|00000380| a7 03 9a 01 03 8d 00 00 | 81 02 53 50 8e a1 81 02 |........|..SP....|
|00000390| 53 50 c0 83 02 4e 00 d1 | 84 02 53 53 81 02 53 50 |SP...N..|..SS..SP|
|000003a0| 29 c0 87 f1 68 01 0d b1 | 03 a4 01 03 87 f1 12 02 |)...h...|........|
|000003b0| 0d ba 03 ae 01 03 98 00 | 00 0d e4 03 b8 01 03 98 |........|........|
|000003c0| 00 00 20 20 69 66 20 63 | 6f 6d 70 6f 73 69 74 65 |..  if c|omposite|
|000003d0| 20 74 68 65 6e 20 66 69 | 6e 64 20 61 20 66 61 63 | then fi|nd a fac|
|000003e0| 74 6f 72 0d fe 03 c2 01 | 03 98 00 00 20 20 77 69 |tor.....|....  wi|
|000003f0| 74 68 20 72 68 6f 20 6d | 65 74 68 6f 64 0d 07 04 |th rho m|ethod...|
|00000400| cc 01 03 98 00 00 0d 2f | 04 d6 01 03 83 02 4e 31 |......./|......N1|
|00000410| d1 b3 f5 03 52 48 4f 00 | 00 28 83 02 4e 00 29 c0 |....RHO.|.(..N.).|
|00000420| 83 02 4e 32 d1 83 02 4e | 00 e8 83 02 4e 31 0d 4c |..N2...N|....N1.L|
|00000430| 04 e0 01 03 8d 00 00 83 | 02 4e 31 d2 83 02 4e 32 |........|.N1...N2|
|00000440| 8e a5 83 02 4e 31 c2 83 | 02 4e 32 0d 75 04 ea 01 |....N1..|.N2.u...|
|00000450| 03 84 02 53 53 81 02 53 | 50 29 d1 83 02 4e 32 c0 |...SS..S|P)...N2.|
|00000460| a0 81 02 53 50 c0 83 02 | 4e 00 d1 83 02 4e 31 c0 |...SP...|N....N1.|
|00000470| 87 f1 68 01 0d 7e 04 f4 | 01 03 98 00 00 0d 98 04 |..h..~..|........|
|00000480| fe 01 03 98 00 00 20 20 | 64 69 73 70 6c 61 79 20 |......  |display |
|00000490| 72 65 73 75 6c 74 73 0d | a1 04 08 02 03 98 00 00 |results.|........|
|000004a0| 0d cd 04 12 02 03 8d 00 | 00 81 02 53 31 8e 99 83 |........|...S1...|
|000004b0| 02 4e 00 c1 22 69 73 20 | 61 20 70 73 65 75 64 6f |.N.."is |a pseudo|
|000004c0| 20 70 72 69 6d 65 22 c0 | 87 f1 e4 02 0d d6 04 1c | prime".|........|
|000004d0| 02 03 98 00 00 0d f6 04 | 26 02 03 98 00 00 20 20 |........|&.....  |
|000004e0| 64 69 73 70 6c 61 79 20 | 73 6d 61 6c 6c 20 66 61 |display |small fa|
|000004f0| 63 74 6f 72 73 0d ff 04 | 30 02 03 98 00 00 0d 1a |ctors...|0.......|
|00000500| 05 3a 02 03 83 02 4e 00 | d1 83 02 4e 4e c0 99 c0 |.:....N.|...NN...|
|00000510| 99 83 02 4e 00 c1 22 3d | 22 0d 3a 05 44 02 03 83 |...N.."=|".:.D...|
|00000520| 02 44 00 d1 80 d1 83 02 | 4e 00 29 c0 8d 00 00 83 |.D......|N.).....|
|00000530| 02 44 00 d1 f0 87 f1 62 | 02 0d 59 05 4e 02 03 99 |.D.....b|..Y.N...|
|00000540| 83 02 44 00 c1 22 2a 22 | c1 c0 83 02 4e 00 d1 83 |..D.."*"|....N...|
|00000550| 02 4e 00 e8 83 02 44 00 | 0d 63 05 58 02 03 87 f1 |.N....D.|.c.X....|
|00000560| 44 02 0d 81 05 62 02 03 | 8d 00 00 81 02 44 50 d1 |D....b..|.....DP.|
|00000570| f1 01 00 8e 99 84 02 50 | 44 f0 29 c0 87 f1 e4 02 |.......P|D.).....|
|00000580| 0d 8a 05 6c 02 03 98 00 | 00 0d ba 05 76 02 03 98 |...l....|....v...|
|00000590| 00 00 20 20 64 69 73 70 | 6c 61 79 20 62 69 67 20 |..  disp|lay big |
|000005a0| 66 61 63 74 6f 72 73 20 | 61 66 74 65 72 20 72 65 |factors |after re|
|000005b0| 5f 6f 72 64 65 72 69 6e | 67 0d c3 05 80 02 03 98 |_orderin|g.......|
|000005c0| 00 00 0d ce 05 8a 02 03 | a8 81 02 53 57 0d e4 05 |........|...SW...|
|000005d0| 94 02 03 89 83 02 49 00 | d1 f0 8a 81 02 44 50 de |......I.|.....DP.|
|000005e0| f1 02 00 0d 26 06 9e 02 | 03 8d 00 00 84 02 50 44 |....&...|......PD|
|000005f0| 83 02 49 00 29 d2 84 02 | 50 44 83 02 49 00 dd f1 |..I.)...|PD..I...|
|00000600| 01 00 29 8e a5 84 02 50 | 44 83 02 49 00 29 c2 84 |..)....P|D..I.)..|
|00000610| 02 50 44 83 02 49 00 dd | f1 01 00 29 c0 81 02 53 |.PD..I..|...)...S|
|00000620| 57 d1 f1 01 00 0d 2d 06 | a8 02 03 8c 0d 3e 06 b2 |W.....-.|.....>..|
|00000630| 02 03 8d 00 00 81 02 53 | 57 87 f1 8a 02 0d 54 06 |.......S|W.....T.|
|00000640| bc 02 03 89 83 02 49 00 | d1 f0 8a 81 02 44 50 de |......I.|.....DP.|
|00000650| f1 02 00 0d 69 06 c6 02 | 03 99 84 02 50 44 83 02 |....i...|....PD..|
|00000660| 49 00 29 c1 22 2a 22 c1 | 0d 70 06 d0 02 03 8c 0d |I.)."*".|.p......|
|00000670| 84 06 da 02 03 99 84 02 | 50 44 81 02 44 50 de f1 |........|PD..DP..|
|00000680| 01 00 29 0d 8b 06 e4 02 | 03 95 0d 94 06 ee 02 03 |..).....|........|
|00000690| 98 00 00 0d c2 06 f8 02 | 03 98 00 00 20 70 73 65 |........|.... pse|
|000006a0| 75 64 6f 20 70 72 69 6d | 61 6c 69 74 79 20 74 65 |udo prim|ality te|
|000006b0| 73 74 20 77 2e 72 2e 74 | 2e 20 32 2c 33 2c 35 2c |st w.r.t|. 2,3,5,|
|000006c0| 37 0d cb 06 02 03 03 98 | 00 00 0d e2 06 0c 03 03 |7.......|........|
|000006d0| b3 f5 06 50 72 70 43 68 | 6b 00 00 28 83 02 4e 00 |...PrpCh|k..(..N.|
|000006e0| 29 0d ed 06 16 03 03 ba | 81 02 4f 4b 0d 28 07 20 |).......|..OK.(. |
|000006f0| 03 04 8d 00 00 80 e8 00 | 00 28 80 da f1 02 00 c2 |........|.(......|
|00000700| 28 83 02 4e 00 de f1 01 | 00 29 e8 f1 02 00 c2 83 |(..N....|.)......|
|00000710| 02 4e 00 29 de 80 c8 f1 | 02 00 c2 83 02 4e 00 29 |.N.)....|.....N.)|
|00000720| 29 e7 83 02 4e 00 c2 0d | 5d 07 2a 03 09 c0 28 80 |)...N...|].*...(.|
|00000730| da f1 03 00 c2 28 83 02 | 4e 00 de f1 01 00 29 e8 |.....(..|N.....).|
|00000740| f1 02 00 c2 83 02 4e 00 | 29 de 80 c8 f1 03 00 c2 |......N.|).......|
|00000750| 83 02 4e 00 29 29 e7 83 | 02 4e 00 c2 0d 92 07 34 |..N.))..|.N.....4|
|00000760| 03 09 c0 28 80 da f1 05 | 00 c2 28 83 02 4e 00 de |...(....|..(..N..|
|00000770| f1 01 00 29 e8 f1 02 00 | c2 83 02 4e 00 29 de 80 |...)....|...N.)..|
|00000780| c8 f1 05 00 c2 83 02 4e | 00 29 29 e7 83 02 4e 00 |.......N|.))...N.|
|00000790| c2 0d c7 07 3e 03 09 c0 | 28 80 da f1 07 00 c2 28 |....>...|(......(|
|000007a0| 83 02 4e 00 de f1 01 00 | 29 e8 f1 02 00 c2 83 02 |..N.....|).......|
|000007b0| 4e 00 29 de 80 c8 f1 07 | 00 c2 83 02 4e 00 29 29 |N.).....|....N.))|
|000007c0| e7 83 02 4e 00 7d 0d d5 | 07 48 03 04 c0 8e 81 02 |...N.}..|.H......|
|000007d0| 4f 4b d1 f0 0d e7 07 52 | 03 04 c0 8f 00 00 81 02 |OK.....R|........|
|000007e0| 4f 4b d1 f1 01 00 0d f4 | 07 5c 03 03 95 28 81 02 |OK......|.\...(..|
|000007f0| 4f 4b 29 0d fd 07 66 03 | 03 98 00 00 0d 2b 08 70 |OK)...f.|.....+.p|
|00000800| 03 03 98 00 00 52 48 4f | 20 4d 45 54 48 4f 44 20 |.....RHO| METHOD |
|00000810| 76 65 72 20 31 2e 32 20 | 28 66 75 6e 63 74 69 6f |ver 1.2 |(functio|
|00000820| 6e 20 76 65 72 73 69 6f | 6e 29 0d 4f 08 7a 03 03 |n versio|n).O.z..|
|00000830| 98 00 00 20 6f 72 69 67 | 69 6e 61 6c 6c 79 20 20 |... orig|inally  |
|00000840| 62 79 20 4a 2e 4d 2e 50 | 6f 6c 6c 61 72 64 0d 6e |by J.M.P|ollard.n|
|00000850| 08 84 03 03 98 00 00 20 | 69 6e 70 6c 65 6d 65 6e |....... |inplemen|
|00000860| 74 65 64 20 62 79 20 59 | 2e 4b 49 44 41 0d 77 08 |ted by Y|.KIDA.w.|
|00000870| 8e 03 03 98 00 00 0d 8b | 08 98 03 03 b3 f5 03 52 |........|.......R|
|00000880| 68 6f 00 00 28 83 02 4e | 00 29 0d af 08 a2 03 03 |ho..(..N|.)......|
|00000890| ba 83 02 41 00 c2 83 02 | 58 31 c2 83 02 58 32 c2 |...A....|X1...X2.|
|000008a0| 81 02 49 00 c2 83 02 47 | 44 c2 83 02 43 74 0d b8 |..I....G|D...Ct..|
|000008b0| 08 ac 03 04 92 00 00 0d | c3 08 b6 03 07 a0 83 02 |........|........|
|000008c0| 41 00 0d eb 08 c0 03 07 | 83 02 58 31 d1 f1 06 00 |A.......|..X1....|
|000008d0| c0 83 02 58 32 d1 28 83 | 02 58 31 ef f1 02 00 dd |...X2.(.|.X1.....|
|000008e0| 83 02 41 00 29 e7 83 02 | 4e 00 0d f4 08 ca 03 07 |..A.)...|N.......|
|000008f0| 92 00 00 0d 0d 09 d4 03 | 0a a0 83 02 43 74 c0 99 |........|....Ct..|
|00000900| 80 d3 f1 0d 00 29 c1 83 | 02 43 74 c1 0d 1b 09 de |.....)..|.Ct.....|
|00000910| 03 0a 83 02 47 44 d1 f1 | 01 00 0d 2e 09 e8 03 0a |....GD..|........|
|00000920| 89 81 02 49 00 d1 f1 01 | 00 8a f1 64 00 0d 92 09 |...I....|...d....|
|00000930| f2 03 0d 83 02 47 44 d1 | 83 02 47 44 e5 28 83 02 |.....GD.|..GD.(..|
|00000940| 58 32 de 83 02 58 31 29 | e7 83 02 4e 00 c0 83 02 |X2...X1)|...N....|
|00000950| 58 31 d1 28 83 02 58 31 | ef f1 02 00 dd 83 02 41 |X1.(..X1|.......A|
|00000960| 00 29 e7 83 02 4e 00 c0 | 83 02 58 32 d1 28 28 83 |.)...N..|..X2.((.|
|00000970| 02 58 32 ef f1 02 00 e7 | 83 02 4e 00 dd 83 02 41 |.X2.....|..N....A|
|00000980| 00 29 ef f1 02 00 dd 83 | 02 41 00 29 e7 83 02 4e |.)......|.A.)...N|
|00000990| 00 0d 99 09 fc 03 0a 8c | 0d b0 09 06 04 0a 83 02 |........|........|
|000009a0| 47 44 d1 80 c4 83 02 47 | 44 c2 83 02 4e 00 29 0d |GD.....G|D...N.).|
|000009b0| c1 09 10 04 07 93 00 00 | 83 02 47 44 d2 f1 01 00 |........|..GD....|
|000009c0| 0d d3 09 1a 04 04 93 00 | 00 83 02 47 44 d4 83 02 |........|...GD...|
|000009d0| 4e 00 0d e0 09 24 04 03 | 95 28 83 02 47 44 29 0d |N....$..|.(..GD).|
|000009e0| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+