Anaprimes: Difference between revisions

Line 348:

integer start = length(get_primes_le(1e2))+1

printf(1,"Largest anagram groups:\n")

for pow10=3 to iff(platform()=JS?7:9) do

for pow10=3 to iff(platform()=JS?8:9) do

progress("getting_primes...\r") --(~~~12s~~ in total)

progress("getting_primes...\r") -- (~15s in total)

sequence primes = get_primes_le(power(10,pow10)),

anap = primes[start..$]

for i,a in anap do -- (~~~500K~~/s, ~~>50%~~ in total)

for i,a in anap do -- (~4M/s, 16s in total)

if time()>t1 then

progress("converting %d/%d...\r",{i,length(anap)})

t1 = time()+1

end if

~~anap~~~~<span~~ ~~style="color: #0000FF;">[~~~~i]~~ = to_integer(sort(sprintf("%d",~~a)))~~

integer sig = 0

while a do

sig *= primes[remainder(a,10)+1]

a = floor(a/10)

end while

anap[i] = sig

end for

progress("sorting...\r") -- (a ~~tad~~ ~~tardy~~)

progress("sorting...\r") -- (~16s in total)

sequence anasorted = sort(deep_copy(anap))

progress("scanning...\r") -- (pretty fast)

Line 382:

Line 387:

<pre>

Largest anagram groups:

3-digits: [~~379~~..~~937~~], size 4 (0s)

3-digits: [101..997], size 143 (0s)

4-digits: [~~1279~~..~~9721~~], size 11 (0s)

4-digits: [1009..9973], size 1061 (0s)

5-digits: [~~13789~~..~~98731~~], size 39 (0s)

5-digits: [10007..99991], size 8363 (0s)

6-digits: [~~123479~~..~~974213~~], size ~~148~~ (0s)

6-digits: [100003..999983], size 68906 (0s)

7-digits: [~~1235789~~..~~9875321~~], size ~~731~~ (1s)

7-digits: [1000003..9999991], size 586081 (0s)

8-digits: [~~12345769~~..~~97654321~~], size ~~4333~~ (~~17s~~)

8-digits: [10000019..99999989], size 5096876 (4s)

9-digits: [~~102345697~~..~~976542103~~], size ~~26519~~ (~~2:53~~)

9-digits: [100000007..999999937], size 45086079 (47s)

"2 minutes and 53s"

</pre>

For comparison, on the same (ten year old 16GB) box the Julia entry took 38s (2nd run) to complete to 9 digits.

I simply don't have enough memory to attempt 10 digits, and in fact trying to run the Julia entry as-is forced a hard reboot.

When transpiled to JavaScript, 8 digits took ~~1 min 14secs~~, so I ~~limited~~ ~~that~~ to ~~7 digits (7s)~~

When transpiled to JavaScript and run n a web browser, 8 digits took 18secs, so I capped it at that.

=={{header|Raku}}==

@@ Line 348: / Line 348: @@
  <span style="color: #004080;">integer</span> <span style="color: #000000;">start</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">get_primes_le</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1e2</span><span style="color: #0000FF;">))+</span><span style="color: #000000;">1</span>
  <span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"Largest anagram groups:\n"</span><span style="color: #0000FF;">)</span>
- <span style="color: #008080;">for</span> <span style="color: #000000;">pow10</span><span style="color: #0000FF;">=</span><span style="color: #000000;">3</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">iff</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">platform</span><span style="color: #0000FF;">()=</span><span style="color: #004600;">JS</span><span style="color: #0000FF;">?</span><span style="color: #000000;">7</span><span style="color: #0000FF;">:</span><span style="color: #000000;">9</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
+ <span style="color: #008080;">for</span> <span style="color: #000000;">pow10</span><span style="color: #0000FF;">=</span><span style="color: #000000;">3</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">iff</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">platform</span><span style="color: #0000FF;">()=</span><span style="color: #004600;">JS</span><span style="color: #0000FF;">?</span><span style="color: #000000;">8</span><span style="color: #0000FF;">:</span><span style="color: #000000;">9</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
-     <span style="color: #7060A8;">progress</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"getting_primes...\r"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">--(~12s in total)</span>
+     <span style="color: #7060A8;">progress</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"getting_primes...\r"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (~15s in total)</span>
      <span style="color: #004080;">sequence</span> <span style="color: #000000;">primes</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">get_primes_le</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">power</span><span style="color: #0000FF;">(</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span><span style="color: #000000;">pow10</span><span style="color: #0000FF;">)),</span>
                 <span style="color: #000000;">anap</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">primes</span><span style="color: #0000FF;">[</span><span style="color: #000000;">start</span><span style="color: #0000FF;">..$]</span>
