https://wiki.nars2000.org/index.php?action=history&feed=atom&title=Dual
Dual - Revision history
2026-05-08T07:34:17Z
Revision history for this page on the wiki
MediaWiki 1.38.7
https://wiki.nars2000.org/index.php?title=Dual&diff=3872&oldid=prev
WikiSysop at 01:09, 16 February 2024
2024-02-16T01:09:38Z
<p></p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="en">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Older revision</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Revision as of 21:09, 15 February 2024</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l38">Line 38:</td>
<td colspan="2" class="diff-lineno">Line 38:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><br/></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><apll><pre></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div><apll><pre></div></td></tr>
<tr><td class="diff-marker" data-marker="−"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #ffe49c; vertical-align: top; white-space: pre-wrap;"><div>{⍺←⍣0 ⋄ ⍵⍵⍣¯1 (⍵⍵ ⍺)⍺⍺ ⍵⍵ ⍵}</div></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div>{⍺←⍣0 ⋄ ⍵⍵⍣¯1 (⍵⍵ ⍺) ⍺⍺ ⍵⍵ ⍵}</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div></pre></apll></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div></pre></apll></div></td></tr>
</table>
WikiSysop
https://wiki.nars2000.org/index.php?title=Dual&diff=3867&oldid=prev
WikiSysop: Created page with "<table border="1" cellpadding="5" cellspacing="0" rules="none" summary=""> <tr> <td> <table border="0" cellpadding="5" cellspacing="0" summary=""> <tr> <td valign="top"><apll>Z←{L} <i>f</i>⍢<i>g</i> R</apll></td> <td></td> <td></td> <td>applies the function <apll><i>g</i></apll> then <apll><i>f</i></apll> and then <apll><i>g</i>⍣¯1</apll> to or between the arguments.</td> </tr> </table> </td> </tr> <tr> <td><apll>L</ap..."
2024-02-06T22:06:15Z
<p>Created page with "<table border="1" cellpadding="5" cellspacing="0" rules="none" summary=""> <tr> <td> <table border="0" cellpadding="5" cellspacing="0" summary=""> <tr> <td valign="top"><apll>Z←{L} <i>f</i>⍢<i>g</i> R</apll></td> <td></td> <td></td> <td>applies the function <apll><i>g</i></apll> then <apll><i>f</i></apll> and then <apll><i>g</i>⍣¯1</apll> to or between the arguments.</td> </tr> </table> </td> </tr> <tr> <td><apll>L</ap..."</p>
<p><b>New page</b></p><div><table border="1" cellpadding="5" cellspacing="0" rules="none" summary=""><br />
<tr><br />
<td><br />
<table border="0" cellpadding="5" cellspacing="0" summary=""><br />
<tr><br />
<td valign="top"><apll>Z←{L} <i>f</i>⍢<i>g</i> R</apll></td><br />
<td></td><br />
<td></td><br />
<td>applies the function <apll><i>g</i></apll> then <apll><i>f</i></apll> and then <apll><i>g</i>⍣¯1</apll> to or between the arguments.</td><br />
</tr><br />
</table><br />
</td><br />
</tr><br />
<tr><br />
<td><apll>L</apll> is an optional array.</td><br />
</tr><br />
<tr><br />
<td><apll>R</apll> is an array.</td><br />
</tr><br />
<tr><br />
<td><apll><i>f</i></apll> is an arbitrary ambivalent function.</td><br />
</tr><br />
<tr><br />
<td><apll><i>g</i></apll> is an arbitrary monadic function with an inverse.</td><br />
</tr><br />
</table><br />
<br />
==Introduction==<br />
<br />
<p>The concept of the Dual operator was described in Ken Iverson's paper on [https://www.jsoftware.com/papers/opfns.htm Operators and Functions].</p><br />
<br />
<br />
<br />
<br />
==Implementation==<br />
<br />
<p>This operator is implemented via the anonymous function:</p><br />
<br />
<apll><pre><br />
{⍺←⍣0 ⋄ ⍵⍵⍣¯1 (⍵⍵ ⍺)⍺⍺ ⍵⍵ ⍵}<br />
</pre></apll></div>
WikiSysop