Concatenate two primes is also prime: Difference between revisions
Content added Content deleted
(add FreeBASIC) |
(Added solution for Action!) |
||
Line 4: | Line 4: | ||
Find and show here when the concatenation of two primes ('''p<sub>1</sub>''', '''p<sub>2</sub>''') shown in base ten is also prime, where '''p<sub>1</sub>, p<sub>2</sub> < 100'''. |
Find and show here when the concatenation of two primes ('''p<sub>1</sub>''', '''p<sub>2</sub>''') shown in base ten is also prime, where '''p<sub>1</sub>, p<sub>2</sub> < 100'''. |
||
<br><br> |
<br><br> |
||
=={{header|Action!}}== |
|||
{{libheader|Action! Tool Kit}} |
|||
{{libheader|Action! Sieve of Eratosthenes}} |
|||
<lang Action!>INCLUDE "D2:SORT.ACT" ;from the Action! Tool Kit |
|||
INCLUDE "H6:SIEVE.ACT" |
|||
PROC Main() |
|||
DEFINE MAX="9999" |
|||
BYTE ARRAY primes(MAX+1) |
|||
BYTE i,j |
|||
INT ij,count |
|||
INT ARRAY res(130) |
|||
Put(125) PutE() ;clear the screen |
|||
Sieve(primes,MAX+1) |
|||
count=0 |
|||
FOR i=2 TO 99 |
|||
DO |
|||
IF primes(i) THEN |
|||
FOR j=2 TO 99 |
|||
DO |
|||
IF primes(j) THEN |
|||
ij=i |
|||
IF j<10 THEN |
|||
ij==*10 |
|||
ELSE |
|||
ij==*100 |
|||
FI |
|||
ij==+j |
|||
IF primes(ij) THEN |
|||
res(count)=ij |
|||
count==+1 |
|||
FI |
|||
FI |
|||
OD |
|||
FI |
|||
OD |
|||
SortI(res,count,0) |
|||
FOR i=0 TO count-1 |
|||
DO |
|||
PrintI(res(i)) Put(32) |
|||
OD |
|||
PrintF("%E%EThere are %I primes",count) |
|||
RETURN</lang> |
|||
{{out}} |
|||
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Concatenate_two_primes_is_also_prime.png Screenshot from Atari 8-bit computer] |
|||
<pre> |
|||
23 37 53 73 113 137 173 193 197 211 223 229 233 241 271 283 293 311 313 313 |
|||
317 317 331 337 347 353 359 367 373 373 379 383 389 397 433 523 541 547 571 |
|||
593 613 617 673 677 719 733 743 761 773 797 797 977 1117 1123 1129 1153 1171 |
|||
1319 1361 1367 1373 1723 1741 1747 1753 1759 1783 1789 1913 1931 1973 1979 |
|||
1997 2311 2341 2347 2371 2383 2389 2917 2953 2971 3119 3137 3167 3719 3761 |
|||
3767 3779 3797 4111 4129 4153 4159 4337 4373 4397 4723 4729 4759 4783 4789 |
|||
5323 5347 5923 5953 6113 6131 6143 6173 6197 6719 6737 6761 6779 7129 7159 |
|||
7331 7919 7937 8311 8317 8329 8353 8389 8923 8929 8941 8971 9719 9743 9767 |
|||
There are 132 primes |
|||
</pre> |
|||
=={{header|ALGOL 68}}== |
=={{header|ALGOL 68}}== |