Rosetta Code

Smarandache prime-digital sequence: Difference between revisions

Page Discussion

Smarandache prime-digital sequence (view source)

Revision as of 04:54, 29 November 2020

273 bytes removed ,  3 years ago
→‎{{header|Ring}}
(Added Swift solution)
Line 1,346:
=={{header|Ring}}==
<lang ring>
# Project: Calmo primes
load "stdlib.ring"
limit = 25▼
max = 300000
num = 0▼
see "working..." + nl
see "wait for done..." + nl
see "First 25 Calmo primes are:" + nl▼
for n = 1 to max▼
if isprime(n)▼
res = calmo(n)▼
if res = 1▼
num = num + 1▼
if num < limit + 1▼
see "" + num + ". " + n + nl▼
ok▼
if num = 100▼
see "The hundredth Calmo prime is:" + nl
see "" + num + ". " + n + nl▼
exit▼
ok▼
ok▼
ok▼
next▼
see "done..." + nl
 
▲see "First 25 CalmoSmarandache primes are:" + nl + nl
func calmo(p)
 
sp = string(p)
▲num = 0
for n = 1 to len(sp)
▲limit = 2526
if not isprime(sp[n])▼
limit100 = 100
return 0
for n = 1 to ok34000
flag = 0
▲ resnStr = calmostring(n)
▲ for nx = 1 to maxlen(nStr)
▲ nx if= not isprimenumber(spnStr[nx])
▲ if isprime(n) and isprime(nx)
▲ if numflag <= limitflag + 1
else
▲ exit
▲ ok
next
returnif 1flag = len(nStr)
▲ num = num + 1
▲ if resnum =< 1limit
▲ see "" + numn + ". " + n + nl
▲ ok
▲ if num = 100limit100
▲ see ""nl + numnl + ".100th Smarandache prime: " + n + nl
▲ ok
▲ ok
▲next
</lang>
{{Out}}
<pre>
First 25 CalmoSmarandache primes are:▼
working...
 
wait for done...
2 3 5 7 23 37 53 73 223 227 233 257 277 337 353 373 523 557 577 727 733 757 773 2237 2273
▲First 25 Calmo primes are:
 
1. 2
100th Smarandache prime: 33223
2. 3
3. 5
4. 7
5. 23
6. 37
7. 53
8. 73
9. 223
10. 227
11. 233
12. 257
13. 277
14. 337
15. 353
16. 373
17. 523
18. 557
19. 577
20. 727
21. 733
22. 757
23. 773
24. 2237
25. 2273
The hundredth Calmo prime is:
100. 33223
done...
</pre>
 
CalmoSoft
2,468

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/290865"