3420

2 files changed, 176 insertions, 7 deletions

diff --git a/html/063array.mu.html b/html/063array.mu.html
index 9b32f88d..48d3301a 100644
--- a/html/063array.mu.html
+++ b/html/063array.mu.html
@@ -34,8 +34,8 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color
 <span class="muScenario">scenario</span> array-from-args [
   run [
     <span class="Constant">local-scope</span>
-    x:text<span class="Special"> &lt;- </span>new-array <span class="Constant">0</span>, <span class="Constant">1</span>, <span class="Constant">2</span>
-    <span class="Constant">10</span>:@:char/<span class="Special">raw &lt;- </span>copy *x
+    x:&amp;:@:num<span class="Special"> &lt;- </span>new-array <span class="Constant">0</span>, <span class="Constant">1</span>, <span class="Constant">2</span>
+    <span class="Constant">10</span>:@:num/<span class="Special">raw &lt;- </span>copy *x
   ]
   memory-should-contain [
     <span class="Constant">10</span><span class="Special"> &lt;- </span><span class="Constant">3</span>  <span class="Comment"># array length</span>
@@ -45,25 +45,25 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color
   ]
 ]
 
-<span class="Comment"># create an array out of a list of scalar args</span>
-<span class="muRecipe">def</span> new-array<span class="muRecipe"> -&gt; </span>result:text [
+<span class="Comment"># create an array out of a list of args</span>
+<span class="muRecipe">def</span> new-array<span class="muRecipe"> -&gt; </span>result:&amp;:@:_elem [
   <span class="Constant">local-scope</span>
   capacity:num<span class="Special"> &lt;- </span>copy <span class="Constant">0</span>
   <span class="Delimiter">{</span>
     <span class="Comment"># while read curr-value</span>
-    curr-value:char, exists?:bool<span class="Special"> &lt;- </span><span class="Constant">next-ingredient</span>
+    curr-value:_elem, exists?:bool<span class="Special"> &lt;- </span><span class="Constant">next-ingredient</span>
     <span class="muControl">break-unless</span> exists?
     capacity<span class="Special"> &lt;- </span>add capacity, <span class="Constant">1</span>
     <span class="muControl">loop</span>
   <span class="Delimiter">}</span>
-  result<span class="Special"> &lt;- </span>new <span class="Constant">character:type</span>, capacity
+  result<span class="Special"> &lt;- </span>new <span class="Constant">_elem:type</span>, capacity
   <span class="Constant">rewind-ingredients</span>
   i:num<span class="Special"> &lt;- </span>copy <span class="Constant">0</span>
   <span class="Delimiter">{</span>
     <span class="Comment"># while read curr-value</span>
     done?:bool<span class="Special"> &lt;- </span>greater-or-equal i, capacity
     <span class="muControl">break-if</span> done?
-    curr-value:char, exists?:bool<span class="Special"> &lt;- </span><span class="Constant">next-ingredient</span>
+    curr-value:_elem, exists?:bool<span class="Special"> &lt;- </span><span class="Constant">next-ingredient</span>
     assert exists?, <span class="Constant">[error in rewinding ingredients to new-array]</span>
     *result<span class="Special"> &lt;- </span>put-index *result, i, curr-value
     i<span class="Special"> &lt;- </span>add i, <span class="Constant">1</span>
@@ -71,6 +71,147 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color
   <span class="Delimiter">}</span>
   <span class="muControl">return</span> result
 ]
+
+<span class="Comment"># fill an existing array with a set of numbers</span>
+<span class="Comment"># (contributed by Caleb Couch)</span>
+<span class="muRecipe">recipe</span> fill array:&amp;:@:num<span class="muRecipe"> -&gt; </span>array:&amp;:@:num [
+  <span class="Constant">local-scope</span>
+  <span class="Constant">load-ingredients</span>
+  loopn:num<span class="Special"> &lt;- </span>copy <span class="Constant">0</span>
+  length:num<span class="Special"> &lt;- </span>length *array
+  <span class="Delimiter">{</span>
+    length?:bool<span class="Special"> &lt;- </span>equal loopn, length
+    <span class="muControl">break-if</span> length?
+    object:num, arg-received?:bool<span class="Special"> &lt;- </span><span class="Constant">next-ingredient</span>
+    <span class="muControl">break-unless</span> arg-received?
+    *array<span class="Special"> &lt;- </span>put-index *array, loopn, object
+    loopn<span class="Special"> &lt;- </span>add loopn, <span class="Constant">1</span>
+    <span class="muControl">loop</span>
+  <span class="Delimiter">}</span>
+]
+
+<span class="muScenario">scenario</span> fill-on-an-empty-array [
+  run [
+    <span class="Constant">local-scope</span>
+    array:&amp;:@:num<span class="Special"> &lt;- </span>new <span class="Constant">number:type</span>, <span class="Constant">3</span>
+    array<span class="Special"> &lt;- </span>fill array, <span class="Constant">1</span> <span class="Constant">2</span> <span class="Constant">3</span>
+    <span class="Constant">10</span>:@:num/<span class="Special">raw &lt;- </span>copy *array
+  ]
+  memory-should-contain [
+    <span class="Constant">10</span><span class="Special"> &lt;- </span><span class="Constant">3</span>
+    <span class="Constant">11</span><span class="Special"> &lt;- </span><span class="Constant">1</span>
+    <span class="Constant">12</span><span class="Special"> &lt;- </span><span class="Constant">2</span>
+    <span class="Constant">13</span><span class="Special"> &lt;- </span><span class="Constant">3</span>
+  ]
+]
+
+<span class="muScenario">scenario</span> fill-overwrites-existing-values [
+  run [
+    <span class="Constant">local-scope</span>
+    array:&amp;:@:num<span class="Special"> &lt;- </span>new <span class="Constant">number:type</span>, <span class="Constant">3</span>
+    *array<span class="Special"> &lt;- </span>put-index *array, <span class="Constant">0</span>, <span class="Constant">4</span>
+    array<span class="Special"> &lt;- </span>fill array, <span class="Constant">1</span> <span class="Constant">2</span> <span class="Constant">3</span>
+    <span class="Constant">10</span>:@:num/<span class="Special">raw &lt;- </span>copy *array
+  ]
+  memory-should-contain [
+    <span class="Constant">10</span><span class="Special"> &lt;- </span><span class="Constant">3</span>
+    <span class="Constant">11</span><span class="Special"> &lt;- </span><span class="Constant">1</span>
+    <span class="Constant">12</span><span class="Special"> &lt;- </span><span class="Constant">2</span>
+    <span class="Constant">13</span><span class="Special"> &lt;- </span><span class="Constant">3</span>
+  ]
+]
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-11-23 07:20:20 +0000
 


s="Special"> &lt;- </span>new <span class="Constant">number:type</span>, <span class="Constant">3</span>
+    array<span class="Special"> &lt;- </span>fill array
+    <span class="Constant">10</span>:@:num/<span class="Special">raw &lt;- </span>copy *array
+  ]
+  memory-should-contain [
+    <span class="Constant">10</span><span class="Special"> &lt;- </span><span class="Constant">3</span>
+    <span class="Constant">11</span><span class="Special"> &lt;- </span><span class="Constant">0</span>
+    <span class="Constant">12</span><span class="Special"> &lt;- </span><span class="Constant">0</span>
+    <span class="Constant">13</span><span class="Special"> &lt;- </span><span class="Constant">0</span>
+  ]
+]
+
+<span class="Comment"># swap two elements of an array</span>
+<span class="Comment"># (contributed by Caleb Couch)</span>
+<span class="muRecipe">recipe</span> swap array:&amp;:@:num, index1:num, index2:num<span class="muRecipe"> -&gt; </span>array:&amp;:@:num [
+  <span class="Constant">local-scope</span>
+  <span class="Constant">load-ingredients</span>
+  object1:num<span class="Special"> &lt;- </span>index *array, index1
+  object2:num<span class="Special"> &lt;- </span>index *array, index2
+  *array<span class="Special"> &lt;- </span>put-index *array, index1, object2
+  *array<span class="Special"> &lt;- </span>put-index *array, index2, object1
+]
+
+<span class="muScenario">scenario</span> swap-works [
+  run [
+    <span class="Constant">local-scope</span>
+    array:&amp;:@:num<span class="Special"> &lt;- </span>new <span class="Constant">number:type</span>, <span class="Constant">4</span>
+    array<span class="Special"> &lt;- </span>fill array, <span class="Constant">4</span> <span class="Constant">3</span> <span class="Constant">2</span> <span class="Constant">1</span>
+    array<span class="Special"> &lt;- </span>swap array, <span class="Constant">0</span>, <span class="Constant">2</span>
+    <span class="Constant">10</span>:num/<span class="Special">raw &lt;- </span>index *array, <span class="Constant">0</span>
+    <span class="Constant">11</span>:num/<span class="Special">raw &lt;- </span>index *array, <span class="Constant">2</span>
+  ]
+  memory-should-contain [
+    <span class="Constant">10</span><span class="Special"> &lt;- </span><span class="Constant">2</span>
+    <span class="Constant">11</span><span class="Special"> &lt;- </span><span class="Constant">4</span>
+  ]
+]
+
+<span class="Comment"># reverse the elements of an array</span>
+<span class="Comment"># (contributed by Caleb Couch)</span>
+<span class="muRecipe">def</span> reverse array:&amp;:@:_elem<span class="muRecipe"> -&gt; </span>array:&amp;:@:_elem [
+  <span class="Constant">local-scope</span>
+  <span class="Constant">load-ingredients</span>
+  start:num<span class="Special"> &lt;- </span>copy <span class="Constant">0</span>
+  length:num<span class="Special"> &lt;- </span>length *array
+  end:num<span class="Special"> &lt;- </span>subtract length, <span class="Constant">1</span>
+  <span class="Delimiter">{</span>
+    done?:bool<span class="Special"> &lt;- </span>greater-or-equal start, end
+    <span class="muControl">break-if</span> done?
+    array<span class="Special"> &lt;- </span>swap array, start, end
+    start<span class="Special"> &lt;- </span>add start, <span class="Constant">1</span>
+    end<span class="Special"> &lt;- </span>subtract end, <span class="Constant">1</span>
+    <span class="muControl">loop</span>
+  <span class="Delimiter">}</span>
+]
+
+<span class="muScenario">scenario</span> reverse-array-odd-length [
+  run [
+    <span class="Constant">local-scope</span>
+    array:&amp;:@:num<span class="Special"> &lt;- </span>new <span class="Constant">number:type</span>, <span class="Constant">3</span>
+    array<span class="Special"> &lt;- </span>fill array, <span class="Constant">3</span> <span class="Constant">2</span> <span class="Constant">1</span>
+    array<span class="Special"> &lt;- </span>reverse array
+    <span class="Constant">10</span>:@:num/<span class="Special">raw &lt;- </span>copy *array
+  ]
+  memory-should-contain [
+    <span class="Constant">10</span><span class="Special"> &lt;- </span><span class="Constant">3</span>
+    <span class="Constant">11</span><span class="Special"> &lt;- </span><span class="Constant">1</span>
+    <span class="Constant">12</span><span class="Special"> &lt;- </span><span class="Constant">2</span>
+    <span class="Constant">13</span><span class="Special"> &lt;- </span><span class="Constant">3</span>
+  ]
+]
+
+<span class="muScenario">scenario</span> reverse-array-even-length [
+  run [
+    <span class="Constant">local-scope</span>
+    array:&amp;:@:num<span class="Special"> &lt;- </span>new <span class="Constant">number:type</span>, <span class="Constant">4</span>
+    array<span class="Special"> &lt;- </span>fill array, <span class="Constant">4</span> <span class="Constant">3</span> <span class="Constant">2</span> <span class="Constant">1</span>
+    array<span class="Special"> &lt;- </span>reverse array
+    <span class="Constant">10</span>:@:num/<span class="Special">raw &lt;- </span>copy *array
+  ]
+  memory-should-contain [
+    <span class="Constant">10</span><span class="Special"> &lt;- </span><span class="Constant">4</span>
+    <span class="Constant">11</span><span class="Special"> &lt;- </span><span class="Constant">1</span>
+    <span class="Constant">12</span><span class="Special"> &lt;- </span><span class="Constant">2</span>
+    <span class="Constant">13</span><span class="Special"> &lt;- </span><span class="Constant">3</span>
+    <span class="Constant">14</span><span class="Special"> &lt;- </span><span class="Constant">4</span>
+  ]
+]
 </pre>
 </body>
 </html>