-     <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">a</span> <span style="color: #008080;">in</span> <span style="color: #000000;">anap</span> <span style="color: #008080;">do</span> <span style="color: #000080;font-style:italic;">-- (~500K/s, &gt;50% in total)</span>
+     <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #000000;">a</span> <span style="color: #008080;">in</span> <span style="color: #000000;">anap</span> <span style="color: #008080;">do</span> <span style="color: #000080;font-style:italic;">-- (~4M/s, 16s in total)</span>
          <span style="color: #008080;">if</span> <span style="color: #7060A8;">time</span><span style="color: #0000FF;">()></span><span style="color: #000000;">t1</span> <span style="color: #008080;">then</span>
              <span style="color: #7060A8;">progress</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"converting %d/%d...\r"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">i</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">anap</span><span style="color: #0000FF;">)})</span>
              <span style="color: #000000;">t1</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">time</span><span style="color: #0000FF;">()+</span><span style="color: #000000;">1</span>
          <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
-         <span style="color: #000000;">anap</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">to_integer</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">sort</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">sprintf</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"%d"</span><span style="color: #0000FF;">,</span><span style="color: #000000;">a</span><span style="color: #0000FF;">)))</span>
+         <span style="color: #004080;">integer</span> <span style="color: #000000;">sig</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span>
+         <span style="color: #008080;">while</span> <span style="color: #000000;">a</span> <span style="color: #008080;">do</span>
+             <span style="color: #000000;">sig</span> <span style="color: #0000FF;">*=</span> <span style="color: #000000;">primes</span><span style="color: #0000FF;">[</span><span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">a</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">)+</span><span style="color: #000000;">1</span><span style="color: #0000FF;">]</span>
+             <span style="color: #000000;">a</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">floor</span><span style="color: #0000FF;">(</span><span style="color: #000000;">a</span><span style="color: #0000FF;">/</span><span style="color: #000000;">10</span><span style="color: #0000FF;">)</span>
+         <span style="color: #008080;">end</span> <span style="color: #008080;">while</span>
+         <span style="color: #000000;">anap</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">sig</span>
      <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
-     <span style="color: #7060A8;">progress</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"sorting...\r"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (a tad tardy)</span>
+     <span style="color: #7060A8;">progress</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"sorting...\r"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (~16s in total)</span>
      <span style="color: #004080;">sequence</span> <span style="color: #000000;">anasorted</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">sort</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">deep_copy</span><span style="color: #0000FF;">(</span><span style="color: #000000;">anap</span><span style="color: #0000FF;">))</span>
      <span style="color: #7060A8;">progress</span><span style="color: #0000FF;">(</span><span style="color: #008000;">"scanning...\r"</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (pretty fast)</span>
@@ Line 382: / Line 387: @@
 <pre>
 Largest anagram groups:
--digits: [379..937], size 4 (0s)
+-digits: [101..997], size 143 (0s)
--digits: [1279..9721], size 11 (0s)
+-digits: [1009..9973], size 1061 (0s)
--digits: [13789..98731], size 39 (0s)
+-digits: [10007..99991], size 8363 (0s)
--digits: [123479..974213], size 148 (0s)
+-digits: [100003..999983], size 68906 (0s)
--digits: [1235789..9875321], size 731 (1s)
+-digits: [1000003..9999991], size 586081 (0s)
--digits: [12345769..97654321], size 4333 (17s)
+-digits: [10000019..99999989], size 5096876 (4s)
--digits: [102345697..976542103], size 26519 (2:53)
+-digits: [100000007..999999937], size 45086079 (47s)
-"2 minutes and 53s"
 </pre>
 For comparison, on the same (ten year old 16GB) box the Julia entry took 38s (2nd run) to complete to 9 digits.<br>
 I simply don't have enough memory to attempt 10 digits, and in fact trying to run the Julia entry as-is forced a hard reboot.<br>
-When transpiled to JavaScript, 8 digits took 1 min 14secs, so I limited that to 7 digits (7s)
+When transpiled to JavaScript and run n a web browser, 8 digits took 18secs, so I capped it at that.
 =={{header|Raku}}==