Primes which contain only one odd digit: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 144: | Line 144: | ||
Found 2560 single-odd-digit primes upto 1000000 |
Found 2560 single-odd-digit primes upto 1000000 |
||
</pre> |
</pre> |
||
=={{header|Arturo}}== |
|||
<syntaxhighlight lang="arturo">onlyOneOddDigit?: function [n][ |
|||
and? -> prime? n |
|||
-> one? select digits n => odd? |
|||
] |
|||
primesWithOnlyOneOddDigit: select 1..1000 => onlyOneOddDigit? |
|||
loop split.every: 9 primesWithOnlyOneOddDigit 'x -> |
|||
print map x 's -> pad to :string s 4 |
|||
nofPrimesBelow1M: enumerate 1..1000000 => onlyOneOddDigit? |
|||
print "" |
|||
print ["Found" nofPrimesBelow1M "primes with only one odd digit below 1000000."]</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 3 5 7 23 29 41 43 47 61 |
|||
67 83 89 223 227 229 241 263 269 |
|||
281 283 401 409 421 443 449 461 463 |
|||
467 487 601 607 641 643 647 661 683 |
|||
809 821 823 827 829 863 881 883 887 |
|||
Found 2560 primes with only one odd digit below 1000000.</pre> |
|||
=={{header|AWK}}== |
=={{header|AWK}}== |