Anaprimes: Difference between revisions
m
→{{header|Julia}}
(Added Go) |
|||
Line 296:
=={{header|Julia}}==
Takes a bit over 1.5 minutes on a 10-year-old Haswell i7 machine.
<syntaxhighlight lang="julia">""" rosettacode.org task
using Primes
@time for pow10 = 2:9
parr = primes(10^pow10, 10^(pow10 + 1))
anap = map(n -> evalpoly(10, sort!(digits(n))), parr)
Line 332 ⟶ 333:
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.
186.920326 seconds (455.94 M allocations: 72.961 GiB, 1.54% gc time, 0.02% compilation time)
</pre>
| |||