Ruth-Aaron numbers: Difference between revisions

Line 83:

with javascript_semantics

procedure ruth_aaron(bool d, integer n=30, l=2, i=1)

string ns = iff(~~n=1~~?"":~~sprintf(~~" %d"~~,n)~~),

string fd = iff(d?"divisors":"factors"),

nt = iff(l=2?"~~numbers~~":"~~triple~~"),

ns = iff(n=1?"":sprintf(" %d",n)),

fd = iff(d?"~~divisors~~":"~~factors~~")

ss = iff(n=1?"":"s"),

~~printf~~(1,~~"First%s Ruth-Aaron %s (%s):\n"~~,{ns,nt,fd})

nt = iff(l=2?"number":"triple")

printf(1,"First%s Ruth-Aaron %s%s (%s):\n",{ns,nt,ss,fd})

integer prev = -1, k = i, c = 0

while n do

Line 106:

Line 107:

printf(1,"\n\n")

end procedure

atom t0 = time()

ruth_aaron(false) -- https://oeis.org/A039752

ruth_aaron(true) -- https://oeis.org/A006145

ruth_aaron(false, 1, 3)

ruth_aaron(false, 1, 3) -- (2.1s)

~~~~-- give this one a little leg-up :-) ...

-- give this one a little leg-up :-) ...

ruth_aaron(true, 1, 3, 89460000)

ruth_aaron(true, 1, 3, 89460000) -- (0.1s)

--ruth_aaron(true, 1, 3) -- (24 minutes 30s)

@@ Line 83: / Line 83: @@
  <span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>
  <span style="color: #008080;">procedure</span> <span style="color: #000000;">ruth_aaron</span><span style="color: #0000FF;">(</span><span style="color: #004080;">bool</span> <span style="color: #000000;">d</span><span style="color: #0000FF;">,</span> <span style="color: #004080;">integer</span> <span style="color: #000000;">n</span><span style="color: #0000FF;">=</span><span style="color: #000000;">30</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">l</span><span style="color: #0000FF;">=</span><span style="color: #000000;">2</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span><span style="color: #0000FF;">)</span>
-     <span style="color: #004080;">string</span> <span style="color: #000000;">ns</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">n</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span><span style="color: #0000FF;">?</span><span style="color: #008000;">""</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;">n</span><span style="color: #0000FF;">)),</span>
+     <span style="color: #004080;">string</span> <span style="color: #000000;">fd</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">d</span><span style="color: #0000FF;">?</span><span style="color: #008000;">"divisors"</span><span style="color: #0000FF;">:</span><span style="color: #008000;">"factors"</span><span style="color: #0000FF;">),</span>
-            <span style="color: #000000;">nt</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">l</span><span style="color: #0000FF;">=</span><span style="color: #000000;">2</span><span style="color: #0000FF;">?</span><span style="color: #008000;">"numbers"</span><span style="color: #0000FF;">:</span><span style="color: #008000;">"triple"</span><span style="color: #0000FF;">),</span>
+            <span style="color: #000000;">ns</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">n</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span><span style="color: #0000FF;">?</span><span style="color: #008000;">""</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;">n</span><span style="color: #0000FF;">)),</span>
-            <span style="color: #000000;">fd</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">d</span><span style="color: #0000FF;">?</span><span style="color: #008000;">"divisors"</span><span style="color: #0000FF;">:</span><span style="color: #008000;">"factors"</span><span style="color: #0000FF;">)</span>
+            <span style="color: #000000;">ss</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">n</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span><span style="color: #0000FF;">?</span><span style="color: #008000;">""</span><span style="color: #0000FF;">:</span><span style="color: #008000;">"s"</span><span style="color: #0000FF;">),</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;">"First%s Ruth-Aaron %s (%s):\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">ns</span><span style="color: #0000FF;">,</span><span style="color: #000000;">nt</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fd</span><span style="color: #0000FF;">})</span>
+            <span style="color: #000000;">nt</span> <span style="color: #0000FF;">=</span> <span style="color: #008080;">iff</span><span style="color: #0000FF;">(</span><span style="color: #000000;">l</span><span style="color: #0000FF;">=</span><span style="color: #000000;">2</span><span style="color: #0000FF;">?</span><span style="color: #008000;">"number"</span><span style="color: #0000FF;">:</span><span style="color: #008000;">"triple"</span><span style="color: #0000FF;">)</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;">"First%s Ruth-Aaron %s%s (%s):\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">ns</span><span style="color: #0000FF;">,</span><span style="color: #000000;">nt</span><span style="color: #0000FF;">,</span><span style="color: #000000;">ss</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fd</span><span style="color: #0000FF;">})</span>
      <span style="color: #004080;">integer</span> <span style="color: #000000;">prev</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">-</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">k</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">c</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span>
      <span style="color: #008080;">while</span> <span style="color: #000000;">n</span> <span style="color: #008080;">do</span>
@@ Line 106: / Line 107: @@
      <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;">"\n\n"</span><span style="color: #0000FF;">)</span>
  <span style="color: #008080;">end</span> <span style="color: #008080;">procedure</span>
+ <span style="color: #004080;">atom</span> <span style="color: #000000;">t0</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">time</span><span style="color: #0000FF;">()</span>
  <span style="color: #000000;">ruth_aaron</span><span style="color: #0000FF;">(</span><span style="color: #004600;">false</span><span style="color: #0000FF;">)</span>   <span style="color: #000080;font-style:italic;">-- https://oeis.org/A039752</span>
  <span style="color: #000000;">ruth_aaron</span><span style="color: #0000FF;">(</span><span style="color: #004600;">true</span><span style="color: #0000FF;">)</span>    <span style="color: #000080;font-style:italic;">-- https://oeis.org/A006145</span>
- <span style="color: #000000;">ruth_aaron</span><span style="color: #0000FF;">(</span><span style="color: #004600;">false</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">3</span><span style="color: #0000FF;">)</span>
+ <span style="color: #000000;">ruth_aaron</span><span style="color: #0000FF;">(</span><span style="color: #004600;">false</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">3</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (2.1s)
- <span style="color: #000080;font-style:italic;">-- give this one a little leg-up :-) ...</span>
+ -- give this one a little leg-up :-) ...</span>
- <span style="color: #000000;">ruth_aaron</span><span style="color: #0000FF;">(</span><span style="color: #004600;">true</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">3</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">89460000</span><span style="color: #0000FF;">)</span>
+ <span style="color: #000000;">ruth_aaron</span><span style="color: #0000FF;">(</span><span style="color: #004600;">true</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">3</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">89460000</span><span style="color: #0000FF;">)</span> <span style="color: #000080;font-style:italic;">-- (0.1s)
+ --ruth_aaron(true, 1, 3) -- (24 minutes 30s)</span>
 <!--</lang>-->
 {{out}}