/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / maths / progs / programs / Maths1 / PRIMES

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 20 3e 50 | 52 49 4d 45 53 0d 00 14 |..... >P|RIMES...|
|00000010| 0d ee 20 85 20 e5 8d 54 | 58 41 0d 00 1e 6c eb 37 |.. . ..T|XA...l.7|
|00000020| 3a f1 3a f1 22 20 43 52 | 45 41 54 45 53 20 41 52 |:.:." CR|EATES AR|
|00000030| 52 41 59 20 4f 46 20 50 | 52 49 4d 45 53 20 28 46 |RAY OF P|RIMES (F|
|00000040| 41 53 54 45 53 54 20 41 | 4c 47 4f 52 49 54 48 4d |ASTEST A|LGORITHM|
|00000050| 29 20 4d 41 58 2e 20 31 | 36 32 32 32 32 2e 20 54 |) MAX. 1|62222. T|
|00000060| 48 45 4e 20 46 49 4e 44 | 53 20 46 41 43 54 4f 52 |HEN FIND|S FACTOR|
|00000070| 53 20 4f 46 20 41 4e 20 | 49 4e 50 55 54 20 4e 55 |S OF AN |INPUT NU|
|00000080| 4d 42 45 52 2e 22 0d 00 | 28 25 e8 22 50 52 49 4d |MBER."..|(%."PRIM|
|00000090| 45 53 20 20 55 50 54 4f | 22 3b 44 25 3a e7 44 25 |ES  UPTO|";D%:.D%|
|000000a0| 3d 30 3a 44 25 3d 34 36 | 33 32 37 0d 00 3c 2a d1 |=0:D%=46|327..<*.|
|000000b0| 3d 30 3a 87 3a 45 25 3d | 44 25 5e 2e 35 3a de 20 |=0:.:E%=|D%^.5:. |
|000000c0| 4e 25 28 44 25 29 3a 40 | 25 3d 38 3a 53 25 3d 37 |N%(D%):@|%=8:S%=7|
|000000d0| 3a 43 25 3d b9 0d 00 46 | 55 f5 3a e3 20 58 25 3d |:C%=...F|U.:. X%=|
|000000e0| 53 25 2a 53 25 b8 44 25 | 88 53 25 2a 32 3a 4e 25 |S%*S%.D%|.S%*2:N%|
|000000f0| 28 58 25 29 3d 43 25 3a | ed 3a f5 3a 53 25 2b 3d |(X%)=C%:|.:.:S%+=|
|00000100| 32 3a fd ac 4e 25 28 53 | 25 29 3a fd 53 25 3e 45 |2:..N%(S|%):.S%>E|
|00000110| 25 3a 20 f4 20 53 49 45 | 56 45 20 4f 46 20 45 52 |%: . SIE|VE OF ER|
|00000120| 41 54 4f 53 54 48 45 4e | 45 53 0d 00 50 2f 4e 25 |ATOSTHEN|ES..P/N%|
|00000130| 28 30 29 3d 32 3a 4e 25 | 28 31 29 3d 33 3a 4e 25 |(0)=2:N%|(1)=3:N%|
|00000140| 28 32 29 3d 35 3a 43 25 | 3d 33 3a e3 58 25 3d 37 |(2)=5:C%|=3:.X%=7|
|00000150| b8 44 25 2d 33 30 88 33 | 30 0d 00 5a 1c e7 ac 4e |.D%-30.3|0..Z...N|
|00000160| 25 28 58 25 29 20 4e 25 | 28 43 25 29 3d 58 25 3a |%(X%) N%|(C%)=X%:|
|00000170| 43 25 2b 3d 31 0d 00 64 | 20 e7 ac 4e 25 28 58 25 |C%+=1..d| ..N%(X%|
|00000180| 2b 34 29 20 4e 25 28 43 | 25 29 3d 58 25 2b 34 3a |+4) N%(C|%)=X%+4:|
|00000190| 43 25 2b 3d 31 0d 00 6e | 20 e7 ac 4e 25 28 58 25 |C%+=1..n| ..N%(X%|
|000001a0| 2b 36 29 20 4e 25 28 43 | 25 29 3d 58 25 2b 36 3a |+6) N%(C|%)=X%+6:|
|000001b0| 43 25 2b 3d 31 0d 00 78 | 22 e7 ac 4e 25 28 58 25 |C%+=1..x|"..N%(X%|
|000001c0| 2b 31 30 29 20 4e 25 28 | 43 25 29 3d 58 25 2b 31 |+10) N%(|C%)=X%+1|
|000001d0| 30 3a 43 25 2b 3d 31 0d | 00 82 22 e7 ac 4e 25 28 |0:C%+=1.|.."..N%(|
|000001e0| 58 25 2b 31 32 29 20 4e | 25 28 43 25 29 3d 58 25 |X%+12) N|%(C%)=X%|
|000001f0| 2b 31 32 3a 43 25 2b 3d | 31 0d 00 8c 22 e7 ac 4e |+12:C%+=|1..."..N|
|00000200| 25 28 58 25 2b 31 36 29 | 20 4e 25 28 43 25 29 3d |%(X%+16)| N%(C%)=|
|00000210| 58 25 2b 31 36 3a 43 25 | 2b 3d 31 0d 00 96 22 e7 |X%+16:C%|+=1...".|
|00000220| ac 4e 25 28 58 25 2b 32 | 32 29 20 4e 25 28 43 25 |.N%(X%+2|2) N%(C%|
|00000230| 29 3d 58 25 2b 32 32 3a | 43 25 2b 3d 31 0d 00 a0 |)=X%+22:|C%+=1...|
|00000240| 22 e7 ac 4e 25 28 58 25 | 2b 32 34 29 20 4e 25 28 |"..N%(X%|+24) N%(|
|00000250| 43 25 29 3d 58 25 2b 32 | 34 3a 43 25 2b 3d 31 0d |C%)=X%+2|4:C%+=1.|
|00000260| 00 aa 10 ed 3a f1 22 20 | 54 49 4d 45 3d 22 91 0d |....:." |TIME="..|
|00000270| 00 be 1e 41 24 3d be 3a | e3 58 25 3d 30 b8 43 25 |...A$=.:|.X%=0.C%|
|00000280| 2d 31 3a f1 4e 25 28 58 | 25 29 3b 3a ed 0d 00 c8 |-1:.N%(X|%);:....|
|00000290| 48 f1 3a f1 22 20 46 49 | 4e 44 20 46 41 43 54 4f |H.:." FI|ND FACTO|
|000002a0| 52 53 2c 20 4d 41 58 2e | 22 3b 3a e7 20 44 25 3e |RS, MAX.|";:. D%>|
|000002b0| 34 36 33 32 36 20 f1 22 | 20 32 31 34 37 34 38 33 |46326 ."| 2147483|
|000002c0| 36 34 37 20 28 32 5e 33 | 31 2d 31 29 22 3a 8b f1 |647 (2^3|1-1)":..|
|000002d0| 44 25 2a 44 25 0d 00 d2 | 28 f1 22 22 3b 43 25 3b |D%*D%...|(."";C%;|
|000002e0| 22 20 50 52 49 4d 45 53 | 20 52 45 43 4f 52 44 45 |" PRIMES| RECORDE|
|000002f0| 44 22 3a 43 25 2d 3d 31 | 3a 44 25 3d 30 0d 00 dc |D":C%-=1|:D%=0...|
|00000300| 22 f1 22 22 3b 44 25 3a | e8 22 4e 55 4d 42 45 52 |"."";D%:|."NUMBER|
|00000310| 22 3b 44 25 3a e7 44 25 | 3c 34 8c 8d 64 5c 40 0d |";D%:.D%|<4..d\@.|
|00000320| 00 e6 31 42 25 3d 30 3a | f5 3a 59 25 3d b6 44 25 |..1B%=0:|.:Y%=.D%|
|00000330| 3a 41 25 3d 59 25 2f aa | 59 25 2b 59 25 2f 39 39 |:A%=Y%/.|Y%+Y%/99|
|00000340| 2b 35 32 3a e7 41 25 3e | 43 25 20 41 25 3d 43 25 |+52:.A%>|C% A%=C%|
|00000350| 0d 00 f0 0d e3 42 25 3d | 42 25 b8 41 25 0d 00 fa |.....B%=|B%.A%...|
|00000360| 16 e7 44 25 83 4e 25 28 | 42 25 29 20 ed 3a e5 8d |..D%.N%(|B%) .:..|
|00000370| 64 5c 40 0d 01 04 31 f1 | 22 22 3b 4e 25 28 42 25 |d\@...1.|"";N%(B%|
|00000380| 29 3b 22 2a 20 22 3b 3a | e7 41 25 3e 42 25 20 44 |);"* ";:|.A%>B% D|
|00000390| 25 3d 44 25 2f 4e 25 28 | 42 25 29 3a e7 44 25 3e |%=D%/N%(|B%):.D%>|
|000003a0| 33 20 fd 30 0d 01 0e 09 | e5 8d 64 5c 40 0d 01 18 |3 .0....|..d\@...|
|000003b0| 19 e7 20 9f 3d 32 30 3a | f6 3a f1 3a 44 25 3d 30 |.. .=20:|.:.:D%=0|
|000003c0| 3a e5 8d 64 5c 40 0d 01 | 22 16 f6 3a f1 22 20 41 |:..d\@..|"..:." A|
|000003d0| 54 20 4c 49 4e 45 20 22 | 3b 9e 3a e0 0d 01 27 39 |T LINE "|;.:...'9|
|000003e0| f4 20 54 45 53 54 20 54 | 4f 20 53 45 54 20 54 48 |. TEST T|O SET TH|
|000003f0| 45 20 56 41 4c 55 45 53 | 20 4f 46 20 54 48 45 20 |E VALUES| OF THE |
|00000400| 43 4f 4e 53 54 41 4e 54 | 53 20 49 4e 20 4c 49 4e |CONSTANT|S IN LIN|
|00000410| 45 20 32 33 30 0d 01 2c | 30 eb 30 3a 5a 25 3d 30 |E 230..,|0.0:Z%=0|
|00000420| 3a 56 25 3d 30 3a e3 59 | 25 3d 34 34 b8 34 36 33 |:V%=0:.Y|%=44.463|
|00000430| 30 30 88 31 31 3a 41 25 | 3d 59 25 2f aa 59 25 2b |00.11:A%|=Y%/.Y%+|
|00000440| 59 25 2f 39 39 0d 01 36 | 1a e3 42 25 3d 41 25 b8 |Y%/99..6|..B%=A%.|
|00000450| 43 25 3a e7 59 25 3e 4e | 25 28 42 25 29 20 ed 0d |C%:.Y%>N|%(B%) ..|
|00000460| 01 40 1c e7 42 25 2d 41 | 25 3c 56 25 20 56 25 3d |.@..B%-A|%<V% V%=|
|00000470| 42 25 2d 41 25 3a 55 25 | 3d 59 25 0d 01 4a 3e f0 |B%-A%:U%|=Y%..J>.|
|00000480| 36 39 2c 59 25 2f 34 30 | 2c 32 2a 28 42 25 2d 41 |69,Y%/40|,2*(B%-A|
|00000490| 25 29 3a f0 36 39 2c 59 | 25 2f 34 30 2c 31 31 31 |%):.69,Y|%/40,111|
|000004a0| 3a e7 42 25 2d 41 25 3e | 5a 25 20 5a 25 3d 42 25 |:.B%-A%>|Z% Z%=B%|
|000004b0| 2d 41 25 3a 57 25 3d 59 | 25 0d 01 54 29 ed 59 25 |-A%:W%=Y|%..T).Y%|
|000004c0| 3a f1 22 4c 41 52 47 45 | 53 54 20 42 25 2d 41 25 |:."LARGE|ST B%-A%|
|000004d0| 3d 22 3b 5a 25 3b 22 20 | 41 54 20 59 25 3d 22 3b |=";Z%;" |AT Y%=";|
|000004e0| 57 25 0d ff             |                         |W%..    |        |
+--------+-------------------------+-------------------------+--------+--------+