Undulating numbers: Difference between revisions

Line 59:

{base,join_by(filter(u3,is_prime),1,10," ",fmt:="%3d")})

sequence un = u3 & u4

integer unc = length(un), j = 0, done = false

integer start = 1, done = false

while not done do

~~for~~ i=1 to ~~unc~~ do

integer finish = length(un)

atom u = un[j * unc + i~~] * ~~bsquare~~ + ~~remainder(~~un~~<span~~ ~~style="color: #0000FF;">[j * unc + i],bsquare)

for i=start to finish do

if u>~~limit~~ ~~then~~ ~~done~~ = ~~true~~; ~~exit~~ ~~end~~ if

atom u = un[i] * bsquare + remainder(un[i],bsquare)

un &= u

if u>limit then done = true; exit end if

~~end~~ ~~for~~

un &= u

~~j~~ += 1

end for

start = finish+1

end while

printf(1,"The %,d%s undulating number in base %d is: %,d\n", {n,ord(n),base,un[n]})

@@ Line 59: / Line 59: @@
               <span style="color: #0000FF;">{</span><span style="color: #000000;">base</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">join_by</span><span style="color: #0000FF;">(</span><span style="color: #7060A8;">filter</span><span style="color: #0000FF;">(</span><span style="color: #000000;">u3</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">is_prime</span><span style="color: #0000FF;">),</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">10</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"  "</span><span style="color: #0000FF;">,</span><span style="color: #000000;">fmt</span><span style="color: #0000FF;">:=</span><span style="color: #008000;">"%3d"</span><span style="color: #0000FF;">)})</span>
      <span style="color: #004080;">sequence</span> <span style="color: #000000;">un</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">u3</span> <span style="color: #0000FF;">&</span> <span style="color: #000000;">u4</span>
-     <span style="color: #004080;">integer</span> <span style="color: #000000;">unc</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">un</span><span style="color: #0000FF;">),</span> <span style="color: #000000;">j</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">0</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">done</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">false</span>
+     <span style="color: #004080;">integer</span> <span style="color: #000000;">start</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">done</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">false</span>
      <span style="color: #008080;">while</span> <span style="color: #008080;">not</span> <span style="color: #000000;">done</span> <span style="color: #008080;">do</span>
-        <span style="color: #008080;">for</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">=</span><span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #000000;">unc</span> <span style="color: #008080;">do</span>
+         <span style="color: #004080;">integer</span> <span style="color: #000000;">finish</span> <span style="color: #0000FF;">=</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">un</span><span style="color: #0000FF;">)</span>
-            <span style="color: #004080;">atom</span> <span style="color: #000000;">u</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">un</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span> <span style="color: #0000FF;">*</span> <span style="color: #000000;">unc</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;">bsquare</span> <span style="color: #0000FF;">+</span> <span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">un</span><span style="color: #0000FF;">[</span><span style="color: #000000;">j</span> <span style="color: #0000FF;">*</span> <span style="color: #000000;">unc</span> <span style="color: #0000FF;">+</span> <span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #000000;">bsquare</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;">start</span> <span style="color: #008080;">to</span> <span style="color: #000000;">finish</span> <span style="color: #008080;">do</span>
-            <span style="color: #008080;">if</span> <span style="color: #000000;">u</span><span style="color: #0000FF;">></span><span style="color: #000000;">limit</span> <span style="color: #008080;">then</span> <span style="color: #000000;">done</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">true</span><span style="color: #0000FF;">;</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
+             <span style="color: #004080;">atom</span> <span style="color: #000000;">u</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">un</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;">bsquare</span> <span style="color: #0000FF;">+</span> <span style="color: #7060A8;">remainder</span><span style="color: #0000FF;">(</span><span style="color: #000000;">un</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">],</span><span style="color: #000000;">bsquare</span><span style="color: #0000FF;">)</span>
-            <span style="color: #000000;">un</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">u</span>
+             <span style="color: #008080;">if</span> <span style="color: #000000;">u</span><span style="color: #0000FF;">></span><span style="color: #000000;">limit</span> <span style="color: #008080;">then</span> <span style="color: #000000;">done</span> <span style="color: #0000FF;">=</span> <span style="color: #004600;">true</span><span style="color: #0000FF;">;</span> <span style="color: #008080;">exit</span> <span style="color: #008080;">end</span> <span style="color: #008080;">if</span>
-        <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+             <span style="color: #000000;">un</span> <span style="color: #0000FF;">&=</span> <span style="color: #000000;">u</span>
-        <span style="color: #000000;">j</span> <span style="color: #0000FF;">+=</span> <span style="color: #000000;">1</span>
+         <span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
+         <span style="color: #000000;">start</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">finish</span><span style="color: #0000FF;">+</span><span style="color: #000000;">1</span>
      <span style="color: #008080;">end</span> <span style="color: #008080;">while</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;">"The %,d%s undulating number in base %d is: %,d\n"</span><span style="color: #0000FF;">,</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">n</span><span style="color: #0000FF;">,</span><span style="color: #7060A8;">ord</span><span style="color: #0000FF;">(</span><span style="color: #000000;">n</span><span style="color: #0000FF;">),</span><span style="color: #000000;">base</span><span style="color: #0000FF;">,</span><span style="color: #000000;">un</span><span style="color: #0000FF;">[</span><span style="color: #000000;">n</span><span style="color: #0000FF;">]})</span>