Function composition: Difference between revisions

From APL Wiki
Jump to navigation Jump to search
m (Text replacement - "<source" to "<syntaxhighlight")
(add comb log eqv.)
 
Line 31: Line 31:
=== Summary of rules ===
=== Summary of rules ===


The above compositions can be summarised as follows:
The above compositions can be summarised as follows, including their [[wikipedia:combinatory logic|combinatory logic]] equivalents:


<syntaxhighlight lang=apl inline>  (f⍛g  ) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>(  f ⍵) g      ⍵ </syntaxhighlight><br>
{| class=wikitable
<syntaxhighlight lang=apl inline>⍺ (f⍛g  ) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>(  f ⍺) g      ⍵ </syntaxhighlight><br>
! Tacit form !! Explicit form !! Function Abstraction !! Symbol !! Bird Name
<syntaxhighlight lang=apl inline>  (  g∘h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>        g (  h ⍵)</syntaxhighlight><br>
|-
<syntaxhighlight lang=apl inline>⍺ (  g∘h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>   ⍺    g (  h ⍵)</syntaxhighlight><br>
| <syntaxhighlight lang=apl inline>  (f⍛g  ) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>(  f ⍵) g      ⍵ </syntaxhighlight> || λabc.a(bc)c || style="text-align:center" | Σ || Violet Starling
 
|-
<syntaxhighlight lang=apl inline>  (  g⍤h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>        g (  h ⍵)</syntaxhighlight><br>
| <syntaxhighlight lang=apl inline>⍺ (f⍛g  ) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>(  f ⍺) g      ⍵ </syntaxhighlight> ||  λabcd.a(bc)d || style="text-align:center" | Δ || Zebra Dove
<syntaxhighlight lang=apl inline>⍺ (  g⍤h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>        g (⍺ h ⍵)</syntaxhighlight><br>
|-
<syntaxhighlight lang=apl inline>  (  g⍥h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>        g (  h ⍵)</syntaxhighlight><br>
| <syntaxhighlight lang=apl inline>  (  g∘h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>        g (  h ⍵)</syntaxhighlight> || λabc.a(bc) || style="text-align:center" | B || Bluebird
<syntaxhighlight lang=apl inline>⍺ (  g⍥h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>(  h ⍺) g (  h ⍵)</syntaxhighlight><br>
|-
 
| <syntaxhighlight lang=apl inline>⍺ (  g∘h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>   ⍺    g (  h ⍵)</syntaxhighlight> || λabcd.ab(cd) || style="text-align:center" | D ||| Dove
<syntaxhighlight lang=apl inline>  (  g h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>        g (  h ⍵)</syntaxhighlight><br>
|-
<syntaxhighlight lang=apl inline>⍺ (  g h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>        g (⍺ h ⍵)</syntaxhighlight><br>
|
<syntaxhighlight lang=apl inline>  (f g h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>(  f ⍵) g (  h ⍵)</syntaxhighlight><br>
|-
<syntaxhighlight lang=apl inline>⍺ (f g h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>(⍺ f ⍵) g (⍺ h ⍵)</syntaxhighlight><br>
| <syntaxhighlight lang=apl inline>  (  g⍤h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>        g (  h ⍵)</syntaxhighlight> || λabc.a(bc) || style="text-align:center" | B || Bluebird
 
|-
<syntaxhighlight lang=apl inline>  (A∘g  ) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>   A    g      ⍵ </syntaxhighlight><br>
| <syntaxhighlight lang=apl inline>⍺ (  g⍤h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>        g (⍺ h ⍵)</syntaxhighlight> || λabcd.a(bcd) || style="text-align:center" | B<sub>1</sub> || Blackbird
<syntaxhighlight lang=apl inline>  (  g∘A) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>   ⍵    g      A </syntaxhighlight><br>
|-
<syntaxhighlight lang=apl inline>  (A g h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>   A    g (  h ⍵)</syntaxhighlight><br>
| <syntaxhighlight lang=apl inline>  (  g⍥h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>        g (  h ⍵)</syntaxhighlight> || λabc.a(bc) || style="text-align:center" | B || Bluebird
<syntaxhighlight lang=apl inline>⍺ (A g h) ⍵</syntaxhighlight> {{←→}} <syntaxhighlight lang=apl inline>   A    g (⍺ h ⍵)</syntaxhighlight><br>
|-
| <syntaxhighlight lang=apl inline>⍺ (  g⍥h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>(  h ⍺) g (  h ⍵)</syntaxhighlight> || λabcd.a(bc)(bd) || style="text-align:center" | Ψ ||
|-
|
|-
| <syntaxhighlight lang=apl inline>  (  g h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>        g (  h ⍵)</syntaxhighlight> || λabc.a(bc) || style="text-align:center" | B || Bluebird
|-
| <syntaxhighlight lang=apl inline>⍺ (  g h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>        g (⍺ h ⍵)</syntaxhighlight> || λabcd.a(bcd) || style="text-align:center" | B<sub>1</sub> || Blackbird
|-
| <syntaxhighlight lang=apl inline>  (f g h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>(  f ⍵) g (  h ⍵)</syntaxhighlight> || λabcd.a(bd)(cd) || style="text-align:center" | Φ || Phoenix
|-
| <syntaxhighlight lang=apl inline>⍺ (f g h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>(⍺ f ⍵) g (⍺ h ⍵)</syntaxhighlight> || λabcde.a(bde)(cde) || style="text-align:center" | Φ<sub>1</sub> || Pheasant
|-
|
|-
| <syntaxhighlight lang=apl inline>  (A∘g  ) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>   A    g      ⍵ </syntaxhighlight> || || ||
|-
| <syntaxhighlight lang=apl inline>  (  g∘A) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>   ⍵    g      A </syntaxhighlight> || || ||
|-
| <syntaxhighlight lang=apl inline>  (A g h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>   A    g (  h ⍵)</syntaxhighlight> || || ||
|-
| <syntaxhighlight lang=apl inline>⍺ (A g h) ⍵</syntaxhighlight> || <syntaxhighlight lang=apl inline>   A    g (⍺ h ⍵)</syntaxhighlight> || || ||
|}


== Additional compositions ==
== Additional compositions ==

Latest revision as of 17:07, 29 May 2024

Function composition refers to the "gluing" together of two or more functions using a dyadic operator or a train such that the functions are applied to the argument(s) as normal, but in a particular pattern. The term function composition comes from traditional mathematics where it is used for a function when written as . APL generalises this idea to dyadic functions, allowing various patterns of application in addition to the simple application of one monadic function to the result of another monadic function.

Common compositions

Reverse Compose and Beside treat their arguments in an asymmetric way. They can be seen as using a monadic function to pre-process the left or right argument, respectively, before proceeding to apply a main function. Their patterns can be visualised as follows:

Reverse Compose Beside
F⍛g.png F∘g.png

Atop and Over treat their arguments in a symmetric way. They can be seen as using a monadic function to post-process the result or pre-process the argument(s) of a main function. Their patterns can be visualised as follows:

Atop Over
F⍤g.png F⍥g.png

Trains provide a way to apply a function to the result(s) of one (for 2-trains) or two (for 3-trains) other functions. These patterns are also called Atop and Fork, and can be visualised as follows:

2-train 3-train
Fg.png Fgh.png

The operator represented by Jot (, in this context called Bind) and the 3-train can also be used with constant arrays, then treating the arrays (A) as constant functions, much as if they were used as operands to the Constant operator (A⍨):

Bind 3-train
A∘g;g∘A.png Agh.png

Summary of rules

The above compositions can be summarised as follows, including their combinatory logic equivalents:

Tacit form Explicit form Function Abstraction Symbol Bird Name
  (f⍛g  ) ⍵ (  f ⍵) g      ⍵  λabc.a(bc)c Σ Violet Starling
⍺ (f⍛g  ) ⍵ (  f ⍺) g      ⍵  λabcd.a(bc)d Δ Zebra Dove
  (  g∘h) ⍵         g (  h ⍵) λabc.a(bc) B Bluebird
⍺ (  g∘h) ⍵    ⍺    g (  h ⍵) λabcd.ab(cd) D Dove
  (  g⍤h) ⍵         g (  h ⍵) λabc.a(bc) B Bluebird
⍺ (  g⍤h) ⍵         g (⍺ h ⍵) λabcd.a(bcd) B1 Blackbird
  (  g⍥h) ⍵         g (  h ⍵) λabc.a(bc) B Bluebird
⍺ (  g⍥h) ⍵ (  h ⍺) g (  h ⍵) λabcd.a(bc)(bd) Ψ
  (  g h) ⍵         g (  h ⍵) λabc.a(bc) B Bluebird
⍺ (  g h) ⍵         g (⍺ h ⍵) λabcd.a(bcd) B1 Blackbird
  (f g h) ⍵ (  f ⍵) g (  h ⍵) λabcd.a(bd)(cd) Φ Phoenix
⍺ (f g h) ⍵ (⍺ f ⍵) g (⍺ h ⍵) λabcde.a(bde)(cde) Φ1 Pheasant
  (A∘g  ) ⍵    A    g      ⍵ 
  (  g∘A) ⍵    ⍵    g      A 
  (A g h) ⍵    A    g (  h ⍵)
⍺ (A g h) ⍵    A    g (⍺ h ⍵)

Additional compositions

Additional compositions are possible, even without using an argument more than once or applying a function to its own result. However, most of these are rather trivial shuffled-around versions of the above three. For example, one could define an operator identical to Atop, only that it applies the right operand to the result of the left operand, that is {⍵⍵ ⍺ ⍺⍺ ⍵}.

When Dyalog added Atop and Over, it was with the reasoning that these were the only compositions where the leftmost function acted as the "root" function in the evaluation tree, while the arguments were used each on their respective sides of the constituent functions:

AllCompositions.png

Of note here is f⍨∘g⍨ which is equivalent to — although with swapped operands — Reverse-compose (also called Before), and the mirrored version of Beside (also known as Compose and After), because it is the only such variation that has been implemented, namely in dzaima/APL and Extended Dyalog APL.

A compositional operator that isn't just a shuffled around version of the basic three, is one that applies one operand between the other operand's dyadic result and the result of that other operand's result when swapped: {(⍵ ⍵⍵ ⍺) ⍺⍺ (⍺ ⍵⍵ ⍵)}. This operator can for example be used to implement three-way comparison:

Try it online!

      S ← {(⍵ ⍵⍵ ⍺) ⍺⍺ (⍺ ⍵⍵ ⍵)}
      cmp ← -S≤
      2 cmp 3
¯1
      3 cmp 3
0
      4 cmp 3
1

External links

APL features [edit]
Built-ins Primitives (functions, operators) ∙ Quad name
Array model ShapeRankDepthBoundIndex (Indexing) ∙ AxisRavelRavel orderElementScalarVectorMatrixSimple scalarSimple arrayNested arrayCellMajor cellSubarrayEmpty arrayPrototype
Data types Number (Boolean, Complex number) ∙ Character (String) ∙ BoxNamespaceFunction array
Concepts and paradigms Conformability (Scalar extension, Leading axis agreement) ∙ Scalar function (Pervasion) ∙ Identity elementComplex floorArray ordering (Total) ∙ Tacit programming (Function composition, Close composition) ∙ GlyphLeading axis theoryMajor cell searchFirst-class function
Errors LIMIT ERRORRANK ERRORSYNTAX ERRORDOMAIN ERRORLENGTH ERRORINDEX ERRORVALUE ERROREVOLUTION ERROR