diff --git a/html/064list.mu.html b/html/064list.mu.html
index b9e0e18d..236bf533 100644
--- a/html/064list.mu.html
+++ b/html/064list.mu.html
@@ -292,6 +292,34 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color
   ]
 ]
 
+<span class="Comment"># reverse the elements of a list</span>
+<span class="Comment"># (contributed by Caleb Couch)</span>
+<span class="muRecipe">def</span> reverse list:&amp;:list:_elem temp:&amp;:list:_elem<span class="muRecipe"> -&gt; </span>result:&amp;:list:_elem [
+  <span class="Constant">local-scope</span>
+  <span class="Constant">load-ingredients</span>
+  <span class="muControl">reply-unless</span> list, temp
+  object:_elem<span class="Special"> &lt;- </span>first, list
+  list<span class="Special"> &lt;- </span>rest list
+  temp<span class="Special"> &lt;- </span>push object, temp
+  result<span class="Special"> &lt;- </span>reverse list, temp
+]
+
+<span class="muScenario">scenario</span> reverse-list [
+  run [
+    <span class="Constant">local-scope</span>
+    list:&amp;:list:number<span class="Special"> &lt;- </span>push <span class="Constant">1</span>, <span class="Constant">0</span>
+    list<span class="Special"> &lt;- </span>push <span class="Constant">2</span>, list
+    list<span class="Special"> &lt;- </span>push <span class="Constant">3</span>, list
+    stash <span class="Constant">[list:]</span>, list
+    list<span class="Special"> &lt;- </span>reverse list, <span class="Constant">0</span>
+    stash <span class="Constant">[reversed:]</span>, list
+  ]
+  trace-should-contain [
+    app: list: <span class="Constant">3</span><span class="muRecipe"> -&gt; </span><span class="Constant">2</span><span class="muRecipe"> -&gt; </span><span class="Constant">1</span>
+    app: reversed: <span class="Constant">1</span><span class="muRecipe"> -&gt; </span><span class="Constant">2</span><span class="muRecipe"> -&gt; </span><span class="Constant">3</span>
+  ]
+]
+
 <span class="muRecipe">def</span> to-text in:&amp;:list:_elem<span class="muRecipe"> -&gt; </span>result:text [
   <span class="Constant">local-scope</span>
   <span class="Constant">load-ingredients</span>