Anaprimes: Difference between revisions
Content added Content deleted
(Added Go) |
|||
Line 296: | Line 296: | ||
=={{header|Julia}}== |
=={{header|Julia}}== |
||
Takes a bit over 1.5 minutes on a 10-year-old Haswell i7 machine. |
|||
<syntaxhighlight lang="julia">""" rosettacode.org task |
<syntaxhighlight lang="julia">""" rosettacode.org task Anaprimes """ |
||
using Primes |
using Primes |
||
for pow10 = 2:9 |
@time for pow10 = 2:9 |
||
parr = primes(10^pow10, 10^(pow10 + 1)) |
parr = primes(10^pow10, 10^(pow10 + 1)) |
||
anap = map(n -> evalpoly(10, sort!(digits(n))), parr) |
anap = map(n -> evalpoly(10, sort!(digits(n))), parr) |
||
Line 332: | Line 333: | ||
For 9-digit primes, a largest anagram group, [102345697, ..976542103], has a group size of 26519. |
For 9-digit primes, a largest anagram group, [102345697, ..976542103], has a group size of 26519. |
||
For 10-digit primes, a largest anagram group, [1123465789, ..9876543211], has a group size of 152526. |
For 10-digit primes, a largest anagram group, [1123465789, ..9876543211], has a group size of 152526. |
||
186.920326 seconds (455.94 M allocations: 72.961 GiB, 1.54% gc time, 0.02% compilation time) |
|||
</pre> |
</pre> |
||