08a0eed699
Couple more tweaks to html rendering: a) SubX definitions no longer link redundantly to themselves. This long-standing issue turns out to be tractable to solve for SubX files since the syntax is so simple. b) Fix links to SubX definitions in other directories. I forgot that I have to always generate tags from the directory of the file being linkified. c) Fix link colors. Before we lost all syntax highlighting for functions and Globals. Now they maintain their colors, just add an underline.
245 lines
21 KiB
HTML
245 lines
21 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
|
|
<html>
|
|
<head>
|
|
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
|
|
<title>Mu - 063array.mu</title>
|
|
<meta name="Generator" content="Vim/8.0">
|
|
<meta name="plugin-version" content="vim7.4_v2">
|
|
<meta name="syntax" content="none">
|
|
<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=">
|
|
<meta name="colorscheme" content="minimal-light">
|
|
<style type="text/css">
|
|
<!--
|
|
pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; }
|
|
body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; }
|
|
a { color:inherit; }
|
|
* { font-size:12pt; font-size: 1em; }
|
|
.muControl { color: #804000; }
|
|
.muRecipe { color: #ff8700; }
|
|
.muScenario { color: #00af00; }
|
|
.LineNr { }
|
|
.Delimiter { color: #c000c0; }
|
|
.Constant { color: #008787; }
|
|
.Special { color: #ff6060; }
|
|
.Comment { color: #005faf; }
|
|
-->
|
|
</style>
|
|
|
|
<script type='text/javascript'>
|
|
<!--
|
|
|
|
/* function to open any folds containing a jumped-to line before jumping to it */
|
|
function JumpToLine()
|
|
{
|
|
var lineNum;
|
|
lineNum = window.location.hash;
|
|
lineNum = lineNum.substr(1); /* strip off '#' */
|
|
|
|
if (lineNum.indexOf('L') == -1) {
|
|
lineNum = 'L'+lineNum;
|
|
}
|
|
lineElem = document.getElementById(lineNum);
|
|
/* Always jump to new location even if the line was hidden inside a fold, or
|
|
* we corrected the raw number to a line ID.
|
|
*/
|
|
if (lineElem) {
|
|
lineElem.scrollIntoView(true);
|
|
}
|
|
return true;
|
|
}
|
|
if ('onhashchange' in window) {
|
|
window.onhashchange = JumpToLine;
|
|
}
|
|
|
|
-->
|
|
</script>
|
|
</head>
|
|
<body onload='JumpToLine();'>
|
|
<a href='https://github.com/akkartik/mu/blob/master/063array.mu'>https://github.com/akkartik/mu/blob/master/063array.mu</a>
|
|
<pre id='vimCodeElement'>
|
|
<span id="L1" class="LineNr"> 1 </span><span class="muScenario">scenario</span> array-from-args [
|
|
<span id="L2" class="LineNr"> 2 </span> run [
|
|
<span id="L3" class="LineNr"> 3 </span> <span class="Constant">local-scope</span>
|
|
<span id="L4" class="LineNr"> 4 </span> x:&:@:num <span class="Special"><-</span> <a href='063array.mu.html#L16'>new-array</a><span class="Constant"> 0</span>,<span class="Constant"> 1</span>,<span class="Constant"> 2</span>
|
|
<span id="L5" class="LineNr"> 5 </span> 10:@:num/<span class="Special">raw</span> <span class="Special"><-</span> copy *x
|
|
<span id="L6" class="LineNr"> 6 </span> ]
|
|
<span id="L7" class="LineNr"> 7 </span> memory-should-contain [
|
|
<span id="L8" class="LineNr"> 8 </span> <span class="Constant"> 10</span> <span class="Special"><-</span><span class="Constant"> 3</span> <span class="Comment"># array length</span>
|
|
<span id="L9" class="LineNr"> 9 </span> <span class="Constant"> 11</span> <span class="Special"><-</span><span class="Constant"> 0</span>
|
|
<span id="L10" class="LineNr"> 10 </span> <span class="Constant"> 12</span> <span class="Special"><-</span><span class="Constant"> 1</span>
|
|
<span id="L11" class="LineNr"> 11 </span> <span class="Constant"> 13</span> <span class="Special"><-</span><span class="Constant"> 2</span>
|
|
<span id="L12" class="LineNr"> 12 </span> ]
|
|
<span id="L13" class="LineNr"> 13 </span>]
|
|
<span id="L14" class="LineNr"> 14 </span>
|
|
<span id="L15" class="LineNr"> 15 </span><span class="Comment"># create an array out of a list of args</span>
|
|
<span id="L16" class="LineNr"> 16 </span><span class="muRecipe">def</span> <a href='063array.mu.html#L16'>new-array</a><span class="muRecipe"> -> </span>result:&:@:_elem [
|
|
<span id="L17" class="LineNr"> 17 </span> <span class="Constant">local-scope</span>
|
|
<span id="L18" class="LineNr"> 18 </span> <a href='075channel.mu.html#L391'>capacity</a>:num <span class="Special"><-</span> copy<span class="Constant"> 0</span>
|
|
<span id="L19" class="LineNr"> 19 </span> <span class="Delimiter">{</span>
|
|
<span id="L20" class="LineNr"> 20 </span> <span class="Comment"># while read curr-value</span>
|
|
<span id="L21" class="LineNr"> 21 </span> curr-value:_elem, exists?:bool <span class="Special"><-</span> <span class="Constant">next-input</span>
|
|
<span id="L22" class="LineNr"> 22 </span> <span class="muControl">break-unless</span> exists?
|
|
<span id="L23" class="LineNr"> 23 </span> <a href='075channel.mu.html#L391'>capacity</a> <span class="Special"><-</span> add <a href='075channel.mu.html#L391'>capacity</a>,<span class="Constant"> 1</span>
|
|
<span id="L24" class="LineNr"> 24 </span> <span class="muControl"> loop</span>
|
|
<span id="L25" class="LineNr"> 25 </span> <span class="Delimiter">}</span>
|
|
<span id="L26" class="LineNr"> 26 </span> result <span class="Special"><-</span> new <span class="Constant">_elem:type</span>, <a href='075channel.mu.html#L391'>capacity</a>
|
|
<span id="L27" class="LineNr"> 27 </span> <span class="Constant">rewind-inputs</span>
|
|
<span id="L28" class="LineNr"> 28 </span> i:num <span class="Special"><-</span> copy<span class="Constant"> 0</span>
|
|
<span id="L29" class="LineNr"> 29 </span> <span class="Delimiter">{</span>
|
|
<span id="L30" class="LineNr"> 30 </span> <span class="Comment"># while read curr-value</span>
|
|
<span id="L31" class="LineNr"> 31 </span> done?:bool <span class="Special"><-</span> greater-or-equal i, <a href='075channel.mu.html#L391'>capacity</a>
|
|
<span id="L32" class="LineNr"> 32 </span> <span class="muControl">break-if</span> done?
|
|
<span id="L33" class="LineNr"> 33 </span> curr-value:_elem, exists?:bool <span class="Special"><-</span> <span class="Constant">next-input</span>
|
|
<span id="L34" class="LineNr"> 34 </span> assert exists?, <span class="Constant">[error in rewinding inputs to new-array]</span>
|
|
<span id="L35" class="LineNr"> 35 </span> *result <span class="Special"><-</span> put-index *result, i, curr-value
|
|
<span id="L36" class="LineNr"> 36 </span> i <span class="Special"><-</span> add i,<span class="Constant"> 1</span>
|
|
<span id="L37" class="LineNr"> 37 </span> <span class="muControl"> loop</span>
|
|
<span id="L38" class="LineNr"> 38 </span> <span class="Delimiter">}</span>
|
|
<span id="L39" class="LineNr"> 39 </span> <span class="muControl"> return</span> result
|
|
<span id="L40" class="LineNr"> 40 </span>]
|
|
<span id="L41" class="LineNr"> 41 </span>
|
|
<span id="L42" class="LineNr"> 42 </span><span class="Comment"># fill an existing array with a set of numbers</span>
|
|
<span id="L43" class="LineNr"> 43 </span><span class="Comment"># (contributed by Caleb Couch)</span>
|
|
<span id="L44" class="LineNr"> 44 </span><span class="muRecipe">def</span> <a href='063array.mu.html#L44'>fill</a> array:&:@:num<span class="muRecipe"> -> </span>array:&:@:num [
|
|
<span id="L45" class="LineNr"> 45 </span> <span class="Constant">local-scope</span>
|
|
<span id="L46" class="LineNr"> 46 </span> <span class="Constant">load-inputs</span>
|
|
<span id="L47" class="LineNr"> 47 </span> loopn:num <span class="Special"><-</span> copy<span class="Constant"> 0</span>
|
|
<span id="L48" class="LineNr"> 48 </span> length:num <span class="Special"><-</span> length *array
|
|
<span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">{</span>
|
|
<span id="L50" class="LineNr"> 50 </span> length?:bool <span class="Special"><-</span> equal loopn, length
|
|
<span id="L51" class="LineNr"> 51 </span> <span class="muControl">break-if</span> length?
|
|
<span id="L52" class="LineNr"> 52 </span> object:num, arg-received?:bool <span class="Special"><-</span> <span class="Constant">next-input</span>
|
|
<span id="L53" class="LineNr"> 53 </span> <span class="muControl">break-unless</span> arg-received?
|
|
<span id="L54" class="LineNr"> 54 </span> *array <span class="Special"><-</span> put-index *array, loopn, object
|
|
<span id="L55" class="LineNr"> 55 </span> loopn <span class="Special"><-</span> add loopn,<span class="Constant"> 1</span>
|
|
<span id="L56" class="LineNr"> 56 </span> <span class="muControl"> loop</span>
|
|
<span id="L57" class="LineNr"> 57 </span> <span class="Delimiter">}</span>
|
|
<span id="L58" class="LineNr"> 58 </span>]
|
|
<span id="L59" class="LineNr"> 59 </span>
|
|
<span id="L60" class="LineNr"> 60 </span><span class="muScenario">scenario</span> fill-on-an-empty-array [
|
|
<span id="L61" class="LineNr"> 61 </span> <span class="Constant">local-scope</span>
|
|
<span id="L62" class="LineNr"> 62 </span> array:&:@:num <span class="Special"><-</span> new <span class="Constant">number:type</span>,<span class="Constant"> 3</span>
|
|
<span id="L63" class="LineNr"> 63 </span> run [
|
|
<span id="L64" class="LineNr"> 64 </span> array <span class="Special"><-</span> <a href='063array.mu.html#L44'>fill</a> array,<span class="Constant"> 1 2 3</span>
|
|
<span id="L65" class="LineNr"> 65 </span> 10:@:num/<span class="Special">raw</span> <span class="Special"><-</span> copy *array
|
|
<span id="L66" class="LineNr"> 66 </span> ]
|
|
<span id="L67" class="LineNr"> 67 </span> memory-should-contain [
|
|
<span id="L68" class="LineNr"> 68 </span> <span class="Constant"> 10</span> <span class="Special"><-</span><span class="Constant"> 3</span>
|
|
<span id="L69" class="LineNr"> 69 </span> <span class="Constant"> 11</span> <span class="Special"><-</span><span class="Constant"> 1</span>
|
|
<span id="L70" class="LineNr"> 70 </span> <span class="Constant"> 12</span> <span class="Special"><-</span><span class="Constant"> 2</span>
|
|
<span id="L71" class="LineNr"> 71 </span> <span class="Constant"> 13</span> <span class="Special"><-</span><span class="Constant"> 3</span>
|
|
<span id="L72" class="LineNr"> 72 </span> ]
|
|
<span id="L73" class="LineNr"> 73 </span>]
|
|
<span id="L74" class="LineNr"> 74 </span>
|
|
<span id="L75" class="LineNr"> 75 </span><span class="muScenario">scenario</span> fill-overwrites-existing-values [
|
|
<span id="L76" class="LineNr"> 76 </span> <span class="Constant">local-scope</span>
|
|
<span id="L77" class="LineNr"> 77 </span> array:&:@:num <span class="Special"><-</span> new <span class="Constant">number:type</span>,<span class="Constant"> 3</span>
|
|
<span id="L78" class="LineNr"> 78 </span> *array <span class="Special"><-</span> put-index *array,<span class="Constant"> 0</span>,<span class="Constant"> 4</span>
|
|
<span id="L79" class="LineNr"> 79 </span> run [
|
|
<span id="L80" class="LineNr"> 80 </span> array <span class="Special"><-</span> <a href='063array.mu.html#L44'>fill</a> array,<span class="Constant"> 1 2 3</span>
|
|
<span id="L81" class="LineNr"> 81 </span> 10:@:num/<span class="Special">raw</span> <span class="Special"><-</span> copy *array
|
|
<span id="L82" class="LineNr"> 82 </span> ]
|
|
<span id="L83" class="LineNr"> 83 </span> memory-should-contain [
|
|
<span id="L84" class="LineNr"> 84 </span> <span class="Constant"> 10</span> <span class="Special"><-</span><span class="Constant"> 3</span>
|
|
<span id="L85" class="LineNr"> 85 </span> <span class="Constant"> 11</span> <span class="Special"><-</span><span class="Constant"> 1</span>
|
|
<span id="L86" class="LineNr"> 86 </span> <span class="Constant"> 12</span> <span class="Special"><-</span><span class="Constant"> 2</span>
|
|
<span id="L87" class="LineNr"> 87 </span> <span class="Constant"> 13</span> <span class="Special"><-</span><span class="Constant"> 3</span>
|
|
<span id="L88" class="LineNr"> 88 </span> ]
|
|
<span id="L89" class="LineNr"> 89 </span>]
|
|
<span id="L90" class="LineNr"> 90 </span>
|
|
<span id="L91" class="LineNr"> 91 </span><span class="muScenario">scenario</span> fill-exits-gracefully-when-given-no-inputs [
|
|
<span id="L92" class="LineNr"> 92 </span> <span class="Constant">local-scope</span>
|
|
<span id="L93" class="LineNr"> 93 </span> array:&:@:num <span class="Special"><-</span> new <span class="Constant">number:type</span>,<span class="Constant"> 3</span>
|
|
<span id="L94" class="LineNr"> 94 </span> run [
|
|
<span id="L95" class="LineNr"> 95 </span> array <span class="Special"><-</span> <a href='063array.mu.html#L44'>fill</a> array
|
|
<span id="L96" class="LineNr"> 96 </span> 10:@:num/<span class="Special">raw</span> <span class="Special"><-</span> copy *array
|
|
<span id="L97" class="LineNr"> 97 </span> ]
|
|
<span id="L98" class="LineNr"> 98 </span> memory-should-contain [
|
|
<span id="L99" class="LineNr"> 99 </span> <span class="Constant"> 10</span> <span class="Special"><-</span><span class="Constant"> 3</span>
|
|
<span id="L100" class="LineNr">100 </span> <span class="Constant"> 11</span> <span class="Special"><-</span><span class="Constant"> 0</span>
|
|
<span id="L101" class="LineNr">101 </span> <span class="Constant"> 12</span> <span class="Special"><-</span><span class="Constant"> 0</span>
|
|
<span id="L102" class="LineNr">102 </span> <span class="Constant"> 13</span> <span class="Special"><-</span><span class="Constant"> 0</span>
|
|
<span id="L103" class="LineNr">103 </span> ]
|
|
<span id="L104" class="LineNr">104 </span>]
|
|
<span id="L105" class="LineNr">105 </span>
|
|
<span id="L106" class="LineNr">106 </span><span class="Comment"># swap two elements of an array</span>
|
|
<span id="L107" class="LineNr">107 </span><span class="Comment"># (contributed by Caleb Couch)</span>
|
|
<span id="L108" class="LineNr">108 </span><span class="muRecipe">def</span> <a href='063array.mu.html#L108'>swap</a> array:&:@:num, index1:num, index2:num<span class="muRecipe"> -> </span>array:&:@:num [
|
|
<span id="L109" class="LineNr">109 </span> <span class="Constant">local-scope</span>
|
|
<span id="L110" class="LineNr">110 </span> <span class="Constant">load-inputs</span>
|
|
<span id="L111" class="LineNr">111 </span> object1:num <span class="Special"><-</span> index *array, index1
|
|
<span id="L112" class="LineNr">112 </span> object2:num <span class="Special"><-</span> index *array, index2
|
|
<span id="L113" class="LineNr">113 </span> *array <span class="Special"><-</span> put-index *array, index1, object2
|
|
<span id="L114" class="LineNr">114 </span> *array <span class="Special"><-</span> put-index *array, index2, object1
|
|
<span id="L115" class="LineNr">115 </span>]
|
|
<span id="L116" class="LineNr">116 </span>
|
|
<span id="L117" class="LineNr">117 </span><span class="muScenario">scenario</span> swap-works [
|
|
<span id="L118" class="LineNr">118 </span> <span class="Constant">local-scope</span>
|
|
<span id="L119" class="LineNr">119 </span> array:&:@:num <span class="Special"><-</span> new <span class="Constant">number:type</span>,<span class="Constant"> 4</span>
|
|
<span id="L120" class="LineNr">120 </span> array <span class="Special"><-</span> <a href='063array.mu.html#L44'>fill</a> array,<span class="Constant"> 4 3 2 1</span>
|
|
<span id="L121" class="LineNr">121 </span> run [
|
|
<span id="L122" class="LineNr">122 </span> array <span class="Special"><-</span> <a href='063array.mu.html#L108'>swap</a> array,<span class="Constant"> 0</span>,<span class="Constant"> 2</span>
|
|
<span id="L123" class="LineNr">123 </span> 10:num/<span class="Special">raw</span> <span class="Special"><-</span> index *array,<span class="Constant"> 0</span>
|
|
<span id="L124" class="LineNr">124 </span> 11:num/<span class="Special">raw</span> <span class="Special"><-</span> index *array,<span class="Constant"> 2</span>
|
|
<span id="L125" class="LineNr">125 </span> ]
|
|
<span id="L126" class="LineNr">126 </span> memory-should-contain [
|
|
<span id="L127" class="LineNr">127 </span> <span class="Constant"> 10</span> <span class="Special"><-</span><span class="Constant"> 2</span>
|
|
<span id="L128" class="LineNr">128 </span> <span class="Constant"> 11</span> <span class="Special"><-</span><span class="Constant"> 4</span>
|
|
<span id="L129" class="LineNr">129 </span> ]
|
|
<span id="L130" class="LineNr">130 </span>]
|
|
<span id="L131" class="LineNr">131 </span>
|
|
<span id="L132" class="LineNr">132 </span><span class="Comment"># reverse the elements of an array</span>
|
|
<span id="L133" class="LineNr">133 </span><span class="Comment"># (contributed by Caleb Couch)</span>
|
|
<span id="L134" class="LineNr">134 </span><span class="muRecipe">def</span> reverse array:&:@:_elem<span class="muRecipe"> -> </span>array:&:@:_elem [
|
|
<span id="L135" class="LineNr">135 </span> <span class="Constant">local-scope</span>
|
|
<span id="L136" class="LineNr">136 </span> <span class="Constant">load-inputs</span>
|
|
<span id="L137" class="LineNr">137 </span> start:num <span class="Special"><-</span> copy<span class="Constant"> 0</span>
|
|
<span id="L138" class="LineNr">138 </span> length:num <span class="Special"><-</span> length *array
|
|
<span id="L139" class="LineNr">139 </span> end:num <span class="Special"><-</span> subtract length,<span class="Constant"> 1</span>
|
|
<span id="L140" class="LineNr">140 </span> <span class="Delimiter">{</span>
|
|
<span id="L141" class="LineNr">141 </span> done?:bool <span class="Special"><-</span> greater-or-equal start, end
|
|
<span id="L142" class="LineNr">142 </span> <span class="muControl">break-if</span> done?
|
|
<span id="L143" class="LineNr">143 </span> array <span class="Special"><-</span> <a href='063array.mu.html#L108'>swap</a> array, start, end
|
|
<span id="L144" class="LineNr">144 </span> start <span class="Special"><-</span> add start,<span class="Constant"> 1</span>
|
|
<span id="L145" class="LineNr">145 </span> end <span class="Special"><-</span> subtract end,<span class="Constant"> 1</span>
|
|
<span id="L146" class="LineNr">146 </span> <span class="muControl"> loop</span>
|
|
<span id="L147" class="LineNr">147 </span> <span class="Delimiter">}</span>
|
|
<span id="L148" class="LineNr">148 </span>]
|
|
<span id="L149" class="LineNr">149 </span>
|
|
<span id="L150" class="LineNr">150 </span><span class="muScenario">scenario</span> reverse-array-odd-length [
|
|
<span id="L151" class="LineNr">151 </span> <span class="Constant">local-scope</span>
|
|
<span id="L152" class="LineNr">152 </span> array:&:@:num <span class="Special"><-</span> new <span class="Constant">number:type</span>,<span class="Constant"> 3</span>
|
|
<span id="L153" class="LineNr">153 </span> array <span class="Special"><-</span> <a href='063array.mu.html#L44'>fill</a> array,<span class="Constant"> 3 2 1</span>
|
|
<span id="L154" class="LineNr">154 </span> run [
|
|
<span id="L155" class="LineNr">155 </span> array <span class="Special"><-</span> reverse array
|
|
<span id="L156" class="LineNr">156 </span> 10:@:num/<span class="Special">raw</span> <span class="Special"><-</span> copy *array
|
|
<span id="L157" class="LineNr">157 </span> ]
|
|
<span id="L158" class="LineNr">158 </span> memory-should-contain [
|
|
<span id="L159" class="LineNr">159 </span> <span class="Constant"> 10</span> <span class="Special"><-</span><span class="Constant"> 3</span>
|
|
<span id="L160" class="LineNr">160 </span> <span class="Constant"> 11</span> <span class="Special"><-</span><span class="Constant"> 1</span>
|
|
<span id="L161" class="LineNr">161 </span> <span class="Constant"> 12</span> <span class="Special"><-</span><span class="Constant"> 2</span>
|
|
<span id="L162" class="LineNr">162 </span> <span class="Constant"> 13</span> <span class="Special"><-</span><span class="Constant"> 3</span>
|
|
<span id="L163" class="LineNr">163 </span> ]
|
|
<span id="L164" class="LineNr">164 </span>]
|
|
<span id="L165" class="LineNr">165 </span>
|
|
<span id="L166" class="LineNr">166 </span><span class="muScenario">scenario</span> reverse-array-even-length [
|
|
<span id="L167" class="LineNr">167 </span> <span class="Constant">local-scope</span>
|
|
<span id="L168" class="LineNr">168 </span> array:&:@:num <span class="Special"><-</span> new <span class="Constant">number:type</span>,<span class="Constant"> 4</span>
|
|
<span id="L169" class="LineNr">169 </span> array <span class="Special"><-</span> <a href='063array.mu.html#L44'>fill</a> array,<span class="Constant"> 4 3 2 1</span>
|
|
<span id="L170" class="LineNr">170 </span> run [
|
|
<span id="L171" class="LineNr">171 </span> array <span class="Special"><-</span> reverse array
|
|
<span id="L172" class="LineNr">172 </span> 10:@:num/<span class="Special">raw</span> <span class="Special"><-</span> copy *array
|
|
<span id="L173" class="LineNr">173 </span> ]
|
|
<span id="L174" class="LineNr">174 </span> memory-should-contain [
|
|
<span id="L175" class="LineNr">175 </span> <span class="Constant"> 10</span> <span class="Special"><-</span><span class="Constant"> 4</span>
|
|
<span id="L176" class="LineNr">176 </span> <span class="Constant"> 11</span> <span class="Special"><-</span><span class="Constant"> 1</span>
|
|
<span id="L177" class="LineNr">177 </span> <span class="Constant"> 12</span> <span class="Special"><-</span><span class="Constant"> 2</span>
|
|
<span id="L178" class="LineNr">178 </span> <span class="Constant"> 13</span> <span class="Special"><-</span><span class="Constant"> 3</span>
|
|
<span id="L179" class="LineNr">179 </span> <span class="Constant"> 14</span> <span class="Special"><-</span><span class="Constant"> 4</span>
|
|
<span id="L180" class="LineNr">180 </span> ]
|
|
<span id="L181" class="LineNr">181 </span>]
|
|
</pre>
|
|
</body>
|
|
</html>
|
|
<!-- vim: set foldmethod=manual : -->
|