Extra primes: Difference between revisions
Added 11l
m (added the Prime Numbers category.) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 18:
* [[:Category:Prime Numbers]]
<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}}==
| |||