Extra primes: Difference between revisions
Content added Content deleted
m (added the Prime Numbers category.) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 18: | Line 18: | ||
* [[:Category:Prime Numbers]] |
* [[:Category:Prime Numbers]] |
||
<br><br> |
<br><br> |
||
=={{header|11l}}== |
|||
<lang 11l>V limit = 10'000 |
|||
V is_prime = [0B] * 2 [+] [1B] * (limit - 1) |
|||
L(n) 0 .< Int(limit ^ 0.5 + 1.5) |
|||
I is_prime[n] |
|||
L(i) (n * n .< limit + 1).step(n) |
|||
is_prime[i] = 0B |
|||
F is_extra_prime(n) |
|||
I !:is_prime[n] |
|||
R 0B |
|||
V s = 0 |
|||
L(digit_char) String(n) |
|||
V digit = Int(digit_char) |
|||
I !:is_prime[digit] |
|||
R 0B |
|||
s += digit |
|||
R Bool(:is_prime[s]) |
|||
V i = 0 |
|||
L(n) 0 .< limit |
|||
I is_extra_prime(n) |
|||
i++ |
|||
print(‘#4’.format(n), end' I i % 9 == 0 {"\n"} E ‘ ’)</lang> |
|||
{{out}} |
|||
<pre> |
|||
2 3 5 7 23 223 227 337 353 |
|||
373 557 577 733 757 773 2333 2357 2377 |
|||
2557 2753 2777 3253 3257 3323 3527 3727 5233 |
|||
5237 5273 5323 5527 7237 7253 7523 7723 7727 |
|||
</pre> |
|||
=={{header|Ada}}== |
=={{header|Ada}}== |