FinnAPL idiom library: Difference between revisions
Miraheze>Adám Brudzewsky No edit summary |
m (Text replacement - "</source>" to "</syntaxhighlight>") |
||
(13 intermediate revisions by 6 users not shown) | |||
Line 1: | Line 1: | ||
[[File:FinnAPL.jpg|thumb|The original FinnAPL idiom library]] | [[File:FinnAPL.jpg|thumb|The original FinnAPL idiom library]] | ||
The '''[[FinnAPL]] idiom library''' | The '''[[FinnAPL]] idiom library''' contains a collection of over 700 one-line APL idioms to accomplish a large variety of tasks. It was first presented at the 1984 [[APL conference]] in Helsinki, Finland. The huge contribution of the Finnish APL Association is gratefully acknowledged. | ||
This listing mainly suffers from two issues: | This listing mainly suffers from two issues: | ||
* Due to its age, it | * Due to its age, it doesn't make use of modern APL features which can provide a simpler solution. (However, a simple-looking expression which uses [[nested arrays]] might be far more computationally expensive than a longer, more involved solution which only uses simple arrays.) | ||
* It can be hard to find what one is looking for, both because computing terminology has changed, and because pinpointing the exact term can be difficult. | * It can be hard to find what one is looking for, both because computing terminology has changed, and because pinpointing the exact term can be difficult. | ||
[[APLcart]] includes all of the below library, updated to use the latest language features, and in an easily searchable format that includes modern day synonyms. | [[APLcart]] includes all of the below library, updated to use the latest language features, and in an easily searchable format that includes modern day synonyms. | ||
Line 13: | Line 13: | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|1. || Progressive index of (without replacement) ||style="text-align: right;"|< | |rowspan=2|1. || Progressive index of (without replacement) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((⍴X)⍴⍋⍋X⍳X,Y)⍳(⍴Y)⍴⍋⍋X⍳Y,X</syntaxhighlight> | ||
|} | |} | ||
The entry includes a brief description of what the idiom does, which is followed by the expression < | The entry includes a brief description of what the idiom does, which is followed by the expression <syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> which specifies the types and ranks of the arguments: | ||
{|class=wikitable | |||
|<syntaxhighlight lang=apl inline>A</syntaxhighlight>||Any [Numeric, Character or Boolean] | |||
|- | |||
|<syntaxhighlight lang=apl inline>D</syntaxhighlight>||Numeric | |||
|- | |||
|<syntaxhighlight lang=apl inline>I</syntaxhighlight>||Integer | |||
|- | |||
|<syntaxhighlight lang=apl inline>C</syntaxhighlight>||Character | |||
|- | |||
|<syntaxhighlight lang=apl inline>B</syntaxhighlight>||Boolean | |||
|} | |||
A number following the type indicates the rank, e.g. | A number following the type indicates the rank, e.g. | ||
{|class=wikitable | |||
|<syntaxhighlight lang=apl inline>A0</syntaxhighlight>||Any scalar (rank 0) | |||
|- | |||
|<syntaxhighlight lang=apl inline>A1</syntaxhighlight>||Any vector (rank 1) | |||
Thus the idiom shown expects two character or numeric vectors, X and Y. It will find the index position of each element of Y in X, for example: | |- | ||
|<syntaxhighlight lang=apl inline>A2</syntaxhighlight>||Any matrix (rank 2) | |||
|} | |||
Thus the idiom shown expects two character or numeric vectors, <syntaxhighlight lang=apl inline>X</syntaxhighlight> and <syntaxhighlight lang=apl inline>Y</syntaxhighlight>. It will find the index position of each element of <syntaxhighlight lang=apl inline>Y</syntaxhighlight> in <syntaxhighlight lang=apl inline>X</syntaxhighlight>, for example: | |||
< | <syntaxhighlight lang=apl> | ||
X←'which side does an ostrich have its feathers?' | X←'which side does an ostrich have its feathers?' | ||
Y←'on the outside, of course!' | Y←'on the outside, of course!' | ||
Line 40: | Line 49: | ||
(X,'-')[((⍴X)⍴⍋⍋X⍳X,Y)⍳(⍴Y)⍴⍋⍋X⍳Y,X] | (X,'-')[((⍴X)⍴⍋⍋X⍳X,Y)⍳(⍴Y)⍴⍋⍋X⍳Y,X] | ||
on the o-tside- -f c--rse- | on the o-tside- -f c--rse- | ||
</ | </syntaxhighlight> | ||
In this example, the first 'o' character in Y occurs in at index position 13 in X, the second one occurs at position 20, and the third and fourth 'o' characters are not present in X. | In this example, the first 'o' character in <syntaxhighlight lang=apl inline>Y</syntaxhighlight> occurs in at index position 13 in <syntaxhighlight lang=apl inline>X</syntaxhighlight>, the second one occurs at position 20, and the third and fourth 'o' characters are not present in <syntaxhighlight lang=apl inline>X</syntaxhighlight>. | ||
For a more detailed description of how this particular idiom works, see [http://www.sudleyplace.com/APL/AnatomyOfAnIdiom.ahtml this analysis] by Bob Smith. | For a more detailed description of how this particular idiom works, see [http://www.sudleyplace.com/APL/AnatomyOfAnIdiom.ahtml this analysis] by Bob Smith. | ||
== Idiom Library Listing == | == Idiom Library Listing == | ||
=== Grade Up ⍋ === | === Grade Up <syntaxhighlight lang=apl inline>⍋</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|1. || Progressive index of (without replacement) ||style="text-align: right;"|< | |rowspan=2|1. || Progressive index of (without replacement) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((⍴X)⍴⍋⍋X⍳X,Y)⍳(⍴Y)⍴⍋⍋X⍳Y,X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 2. || Ascending cardinal numbers (ranking, shareable) ||style="text-align: right;"|< | |rowspan=2| 2. || Ascending cardinal numbers (ranking, shareable) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌊.5×(⍋⍋X)+⌽⍋⍋⌽X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 3. || Cumulative maxima ( | |rowspan=2| 3. || Cumulative maxima (<syntaxhighlight lang=apl inline>⌈\</syntaxhighlight>) of subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y[A⍳⌈\A←⍋A[⍋(+\X)[A←⍋Y]]]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 4. || Cumulative minima ( | |rowspan=2| 4. || Cumulative minima (<syntaxhighlight lang=apl inline>⌊\</syntaxhighlight>) of subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y[A⍳⌈\A←⍋A[⍋(+\X)[A←⍒Y]]]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 5. || Progressive index of (without replacement) ||style="text-align: right;"|< | |rowspan=2| 5. || Progressive index of (without replacement) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((⍋X⍳X,Y)⍳⍳⍴X)⍳(⍋X⍳Y,X)⍳⍳⍴Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 6. || Test if X and Y are permutations of each other ||style="text-align: right;"|< | |rowspan=2| 6. || Test if X and Y are permutations of each other ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y[⍋Y]∧.=X[⍋X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 7. || Test if X is a permutation vector ||style="text-align: right;"|< | |rowspan=2| 7. || Test if X is a permutation vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X∧.=⍋⍋X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 8. || Grade up ( | |rowspan=2| 8. || Grade up (<syntaxhighlight lang=apl inline>⍋</syntaxhighlight>) for sorting subvectors of Y having lengths X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←D1; X←I1; (⍴Y) ←→ +/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A[⍋(+\(⍳⍴Y)∊+\⎕IO,X)[A←⍋Y]]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 9. || Index of the elements of X in Y ||style="text-align: right;"|< | |rowspan=2| 9. || Index of the elements of X in Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(((1,A)/B)⌊1+⍴Y)[(⍴Y)↓(+\1,A←(1↓A)≠¯1↓A←A[B])[⍋B←⍋A←Y,X]]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 10. || Minima (⌊/) of elements of subvectors of Y indicated by X ||style="text-align: right;"|< | |rowspan=2| 10. || Minima (⌊/) of elements of subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y[A[X/⍋(+\X)[A←⍋Y]]]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 11. || Grade up ( | |rowspan=2| 11. || Grade up (<syntaxhighlight lang=apl inline>⍋</syntaxhighlight>) for sorting subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A[⍋(+\X)[A←⍋Y]]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 12. || Occurences of the elements of X ||style="text-align: right;"|< | |rowspan=2| 12. || Occurences of the elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>|-⌿(2,⍴X)⍴⍋⍋X,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 13. || Sorting rows of matrix X into ascending order ||style="text-align: right;"|< | |rowspan=2| 13. || Sorting rows of matrix X into ascending order ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍴X)⍴(,X)[A[⍋(,⍉(⌽⍴X)⍴⍳1↑⍴X)[A←⍋,X]]]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 14. || Adding a new dimension after dimension G Y-fold ||style="text-align: right;"|< | |rowspan=2| 14. || Adding a new dimension after dimension G Y-fold ||style="text-align: right;"|<syntaxhighlight lang=apl inline>G←I0; Y←I0; X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍋⍋(G+1),⍳⍴⍴X)⍉(Y,⍴X)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 15. || Sorting rows of matrix X into ascending order ||style="text-align: right;"|< | |rowspan=2| 15. || Sorting rows of matrix X into ascending order ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←(⍋,X)-⎕IO ⋄ (⍴X)⍴(,X)[⎕IO+A[⍋⌊A÷¯1↑⍴X]]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 16. || Y smallest elements of X in order of occurrence ||style="text-align: right;"|< | |rowspan=2| 16. || Y smallest elements of X in order of occurrence ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1, Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((⍋⍋X)∊⍳Y)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 17. || Merging X, Y, Z ... under control of G (mesh) ||style="text-align: right;"|< | |rowspan=2| 17. || Merging X, Y, Z ... under control of G (mesh) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1; Z←A1; ... ; G←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X,Y,Z,...)[⍋⍋G]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 18. || Merging X and Y under control of G (mesh) ||style="text-align: right;"|< | |rowspan=2| 18. || Merging X and Y under control of G (mesh) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1; G←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X,Y)[⍋⍋G]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 19. || Ascending cardinal numbers (ranking, all different) ||style="text-align: right;"|< | |rowspan=2| 19. || Ascending cardinal numbers (ranking, all different) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍋⍋X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 20. || Grade down ( | |rowspan=2| 20. || Grade down (<syntaxhighlight lang=apl inline>⍒</syntaxhighlight>) for sorting subvectors of Y having lengths X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←D1; X←I1; (⍴Y) ←→ +/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A[⍋(+\(⍳⍴Y)∊+\⎕IO,X)[A←⍒Y]]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 21. || Maxima (⌈/) of elements of subvectors of Y indicated by X ||style="text-align: right;"|< | |rowspan=2| 21. || Maxima (⌈/) of elements of subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y[A[X/⍋(+\X)[A←⍒Y]]]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 22. || Grade down ( | |rowspan=2| 22. || Grade down (<syntaxhighlight lang=apl inline>⍒</syntaxhighlight>) for sorting subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A[⍋(+\X)[A←⍒Y]]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 23. || Y largest elements of X in order of occurrence ||style="text-align: right;"|< | |rowspan=2| 23. || Y largest elements of X in order of occurrence ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((⍋⍒X)∊⍳Y)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 24. || Merging X and Y under control of G (mesh) ||style="text-align: right;"|< | |rowspan=2| 24. || Merging X and Y under control of G (mesh) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1; G←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y,X)[⍋⍒G]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 25. || Descending cardinal numbers (ranking, all different) ||style="text-align: right;"|< | |rowspan=2| 25. || Descending cardinal numbers (ranking, all different) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍋⍒X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 26. || Sorting rows of X according to key Y (alphabetizing) ||style="text-align: right;"|< | |rowspan=2| 26. || Sorting rows of X according to key Y (alphabetizing) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X[⍋(1+⍴Y)⊥Y⍳⍉X;]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 27. || Diagonal ravel ||style="text-align: right;"|< | |rowspan=2| 27. || Diagonal ravel ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(,X)[⍋+⌿(⍴X)⊤(⍳⍴,X)-⎕IO]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 28. || Grade up according to key Y ||style="text-align: right;"|< | |rowspan=2| 28. || Grade up according to key Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←A1; X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍋Y⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 29. || Test if X is a permutation vector ||style="text-align: right;"|< | |rowspan=2| 29. || Test if X is a permutation vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[⍋X]∧.=⍳⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 30. || Sorting a matrix into lexicographic order ||style="text-align: right;"|< | |rowspan=2| 30. || Sorting a matrix into lexicographic order ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X[⍋+⌿A<.-⍉A←X,0;]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 31. || Sorting words in list X according to word length ||style="text-align: right;"|< | |rowspan=2| 31. || Sorting words in list X according to word length ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[⍋X+.≠' ';]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 32. || Classification of X to classes starting with Y ||style="text-align: right;"|< | |rowspan=2| 32. || Classification of X to classes starting with Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1;Y←D1;Y<.≥1⌽Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A[(B/C)-⍴Y]←B/+\~B←(⍴Y)<C←⍋Y,X+A←0×X ⋄ A</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 33. || Rotate first elements ( | |rowspan=2| 33. || Rotate first elements (<syntaxhighlight lang=apl inline>1⌽</syntaxhighlight>) of subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y[⍋X++\X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 34. || Doubling quotes (for execution) ||style="text-align: right;"|< | |rowspan=2| 34. || Doubling quotes (for execution) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X,'''')[(⎕IO+⍴X)⌊⍋(⍳⍴X),(''''=X)/⍳⍴X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 35. || Inserting Y | |rowspan=2| 35. || Inserting Y <syntaxhighlight lang=apl inline>*</syntaxhighlight>'s into vector X after indices G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1; Y←I0; G←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X,'*')[(⎕IO+⍴X)⌊⍋(⍳⍴X),(Y×⍴G)⍴G]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 36. || Median ||style="text-align: right;"|< | |rowspan=2| 36. || Median<ref>Note: it doesn't average the middle two elements as per median's definition. A more correct idiomatic expression is <syntaxhighlight lang=apl inline>0.5×+/X[(⍋X)[|⌈¯0.5 0.5×1+⍴X]]</syntaxhighlight></ref> ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X[(⍋X)[⌈.5×⍴X]]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 37. || Index of last maximum element of X ||style="text-align: right;"|< | |rowspan=2| 37. || Index of last maximum element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>¯1↑⍋X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 38. || Index of (first) minimum element of X ||style="text-align: right;"|< | |rowspan=2| 38. || Index of (first) minimum element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1↑⍋X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 39. || Expansion vector with zero after indices Y ||style="text-align: right;"|< | |rowspan=2| 39. || Expansion vector with zero after indices Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍴X)≥⍋(⍳⍴X),Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 40. || Catenating G elements H before indices Y in vector X ||style="text-align: right;"|< | |rowspan=2| 40. || Catenating G elements H before indices Y in vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I1; G←I0; H←A0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A←G×⍴,Y ⋄ ((A⍴H),X)[⍋(A⍴Y),⍳⍴X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 41. || Catenating G elements H after indices Y in vector X ||style="text-align: right;"|< | |rowspan=2| 41. || Catenating G elements H after indices Y in vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I1; G←I0; H←A0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←G×⍴,Y ⋄ (X,A⍴H)[⍋(⍳⍴X),A⍴Y]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 42. || Merging X and Y under control of G (mesh) ||style="text-align: right;"|< | |rowspan=2| 42. || Merging X and Y under control of G (mesh) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1; G←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A[⍋G]←A←Y,X ⋄ A</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 43. || Sorting a matrix according to Y:th column ||style="text-align: right;"|< | |rowspan=2| 43. || Sorting a matrix according to Y:th column ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[⍋X[;Y];]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 44. || Sorting indices X according to data Y ||style="text-align: right;"|< | |rowspan=2| 44. || Sorting indices X according to data Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X[⍋Y[X]]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 45. || Choosing sorting direction during execution ||style="text-align: right;"|< | |rowspan=2| 45. || Choosing sorting direction during execution ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍋X×(¯1 1)[Y]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 46. || Sorting Y according to X ||style="text-align: right;"|< | |rowspan=2| 46. || Sorting Y according to X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y[⍋X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 47. || Sorting X into ascending order ||style="text-align: right;"|< | |rowspan=2| 47. || Sorting X into ascending order ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[⍋X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 48. || Inverting a permutation ||style="text-align: right;"|< | |rowspan=2| 48. || Inverting a permutation ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍋X</syntaxhighlight> | ||
|} | |} | ||
=== Grade Down ⍒ === | === Grade Down <syntaxhighlight lang=apl inline>⍒</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|49. || Reverse vector X on condition Y ||style="text-align: right;"|< | |rowspan=2|49. || Reverse vector X on condition Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←B0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[⍒Y!⍳⍴X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 50. || Sorting a matrix into reverse lexicographic order ||style="text-align: right;"|< | |rowspan=2| 50. || Sorting a matrix into reverse lexicographic order ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X[⍒+⌿A<.-⍉A←X,0;]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 52. || Reversal ( | |rowspan=2| 52. || Reversal (<syntaxhighlight lang=apl inline>⌽</syntaxhighlight>) of subvectors of X having lengths Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[⌽⍒+\(⍳⍴X)∊+\⎕IO,Y]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 53. || Reversal ( | |rowspan=2| 53. || Reversal (<syntaxhighlight lang=apl inline>⌽</syntaxhighlight>) of subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y[⌽⍒+\X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 55. || Indices of ones in logical vector X ||style="text-align: right;"|< | |rowspan=2| 55. || Indices of ones in logical vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(+/X)↑⍒X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 56. || Index of first maximum element of X ||style="text-align: right;"|< | |rowspan=2| 56. || Index of first maximum element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1↑⍒X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 57. || Moving all blanks to end of text ||style="text-align: right;"|< | |rowspan=2| 57. || Moving all blanks to end of text ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[⍒' '≠X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 58. || Sorting X into descending order ||style="text-align: right;"|< | |rowspan=2| 58. || Sorting X into descending order ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X[⍒X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 59. || Moving elements satisfying condition Y to the start of X ||style="text-align: right;"|< | |rowspan=2| 59. || Moving elements satisfying condition Y to the start of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[⍒Y]</syntaxhighlight> | ||
|} | |} | ||
=== Matrix Inversion / Matrix Division ⌹ === | === Matrix Inversion / Matrix Division <syntaxhighlight lang=apl inline>⌹</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|60. || Interpolated value of series (X,Y) at G ||style="text-align: right;"|< | |rowspan=2|60. || Interpolated value of series (X,Y) at G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1; G←D0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>G⊥Y⌹X∘.*⌽-⎕IO-⍳⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 61. || Predicted values of exponential (curve) fit ||style="text-align: right;"|< | |rowspan=2| 61. || Predicted values of exponential (curve) fit ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>*A+.×(⍟Y)⌹A←X∘.*0 1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 62. || Coefficients of exponential (curve) fit of points (X,Y) ||style="text-align: right;"|< | |rowspan=2| 62. || Coefficients of exponential (curve) fit of points (X,Y) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←(⍟Y)⌹X∘.*0 1 ⋄ A[1]←*A[1] ⋄ A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 63. || Predicted values of best linear fit (least squares) ||style="text-align: right;"|< | |rowspan=2| 63. || Predicted values of best linear fit (least squares) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A+.×Y⌹A←X∘.*0 1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 64. || G-degree polynomial (curve) fit of points (X,Y) ||style="text-align: right;"|< | |rowspan=2| 64. || G-degree polynomial (curve) fit of points (X,Y) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⌽Y⌹X∘.*0,⍳G</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 65. || Best linear fit of points (X,Y) (least squares) ||style="text-align: right;"|< | |rowspan=2| 65. || Best linear fit of points (X,Y) (least squares) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y⌹X∘.*0 1</syntaxhighlight> | ||
|} | |} | ||
=== Decode ⊥ === | === Decode <syntaxhighlight lang=apl inline>⊥</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|66. || Binary format of decimal number X ||style="text-align: right;"|< | |rowspan=2|66. || Binary format of decimal number X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍕10⊥((1+⌈2⍟⌈/,X)⍴2)⊤X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 67. || Barchart of two integer series (across the page) ||style="text-align: right;"|< | |rowspan=2| 67. || Barchart of two integer series (across the page) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I2; 1⍴⍴X ←→ 2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>' *○⍟'[⎕IO+2⊥X∘.≥⍳⌈/,X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 68. || Case structure with an encoded branch destination ||style="text-align: right;"|< | |rowspan=2| 68. || Case structure with an encoded branch destination ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←I1; X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>→Y[1+2⊥X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 69. || Representation of current time (24 hour clock) ||style="text-align: right;"|< | |rowspan=2| 69. || Representation of current time (24 hour clock) ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A←⍕1000⊥3↑3↓⎕TS ⋄ A[3 6]←':' ⋄ A</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 70. || Representation of current date (descending format) ||style="text-align: right;"|< | |rowspan=2| 70. || Representation of current date (descending format) ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←⍕1000⊥3↑⎕TS ⋄ A[5 8]←'-' ⋄ A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 71. || Representation of current time (12 hour clock) ||style="text-align: right;"|< | |rowspan=2| 71. || Representation of current time (12 hour clock) ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(1⌽,' ::',3 2⍴6 0⍕100⊥12 0 0|3↑3↓⎕TS),'AP'[1+12≤⎕TS[4]],'M'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 73. || Removing duplicate rows ||style="text-align: right;"|< | |rowspan=2| 73. || Removing duplicate rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((A⍳A)=⍳⍴A←2⊥X∧.=⍉X)⌿X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 74. || Conversion from hexadecimal to decimal ||style="text-align: right;"|< | |rowspan=2| 74. || Conversion from hexadecimal to decimal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>16⊥-⎕IO-'0123456789ABCDEF'⍳⍉X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 75. || Conversion of alphanumeric string into numeric ||style="text-align: right;"|< | |rowspan=2| 75. || Conversion of alphanumeric string into numeric ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>10⊥¯1+'0123456789'⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 76. || Value of polynomial with coefficients Y at points X ||style="text-align: right;"|< | |rowspan=2| 76. || Value of polynomial with coefficients Y at points X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X∘.+,0)⊥Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 77. || Changing connectivity list X to a connectivity matrix ||style="text-align: right;"|< | |rowspan=2| 77. || Changing connectivity list X to a connectivity matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←(×/B←0 0+⌈/,X)⍴0 ⋄ A[⎕IO+B[1]⊥-⎕IO-X]←1 ⋄ B⍴A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 78. || Present value of cash flows X at interest rate Y % ||style="text-align: right;"|< | |rowspan=2| 78. || Present value of cash flows X at interest rate Y % ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(÷1+Y÷100)⊥⌽X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 79. || Justifying right ||style="text-align: right;"|< | |rowspan=2| 79. || Justifying right ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(1-(' '=X)⊥1)⌽X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 80. || Number of days in month X of years Y (for all leap years) ||style="text-align: right;"|< | |rowspan=2| 80. || Number of days in month X of years Y (for all leap years) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(12⍴7⍴31 30)[X]-0⌈¯1+2⊥(X=2),[.1](0≠400|Y)-(0≠100|Y)-0≠4|Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 81. || Number of days in month X of years Y (for most leap years) ||style="text-align: right;"|< | |rowspan=2| 81. || Number of days in month X of years Y (for most leap years) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(12⍴7⍴31 30)[X]-0⌈¯1+2⊥(X=2),[.1]0≠4|Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 82. || Encoding current date ||style="text-align: right;"|< | |rowspan=2| 82. || Encoding current date ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>100⊥100|3↑⎕TS</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 83. || Removing trailing blanks ||style="text-align: right;"|< | |rowspan=2| 83. || Removing trailing blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(1-(' '=X)⊥1)↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 84. || Index of first non-blank, counted from the rear ||style="text-align: right;"|< | |rowspan=2| 84. || Index of first non-blank, counted from the rear ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(' '=X)⊥1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 85. || Indexing scattered elements ||style="text-align: right;"|< | |rowspan=2| 85. || Indexing scattered elements ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←I2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(,X)[⎕IO+(⍴X)⊥Y-⎕IO]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 86. || Conversion of indices Y of array X to indices of raveled X ||style="text-align: right;"|< | |rowspan=2| 86. || Conversion of indices Y of array X to indices of raveled X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←I2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕IO+(⍴X)⊥Y-⎕IO</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 87. || Number of columns in array X as a scalar ||style="text-align: right;"|< | |rowspan=2| 87. || Number of columns in array X as a scalar ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>0⊥⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 88. || Future value of cash flows X at interest rate Y % ||style="text-align: right;"|< | |rowspan=2| 88. || Future value of cash flows X at interest rate Y % ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(1+Y÷100)⊥X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 89. || Sum of the elements of vector X ||style="text-align: right;"|< | |rowspan=2| 89. || Sum of the elements of vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1⊥X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 90. || Last element of numeric vector X as a scalar ||style="text-align: right;"|< | |rowspan=2| 90. || Last element of numeric vector X as a scalar ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>0⊥X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 91. || Last row of matrix X as a vector ||style="text-align: right;"|< | |rowspan=2| 91. || Last row of matrix X as a vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>0⊥X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 92. || Integer representation of logical vectors ||style="text-align: right;"|< | |rowspan=2| 92. || Integer representation of logical vectors ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>2⊥X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 93. || Value of polynomial with coefficients Y at point X ||style="text-align: right;"|< | |rowspan=2| 93. || Value of polynomial with coefficients Y at point X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X⊥Y</syntaxhighlight> | ||
|} | |} | ||
=== Encode ⊤ === | === Encode <syntaxhighlight lang=apl inline>⊤</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=4|94. || Conversion from decimal to hexadecimal ( | |rowspan=4|94. || Conversion from decimal to hexadecimal (<syntaxhighlight lang=apl inline>X=1..255</syntaxhighlight>) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍉'0123456789ABCDEF'[⎕IO+((⌈⌈/16⍟,X)⍴16)⊤X]</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"| this alternative opens the range to 0..⌊/⍳0 | |colspan=2 style="background-color: #F5F5F5"| this alternative opens the range to 0..⌊/⍳0 | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍉'0123456789ABCDEF'[⎕IO+((1+⌊16⍟⌈/X+X=0)⍴16)⊤X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 95. || All binary representations up to X (truth table) ||style="text-align: right;"|< | |rowspan=2| 95. || All binary representations up to X (truth table) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((⌈2⍟1+X)⍴2)⊤0,⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 96. || Representation of X in base Y ||style="text-align: right;"|< | |rowspan=2| 96. || Representation of X in base Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((1+⌊Y⍟X)⍴Y)⊤X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 97. || Digits of X separately ||style="text-align: right;"|< | |rowspan=2| 97. || Digits of X separately ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((1+⌊10⍟X)⍴10)⊤X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 98. || Helps locating column positions 1..X ||style="text-align: right;"|< | |rowspan=2| 98. || Helps locating column positions 1..X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1 0⍕10 10⊤1-⎕IO-⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 99. || Conversion of characters to hexadecimal representation ( | |rowspan=2| 99. || Conversion of characters to hexadecimal representation (<syntaxhighlight lang=apl inline>⎕AV</syntaxhighlight>) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>,' ',⍉'0123456789ABCDEF'[⎕IO+16 16⊤-⎕IO-⎕AV⍳X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 100. || Polynomial with roots X ||style="text-align: right;"|< | |rowspan=2| 100. || Polynomial with roots X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⌽((0,⍳⍴X)∘.=+⌿~A)+.×(-X)×.*A←((⍴X)⍴2)⊤¯1+⍳2*⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 101. || Index pairs of saddle points ||style="text-align: right;"|< | |rowspan=2| 101. || Index pairs of saddle points ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕IO+(⍴X)⊤-⎕IO-(,(X=(⍴X)⍴⌈⌿X)∧X=⍉(⌽⍴X)⍴⌊/X)/⍳×/⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 102. || Changing connectivity matrix X to a connectivity list ||style="text-align: right;"|< | |rowspan=2| 102. || Changing connectivity matrix X to a connectivity list ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(,X)/1+A⊤¯1+⍳×/A←⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 103. || Matrix of all indices of X ||style="text-align: right;"|< | |rowspan=2| 103. || Matrix of all indices of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕IO+(⍴X)⊤(⍳×/⍴X)-⎕IO</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 104. || Separating a date YYMMDD to YY, MM, DD ||style="text-align: right;"|< | |rowspan=2| 104. || Separating a date YYMMDD to YY, MM, DD ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍉(3⍴100)⊤X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 105. || Indices of elements Y in array X ||style="text-align: right;"|< | |rowspan=2| 105. || Indices of elements Y in array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕IO+(⍴X)⊤(-⎕IO)+(,X∊Y)/⍳⍴,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 106. || All pairs of elements of | |rowspan=2| 106. || All pairs of elements of <syntaxhighlight lang=apl inline>⍳X</syntaxhighlight> and <syntaxhighlight lang=apl inline>⍳Y</syntaxhighlight> ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⎕IO+(X,Y)⊤(⍳X×Y)-⎕IO</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 107. || Matrix for choosing all subsets of X (truth table) ||style="text-align: right;"|< | |rowspan=2| 107. || Matrix for choosing all subsets of X (truth table) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((⍴X)⍴2)⊤¯1+⍳2*⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 108. || All binary representations with X bits (truth table) ||style="text-align: right;"|< | |rowspan=2| 108. || All binary representations with X bits (truth table) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X⍴2)⊤¯1+⍳2*X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 109. || Incrementing cyclic counter X with upper limit Y ||style="text-align: right;"|< | |rowspan=2| 109. || Incrementing cyclic counter X with upper limit Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1+Y⊤X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 110. || Decoding numeric code ABBCCC into a matrix ||style="text-align: right;"|< | |rowspan=2| 110. || Decoding numeric code ABBCCC into a matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>10 100 1000⊤X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 111. || Integer and fractional parts of positive numbers ||style="text-align: right;"|< | |rowspan=2| 111. || Integer and fractional parts of positive numbers ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>0 1⊤X</syntaxhighlight> | ||
|} | |} | ||
=== Logarithm ⍟ === | === Logarithm <syntaxhighlight lang=apl inline>⍟</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|112. || Number of decimals of elements of X ||style="text-align: right;"|< | |rowspan=2|112. || Number of decimals of elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⌊10⍟(⍎('.'≠A)/A←⍕X)÷X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 113. || Number of sortable columns at a time using | |rowspan=2| 113. || Number of sortable columns at a time using <syntaxhighlight lang=apl inline>⊥</syntaxhighlight> and alphabet X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌊(1+⍴X)⍟2*(A=¯1+A←2*⍳128)⍳1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 114. || Playing order in a cup for X ranked players ||style="text-align: right;"|< | |rowspan=2| 114. || Playing order in a cup for X ranked players ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>,⍉(A⍴2)⍴(2*A←⌈2⍟X)↑⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 115. || Arithmetic precision of the system (in decimals) ||style="text-align: right;"|< | |rowspan=2| 115. || Arithmetic precision of the system (in decimals) ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌊|10⍟|1-3×÷3</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 116. || Number of digitpositions in integers in X ||style="text-align: right;"|< | |rowspan=2| 116. || Number of digitpositions in integers in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1+(X<0)+⌊10⍟|X+0=X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 117. || Number of digit positions in integers in X ||style="text-align: right;"|< | |rowspan=2| 117. || Number of digit positions in integers in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1+⌊10⍟(X=0)+X×(1 ¯10)[1+X<0]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 118. || Number of digits in positive integers in X ||style="text-align: right;"|< | |rowspan=2| 118. || Number of digits in positive integers in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1+⌊10⍟X+0=X</syntaxhighlight> | ||
|} | |} | ||
=== Branch → === | === Branch <syntaxhighlight lang=apl inline>→</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|119. || Case structure according to key vector G ||style="text-align: right;"|< | |rowspan=2|119. || Case structure according to key vector G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A0; Y←I1; G←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>→Y[G⍳X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 120. || Forming a transitive closure ||style="text-align: right;"|< | |rowspan=2| 120. || Forming a transitive closure ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>→⎕LC⌈⍳∨/,(X←X∨X∨.∧X)≠+X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 121. || Case structure with integer switch ||style="text-align: right;"|< | |rowspan=2| 121. || Case structure with integer switch ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>→X⌽Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 122. || For-loop ending construct ||style="text-align: right;"|< | |rowspan=2| 122. || For-loop ending construct ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I0; G←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>→Y⌈⍳G≥X←X+1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 123. || Conditional branch to line Y ||style="text-align: right;"|< | |rowspan=2| 123. || Conditional branch to line Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B0; Y←I0; Y>0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>→Y⌈⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 124. || Conditional branch out of program ||style="text-align: right;"|< | |rowspan=2| 124. || Conditional branch out of program ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>→0⌊⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 125. || Conditional branch depending on sign of X ||style="text-align: right;"|< | |rowspan=2| 125. || Conditional branch depending on sign of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>→Y[2+×X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 126. || Continuing from line Y (if X>0) or exit ||style="text-align: right;"|< | |rowspan=2| 126. || Continuing from line Y (if X>0) or exit ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>→Y××X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 127. || Case structure using levels with limits G ||style="text-align: right;"|< | |rowspan=2| 127. || Case structure using levels with limits G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; G←D1; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>→(X≥G)/Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 128. || Case structure with logical switch (preferring from start) ||style="text-align: right;"|< | |rowspan=2| 128. || Case structure with logical switch (preferring from start) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>→X/Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 129. || Conditional branch out of program ||style="text-align: right;"|< | |rowspan=2| 129. || Conditional branch out of program ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>→0×⍳X</syntaxhighlight> | ||
|} | |} | ||
=== Execute ⍎ === | === Execute <syntaxhighlight lang=apl inline>⍎</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|132. || Test for symmetricity of matrix X ||style="text-align: right;"|< | |rowspan=2|132. || Test for symmetricity of matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍎⍎'1','↑↓'[⎕IO+∧/(⍴X)=⌽⍴X],'''0~0∊X=⍉X'''</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 133. || Using a variable named according to X ||style="text-align: right;"|< | |rowspan=2| 133. || Using a variable named according to X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A0; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍎'VAR',(⍕X),'←Y'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 134. || Rounding to | |rowspan=2| 134. || Rounding to <syntaxhighlight lang=apl inline>⎕PP</syntaxhighlight> precision ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍎⍕X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 135. || Convert character or numeric data into numeric ||style="text-align: right;"|< | |rowspan=2| 135. || Convert character or numeric data into numeric ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍎⍕X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 136. || Reshaping only one-element numeric vector X into a scalar ||style="text-align: right;"|< | |rowspan=2| 136. || Reshaping only one-element numeric vector X into a scalar ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍎⍕X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 137. || Graph of F(X) at points X ('X'∊F) ||style="text-align: right;"|< | |rowspan=2| 137. || Graph of F(X) at points X ('X'∊F) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>F←A1; X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>' *'[⎕IO+(⌽(¯1+⌊/A)+⍳1+(⌈/A)-⌊/A)∘.=A←⌊.5+⍎F]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 138. || Conversion of each row to a number (default zero) ||style="text-align: right;"|< | |rowspan=2| 138. || Conversion of each row to a number (default zero) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X∨.≠' ')\1↓⍎'0 ',,X,' '</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 139. || Test for symmetricity of matrix X ||style="text-align: right;"|< | |rowspan=2| 139. || Test for symmetricity of matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍎(¯7*A∧.=⌽A←⍴X)↑'0~0∊X=⍉X'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 140. || Execution of expression X with default value Y ||style="text-align: right;"|< | |rowspan=2| 140. || Execution of expression X with default value Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍎((X∧.=' ')/'Y'),X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 141. || Changing X if a new input value is given ||style="text-align: right;"|< | |rowspan=2| 141. || Changing X if a new input value is given ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X←⍎,((2↑'X'),' ',[.5]A)[⎕IO+~' '∧.=A←⍞;]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 142. || Definite integral of F(X) in range Y with G steps ('X'∊F) ||style="text-align: right;"|< | |rowspan=2| 142. || Definite integral of F(X) in range Y with G steps ('X'∊F) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>F←A1; G←D0; Y←D1; ⍴Y ←→ 2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A+.×⍎F,0⍴X←Y[1]+(A←--/Y÷G)×0,⍳G</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 143. || Test if numeric and conversion to numeric form ||style="text-align: right;"|< | |rowspan=2| 143. || Test if numeric and conversion to numeric form ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1↓⍎'0 ',(∧/X∊' 0123456789')/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 144. || Tests the social security number (Finnish) ||style="text-align: right;"|< | |rowspan=2| 144. || Tests the social security number (Finnish) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←'01...9ABC...Z'; 10=⍴X</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(¯1↑X)=((~Y∊'GIOQ')/Y)[1+31|⍎9↑X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 145. || Conditional execution ||style="text-align: right;"|< | |rowspan=2| 145. || Conditional execution ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍎X/'EXPRESSION'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 146. || Conditional branch out of programs ||style="text-align: right;"|< | |rowspan=2| 146. || Conditional branch out of programs ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍎X/'→'</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 147. || Using default value 100 if X does not exist ||style="text-align: right;"|< | |rowspan=2| 147. || Using default value 100 if X does not exist ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍎(¯3*2≠⎕NC 'X')↑'X100'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 148. || Conditional execution ||style="text-align: right;"|< | |rowspan=2| 148. || Conditional execution ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍎X↓'⍝ ...'</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 149. || Giving a numeric default value for input ||style="text-align: right;"|< | |rowspan=2| 149. || Giving a numeric default value for input ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1⍴(⍎⍞,',⍳0'),X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 150. || Assign values of expressions in X to variables named in Y ||style="text-align: right;"|< | |rowspan=2| 150. || Assign values of expressions in X to variables named in Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2; Y←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←⍎,',','(','0','⍴',Y,'←',X,')'</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 151. || Evaluation of several expressions; results form a vector ||style="text-align: right;"|< | |rowspan=2| 151. || Evaluation of several expressions; results form a vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍎,',','(',',',X,')'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 152. || Sum of numbers in character matrix X ||style="text-align: right;"|< | |rowspan=2| 152. || Sum of numbers in character matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍎,'+',X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 153. || Indexing when rank is not known beforehand ||style="text-align: right;"|< | |rowspan=2| 153. || Indexing when rank is not known beforehand ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍎'X[',((¯1+⍴⍴X)⍴';'),'Y]'</syntaxhighlight> | ||
|} | |} | ||
=== Format ⍕ === | === Format <syntaxhighlight lang=apl inline>⍕</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|154. || Numeric headers (elements of X) for rows of table Y ||style="text-align: right;"|< | |rowspan=2|154. || Numeric headers (elements of X) for rows of table Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(3⌽7 0⍕X∘.+,0),⍕Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 155. || Formatting a numerical vector to run down the page ||style="text-align: right;"|< | |rowspan=2| 155. || Formatting a numerical vector to run down the page ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍕X∘.+,0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 156. || Representation of current date (ascending format) ||style="text-align: right;"|< | |rowspan=2| 156. || Representation of current date (ascending format) ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←⍕⌽3↑⎕TS ⋄ A[(' '=A)/⍳⍴A]←'.' ⋄ A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 157. || Representation of current date (American) ||style="text-align: right;"|< | |rowspan=2| 157. || Representation of current date (American) ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A←⍕100|1⌽3↑⎕TS ⋄ A[(' '=A)/⍳⍴A]←'/' ⋄ A</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 158. || Formatting with zero values replaced with blanks ||style="text-align: right;"|< | |rowspan=2| 158. || Formatting with zero values replaced with blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍴A)⍴B\(B←,('0'≠A)∨' '≠¯1⌽A)/,A←' ',⍕X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 159. || Number of digit positions in scalar X (depends on | |rowspan=2| 159. || Number of digit positions in scalar X (depends on <syntaxhighlight lang=apl inline>⎕PP</syntaxhighlight>) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍴⍕X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 160. || Leading zeroes for X in fields of width Y ||style="text-align: right;"|< | |rowspan=2| 160. || Leading zeroes for X in fields of width Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←I0; X≥0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>0 1↓(2↑Y+1)⍕X∘.+,10*Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 161. || Row-by-row formatting (width G) of X with Y decimals per row ||style="text-align: right;"|< | |rowspan=2| 161. || Row-by-row formatting (width G) of X with Y decimals per row ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2; Y←I1; G←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((1,G)×⍴X)⍴2 1 3⍉(⌽G,⍴X)⍴(,G,[1.1]Y)⍕⍉X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 163. || Formatting X with H decimals in fields of width G ||style="text-align: right;"|< | |rowspan=2| 163. || Formatting X with H decimals in fields of width G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; G←I1; H←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(,G,[1.1]H)⍕X</syntaxhighlight> | ||
|} | |} | ||
=== Roll / Deal ? === | === Roll / Deal <syntaxhighlight lang=apl inline>?</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|164. || Y-shaped array of random numbers within ( X[1],X[2] ] ||style="text-align: right;"|< | |rowspan=2|164. || Y-shaped array of random numbers within ( X[1],X[2] ] ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[1]+?Y⍴--/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 165. || Removing punctuation characters ||style="text-align: right;"|< | |rowspan=2| 165. || Removing punctuation characters ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(~X∊' .,:;?''')/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 166. || Choosing Y objects out of | |rowspan=2| 166. || Choosing Y objects out of <syntaxhighlight lang=apl inline>⍳X</syntaxhighlight> with replacement (roll) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←I; X←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>?Y⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 167. || Choosing Y objects out of | |rowspan=2| 167. || Choosing Y objects out of <syntaxhighlight lang=apl inline>⍳X</syntaxhighlight> without replacement (deal) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y?X</syntaxhighlight> | ||
|} | |} | ||
=== Geometrical Functions ○ === | === Geometrical Functions <syntaxhighlight lang=apl inline>○</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|168. || Arctan Y÷X ||style="text-align: right;"|< | |rowspan=2|168. || Arctan Y÷X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((X≠0)ׯ3○Y÷X+X=0)+○((X=0)×.5××Y)+(X<0)×1-2×Y<0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 169. || Conversion from degrees to radians ||style="text-align: right;"|< | |rowspan=2| 169. || Conversion from degrees to radians ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X×○÷180</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 170. || Conversion from radians to degrees ||style="text-align: right;"|< | |rowspan=2| 170. || Conversion from radians to degrees ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X×180÷○1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 171. || Rotation matrix for angle X (in radians) counter-clockwise ||style="text-align: right;"|< | |rowspan=2| 171. || Rotation matrix for angle X (in radians) counter-clockwise ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>2 2⍴1 ¯1 1 1×2 1 1 2○X</syntaxhighlight> | ||
|} | |} | ||
=== Factorial / Binomial ! === | === Factorial / Binomial <syntaxhighlight lang=apl inline>!</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|172. || Number of permutations of X objects taken Y at a time ||style="text-align: right;"|< | |rowspan=2|172. || Number of permutations of X objects taken Y at a time ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(!Y)×Y!X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 173. || Value of Taylor series with coefficients Y at point X ||style="text-align: right;"|< | |rowspan=2| 173. || Value of Taylor series with coefficients Y at point X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+/Y×(X*A)÷!A←¯1+⍳⍴Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 174. || Poisson distribution of states X with average number Y ||style="text-align: right;"|< | |rowspan=2| 174. || Poisson distribution of states X with average number Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I; Y←D0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(*-Y)×(Y*X)÷!X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 175. || Gamma function ||style="text-align: right;"|< | |rowspan=2| 175. || Gamma function ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>!X-1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 176. || Binomial distribution of X trials with probability Y ||style="text-align: right;"|< | |rowspan=2| 176. || Binomial distribution of X trials with probability Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←D0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(A!X)×(Y*A)×(1-Y)*X-A←-⎕IO-⍳X+1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 177. || Beta function ||style="text-align: right;"|< | |rowspan=2| 177. || Beta function ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>÷Y×(X-1)!Y+X-1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 178. || Selecting elements satisfying condition X, others to 1 ||style="text-align: right;"|< | |rowspan=2| 178. || Selecting elements satisfying condition X, others to 1 ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B; Y←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X!Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 179. || Number of combinations of X objects taken Y at a time ||style="text-align: right;"|< | |rowspan=2| 179. || Number of combinations of X objects taken Y at a time ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y!X</syntaxhighlight> | ||
|} | |} | ||
=== Index Of ⍳ === | === Index Of <syntaxhighlight lang=apl inline>⍳</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|180. || Removing elements Y from beginning and end of vector X ||style="text-align: right;"|< | |rowspan=2|180. || Removing elements Y from beginning and end of vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((A⍳1)-⎕IO)↓(⎕IO-(⌽A←~X∊Y)⍳1)↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 181. || Alphabetical comparison with alphabets G ||style="text-align: right;"|< | |rowspan=2| 181. || Alphabetical comparison with alphabets G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(G⍳X)<G⍳Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 183. || Sum over elements of X determined by elements of Y ||style="text-align: right;"|< | |rowspan=2| 183. || Sum over elements of X determined by elements of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X+.×Y∘.=((⍳⍴Y)=Y⍳Y)/Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 184. || First occurrence of string X in string Y ||style="text-align: right;"|< | |rowspan=2| 184. || First occurrence of string X in string Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(∧⌿(¯1+⍳⍴X)⌽X∘.=Y)⍳1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 185. || Removing duplicate rows ||style="text-align: right;"|< | |rowspan=2| 185. || Removing duplicate rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((A⍳A)=⍳⍴A←⎕IO++⌿∧⍀X∨.≠⍉X)⌿X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 186. || First occurrence of string X in matrix Y ||style="text-align: right;"|< | |rowspan=2| 186. || First occurrence of string X in matrix Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A2; ¯1↑⍴Y←→⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y∧.=X)⍳1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 187. || Indices of ones in logical vector X ||style="text-align: right;"|< | |rowspan=2| 187. || Indices of ones in logical vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(+\X)⍳⍳+/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 188. || Executing costly monadic function F on repetitive arguments ||style="text-align: right;"|< | |rowspan=2| 188. || Executing costly monadic function F on repetitive arguments ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(F B/X)[+\B←(X⍳X)=⍳⍴X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 189. || Index of (first) maximum element of X ||style="text-align: right;"|< | |rowspan=2| 189. || Index of (first) maximum element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X⍳⌈/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 190. || Index of first occurrence of elements of Y ||style="text-align: right;"|< | |rowspan=2| 190. || Index of first occurrence of elements of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1; Y←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌊/X⍳Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 191. || Index of (first) minimum element of X ||style="text-align: right;"|< | |rowspan=2| 191. || Index of (first) minimum element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X⍳⌊/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 192. || Test if each element of X occurs only once ||style="text-align: right;"|< | |rowspan=2| 192. || Test if each element of X occurs only once ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/(X⍳X)=⍳⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 193. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 193. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∧/⎕IO=X⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 194. || Interpretation of roman numbers ||style="text-align: right;"|< | |rowspan=2| 194. || Interpretation of roman numbers ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+/Aׯ1*A<1⌽A←0,(1000 500 100 50 10 5 1)['MDCLXVI'⍳X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 195. || Removing elements Y from end of vector X ||style="text-align: right;"|< | |rowspan=2| 195. || Removing elements Y from end of vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⎕IO-(~⌽X∊Y)⍳1)↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 196. || Removing trailing blanks ||style="text-align: right;"|< | |rowspan=2| 196. || Removing trailing blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(1-(⌽' '≠X)⍳1)↓X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 198. || Index of last occurrence of Y in X ( | |rowspan=2| 198. || Index of last occurrence of Y in X (<syntaxhighlight lang=apl inline>⎕IO-1</syntaxhighlight> if not found) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((¯1 1)[2×⎕IO]+⍴X)-(⌽X)⍳Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 199. || Index of last occurrence of Y in X (0 if not found) ||style="text-align: right;"|< | |rowspan=2| 199. || Index of last occurrence of Y in X (0 if not found) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(1+⍴X)-(⌽X)⍳Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 200. || Index of last occurrence of Y in X, counted from the rear ||style="text-align: right;"|< | |rowspan=2| 200. || Index of last occurrence of Y in X, counted from the rear ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⌽X)⍳Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 201. || Index of first occurrence of G in X (circularly) after Y ||style="text-align: right;"|< | |rowspan=2| 201. || Index of first occurrence of G in X (circularly) after Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0; G←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕IO+(⍴X)|Y+(Y⌽X)⍳G</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 202. || Alphabetizing X; equal alphabets in same column of Y ||style="text-align: right;"|< | |rowspan=2| 202. || Alphabetizing X; equal alphabets in same column of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←C2; X←C</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(¯1↑⍴Y)|(,Y)⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 203. || Changing index of an unfound element to zero ||style="text-align: right;"|< | |rowspan=2| 203. || Changing index of an unfound element to zero ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←A1; X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(1+⍴Y)|Y⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 204. || Replacing elements of G in set X with corresponding Y ||style="text-align: right;"|< | |rowspan=2| 204. || Replacing elements of G in set X with corresponding Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1, Y←A1, G←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A[B/⍳⍴B]←Y[(B←B≤⍴Y)/B←X⍳A←,G] ⋄ (⍴G)⍴A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 205. || Removing duplicate elements (nub) ||style="text-align: right;"|< | |rowspan=2| 205. || Removing duplicate elements (nub) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((X⍳X)=⍳⍴X)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 206. || First word in X ||style="text-align: right;"|< | |rowspan=2| 206. || First word in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(¯1+X⍳' ')↑X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 207. || Removing elements Y from beginning of vector X ||style="text-align: right;"|< | |rowspan=2| 207. || Removing elements Y from beginning of vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(((~X∊Y)⍳1)-⎕IO)↓X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 208. || Removing leading zeroes ||style="text-align: right;"|< | |rowspan=2| 208. || Removing leading zeroes ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(¯1+(X='0')⍳0)↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 209. || Index of first one after index Y in X ||style="text-align: right;"|< | |rowspan=2| 209. || Index of first one after index Y in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>G←I0; X←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y+(Y↓X)⍳1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 210. || Changing index of an unfound element to zero (not effective) ||style="text-align: right;"|< | |rowspan=2| 210. || Changing index of an unfound element to zero (not effective) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X∊Y)×Y⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 211. || Indicator of first occurrence of each unique element of X ||style="text-align: right;"|< | |rowspan=2| 211. || Indicator of first occurrence of each unique element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X⍳X)=⍳⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 212. || Inverting a permutation ||style="text-align: right;"|< | |rowspan=2| 212. || Inverting a permutation ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X⍳⍳⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 213. || Index of first differing element in vectors X and Y ||style="text-align: right;"|< | |rowspan=2| 213. || Index of first differing element in vectors X and Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y≠X)⍳1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 214. || Which elements of X are not in set Y (difference of sets) ||style="text-align: right;"|< | |rowspan=2| 214. || Which elements of X are not in set Y (difference of sets) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⎕IO+⍴Y)=Y⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 215. || Changing numeric code X into corresponding name in Y ||style="text-align: right;"|< | |rowspan=2| 215. || Changing numeric code X into corresponding name in Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D1; G←C2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>G[Y⍳X;]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 216. || Index of key Y in key vector X ||style="text-align: right;"|< | |rowspan=2| 216. || Index of key Y in key vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X⍳Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 217. || Conversion from characters to numeric codes ||style="text-align: right;"|< | |rowspan=2| 217. || Conversion from characters to numeric codes ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕AV⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 218. || Index of first satisfied condition in X ||style="text-align: right;"|< | |rowspan=2| 218. || Index of first satisfied condition in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X⍳1</syntaxhighlight> | ||
|} | |} | ||
=== Outer Product ∘.! ∘.⌈ ∘.| === | === Outer Product <syntaxhighlight lang=apl inline>∘.!</syntaxhighlight> <syntaxhighlight lang=apl inline>∘.⌈</syntaxhighlight> <syntaxhighlight lang=apl inline>∘.|</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|219. || Pascal's triangle of order X (binomial coefficients) ||style="text-align: right;"|< | |rowspan=2|219. || Pascal's triangle of order X (binomial coefficients) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍉A∘.!A←0,⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 220. || Maximum table ||style="text-align: right;"|< | |rowspan=2| 220. || Maximum table ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍳X)∘.⌈⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 221. || Number of decimals (up to Y) of elements of X ||style="text-align: right;"|< | |rowspan=2| 221. || Number of decimals (up to Y) of elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>0+.≠(⌈(10*Y)×10*⎕IO-⍳Y+1)∘.|⌈X×10*Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 222. || Greatest common divisor of elements of X ||style="text-align: right;"|< | |rowspan=2| 222. || Greatest common divisor of elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌈/(∧/0=A∘.|X)/A←⍳⌊/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 223. || Divisibility table ||style="text-align: right;"|< | |rowspan=2| 223. || Divisibility table ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>0=(⍳⌈/X)∘.|X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 224. || All primes up to X ||style="text-align: right;"|< | |rowspan=2| 224. || All primes up to X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(2=+⌿0=(⍳X)∘.|⍳X)/⍳X</syntaxhighlight> | ||
|} | |} | ||
=== Outer Product ∘.* ∘.× ∘.- ∘.+ === | === Outer Product <syntaxhighlight lang=apl inline>∘.*</syntaxhighlight> <syntaxhighlight lang=apl inline>∘.×</syntaxhighlight> <syntaxhighlight lang=apl inline>∘.-</syntaxhighlight> <syntaxhighlight lang=apl inline>∘.+</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|225. || Compound interest for principals Y at rates G % in times X ||style="text-align: right;"|< | |rowspan=2|225. || Compound interest for principals Y at rates G % in times X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D; G←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y∘.×(1+G÷100)∘.*X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 226. || Product of two polynomials with coefficients X and Y ||style="text-align: right;"|< | |rowspan=2| 226. || Product of two polynomials with coefficients X and Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+⌿(⎕IO-⍳⍴X)⌽X∘.×Y,0×1↓X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 228. || Shur product ||style="text-align: right;"|< | |rowspan=2| 228. || Shur product ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2; Y←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1 2 1 2⍉X∘.×Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 229. || Direct matrix product ||style="text-align: right;"|< | |rowspan=2| 229. || Direct matrix product ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2; Y←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1 3 2 4⍉X∘.×Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 230. || Multiplication table ||style="text-align: right;"|< | |rowspan=2| 230. || Multiplication table ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍳X)∘.×⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 231. || Replicating a dimension of rank three array X Y-fold ||style="text-align: right;"|< | |rowspan=2| 231. || Replicating a dimension of rank three array X Y-fold ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←I0; X←A3</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X[;,(Y⍴1)∘.×⍳(⍴X)[2];]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 232. || Array and its negative ('plus minus') ||style="text-align: right;"|< | |rowspan=2| 232. || Array and its negative ('plus minus') ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X∘.×1 ¯1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 233. || Move set of points X into first quadrant ||style="text-align: right;"|< | |rowspan=2| 233. || Move set of points X into first quadrant ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1 2 1⍉X∘.-⌊/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 234. || Test relations of elements of X to range Y; result in ¯2..2 ||style="text-align: right;"|< | |rowspan=2| 234. || Test relations of elements of X to range Y; result in ¯2..2 ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D; 2=¯1↑⍴Y</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+/×X∘.-Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 235. || Occurrences of string X in string Y ||style="text-align: right;"|< | |rowspan=2| 235. || Occurrences of string X in string Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y[A∘.+¯1+⍳⍴X]∧.=X)/A←(A=1↑X)/⍳⍴A←(1-⍴X)↓Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 236. || Sum of common parts of matrices (matrix sum) ||style="text-align: right;"|< | |rowspan=2| 236. || Sum of common parts of matrices (matrix sum) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2; Y←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1 2 1 2⍉X∘.+Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 237. || Adding X to each row of Y ||style="text-align: right;"|< | |rowspan=2| 237. || Adding X to each row of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1 1 2⍉X∘.+Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 238. || Adding X to each row of Y ||style="text-align: right;"|< | |rowspan=2| 238. || Adding X to each row of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1 2 1⍉Y∘.+X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 240. || Adding X to each column of Y ||style="text-align: right;"|< | |rowspan=2| 240. || Adding X to each column of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>2 1 2⍉X∘.+Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 241. || Adding X to each column of Y ||style="text-align: right;"|< | |rowspan=2| 241. || Adding X to each column of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1 2 2⍉Y∘.+X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 242. || Hilbert matrix of order X ||style="text-align: right;"|< | |rowspan=2| 242. || Hilbert matrix of order X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>÷¯1+(⍳X)∘.+⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 243. || Moving index of width Y for vector X ||style="text-align: right;"|< | |rowspan=2| 243. || Moving index of width Y for vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(0,⍳(⍴X)-Y)∘.+Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 244. || Indices of subvectors of length Y starting at X+1 ||style="text-align: right;"|< | |rowspan=2| 244. || Indices of subvectors of length Y starting at X+1 ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X∘.+⍳Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 245. || Reshaping numeric vector X into a one-column matrix ||style="text-align: right;"|< | |rowspan=2| 245. || Reshaping numeric vector X into a one-column matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X∘.+,0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 246. || Annuity coefficient: X periods at interest rate Y % ||style="text-align: right;"|< | |rowspan=2| 246. || Annuity coefficient: X periods at interest rate Y % ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I; Y←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((⍴A)⍴Y÷100)÷A←⍉1-(1+Y÷100)∘.*-X</syntaxhighlight> | ||
|} | |} | ||
=== Outer Product ∘.<∘.≤ ∘.≥ ∘.> === | === Outer Product <syntaxhighlight lang=apl inline>∘.<</syntaxhighlight> <syntaxhighlight lang=apl inline>∘.≤</syntaxhighlight> <syntaxhighlight lang=apl inline>∘.≥</syntaxhighlight> <syntaxhighlight lang=apl inline>∘.></syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|247. || Matrix with X[i] trailing zeroes on row i ||style="text-align: right;"|< | |rowspan=2|247. || Matrix with X[i] trailing zeroes on row i ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X∘.<⌽⍳⌈/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 248. || Matrix with X[i] leading zeroes on row i ||style="text-align: right;"|< | |rowspan=2| 248. || Matrix with X[i] leading zeroes on row i ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X∘.<⍳⌈/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 249. || Distribution of X into intervals between Y ||style="text-align: right;"|< | |rowspan=2| 249. || Distribution of X into intervals between Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+/((¯1↓Y)∘.≤X)∧(1↓Y)∘.>X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 250. || Histogram (distribution barchart; down the page) ||style="text-align: right;"|< | |rowspan=2| 250. || Histogram (distribution barchart; down the page) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>' ⎕'[⎕IO+(⌽⍳⌈/A)∘.≤A←+/(⍳1+(⌈/X)-⌊/X)∘.=X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 251. || Barchart of integer values (down the page) ||style="text-align: right;"|< | |rowspan=2| 251. || Barchart of integer values (down the page) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>' ⎕'[⎕IO+(⌽⍳⌈/X)∘.≤X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 252. || Test if X is an upper triangular matrix ||style="text-align: right;"|< | |rowspan=2| 252. || Test if X is an upper triangular matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/,(0≠X)≤A∘.≤A←⍳1↑⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 253. || Number of ?s intersecting ?s (X=starts, Y=stops) ||style="text-align: right;"|< | |rowspan=2| 253. || Number of ?s intersecting ?s (X=starts, Y=stops) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+/A∧⍉A←X∘.≤Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 254. || Contour levels Y at points with altitudes X ||style="text-align: right;"|< | |rowspan=2| 254. || Contour levels Y at points with altitudes X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y[+⌿Y∘.≤X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 255. || X×X upper triangular matrix ||style="text-align: right;"|< | |rowspan=2| 255. || X×X upper triangular matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍳X)∘.≤⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 256. || Classification of elements Y into X classes of equal size ||style="text-align: right;"|< | |rowspan=2| 256. || Classification of elements Y into X classes of equal size ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+/(A×X÷⌈/A←Y-⌊/Y)∘.≥¯1+⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 257. || Matrix with X[i] trailing ones on row i ||style="text-align: right;"|< | |rowspan=2| 257. || Matrix with X[i] trailing ones on row i ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X∘.≥⌽⍳⌈/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 258. || Comparison table ||style="text-align: right;"|< | |rowspan=2| 258. || Comparison table ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X∘.≥⍳⌈/X,0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 259. || Barchart of X with height Y (across the page) ||style="text-align: right;"|< | |rowspan=2| 259. || Barchart of X with height Y (across the page) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>' ⎕'[⎕IO+X∘.≥(⌈/X)×(⍳Y)÷Y]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 260. || Barchart of integer values (across the page) ||style="text-align: right;"|< | |rowspan=2| 260. || Barchart of integer values (across the page) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>' ⎕'[⎕IO+X∘.≥⍳⌈/X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 261. || Matrix with X[i] leading ones on row i ||style="text-align: right;"|< | |rowspan=2| 261. || Matrix with X[i] leading ones on row i ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X∘.≥⍳⌈/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 263. || Test if X is a lower triangular matrix ||style="text-align: right;"|< | |rowspan=2| 263. || Test if X is a lower triangular matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/,(0≠X)≤A∘.≥A←⍳1↑⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 264. || Test if X is within range [ Y[1],Y[2] ) ||style="text-align: right;"|< | |rowspan=2| 264. || Test if X is within range [ Y[1],Y[2] ) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>≠/X∘.≥Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 265. || Ordinal numbers of words in X that indices Y point to ||style="text-align: right;"|< | |rowspan=2| 265. || Ordinal numbers of words in X that indices Y point to ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1; Y←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕IO++/Y∘.≥(' '=X)/⍳⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 266. || Which class do elements of X belong to ||style="text-align: right;"|< | |rowspan=2| 266. || Which class do elements of X belong to ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+/X∘.≥0 50 100 1000</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 267. || X×X lower triangular matrix ||style="text-align: right;"|< | |rowspan=2| 267. || X×X lower triangular matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍳X)∘.≥⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 268. || Moving all blanks to end of each row ||style="text-align: right;"|< | |rowspan=2| 268. || Moving all blanks to end of each row ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍴X)⍴(,(+/A)∘.>-⎕IO-⍳¯1↑⍴X)\(,A←X≠' ')/,X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 269. || Justifying right fields of X (lengths Y) to length G ||style="text-align: right;"|< | |rowspan=2| 269. || Justifying right fields of X (lengths Y) to length G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I1; G←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(,Y∘.>⌽(⍳G)-⎕IO)\X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 270. || Justifying left fields of X (lengths Y) to length G ||style="text-align: right;"|< | |rowspan=2| 270. || Justifying left fields of X (lengths Y) to length G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I1; G←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(,Y∘.>(⍳G)-⎕IO)\X</syntaxhighlight> | ||
|} | |} | ||
=== Outer Product ∘.≠ ∘.= === | === Outer Product <syntaxhighlight lang=apl inline>∘.≠</syntaxhighlight> <syntaxhighlight lang=apl inline>∘.=</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|271. || Indices of elements of Y in corr. rows of X ( | |rowspan=2|271. || Indices of elements of Y in corr. rows of X (<syntaxhighlight lang=apl inline>X[i;]⍳Y[i;]</syntaxhighlight>) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1++/∧\1 2 1 3⍉Y∘.≠X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 273. || Indicating equal elements of X as a logical matrix ||style="text-align: right;"|< | |rowspan=2| 273. || Indicating equal elements of X as a logical matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍉X∘.=(1 1⍉<\X∘.=X)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 275. || Changing connection matrix X ( | |rowspan=2| 275. || Changing connection matrix X (<syntaxhighlight lang=apl inline>¯1 → 1</syntaxhighlight>) to a node matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(1 ¯1∘.=⍉X)+.×⍳1↑⍴⎕←X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 276. || Sums according to codes G ||style="text-align: right;"|< | |rowspan=2| 276. || Sums according to codes G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←D; G←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(G∘.=X)+.×Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 277. || Removing duplicate elements (nub) ||style="text-align: right;"|< | |rowspan=2| 277. || Removing duplicate elements (nub) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(1 1⍉<\X∘.=X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 278. || Changing node matrix X (starts,ends) to a connection matrix ||style="text-align: right;"|< | |rowspan=2| 278. || Changing node matrix X (starts,ends) to a connection matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>-/(⍳⌈/,X)∘.=⍉X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 279. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 279. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∨/∧/0 1∘.=X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 280. || Test if elements of X belong to corr. row of Y ( | |rowspan=2| 280. || Test if elements of X belong to corr. row of Y (<syntaxhighlight lang=apl inline>X[i;]∊Y[i;]</syntaxhighlight>) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←A2; 1↑⍴X←→1↑⍴Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∨/1 2 1 3⍉X∘.=Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 281. || Test if X is a permutation vector ||style="text-align: right;"|< | |rowspan=2| 281. || Test if X is a permutation vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∧/1=+⌿X∘.=⍳⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 282. || Occurrences of string X in string Y ||style="text-align: right;"|< | |rowspan=2| 282. || Occurrences of string X in string Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1; Y←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(∧⌿(¯1+⍳⍴X)⌽(X∘.=Y),0)/⍳1+⍴Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 283. || Division to Y classes with width H, minimum G ||style="text-align: right;"|< | |rowspan=2| 283. || Division to Y classes with width H, minimum G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←I0; G←D0; H←D0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+/(⍳Y)∘.=⌈(X-G)÷H</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 285. || Repeat matrix ||style="text-align: right;"|< | |rowspan=2| 285. || Repeat matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(((¯1⌽~A)∧A←(¯1↓X=1⌽X),0)/Y)∘.=Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 286. || X×X identity matrix ||style="text-align: right;"|< | |rowspan=2| 286. || X×X identity matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍳X)∘.=⍳X</syntaxhighlight> | ||
|} | |} | ||
=== Inner Product ⌈.× ⌊.× ⌊.+ ×.○ ×.* +.* === | === Inner Product <syntaxhighlight lang=apl inline>⌈.×</syntaxhighlight> <syntaxhighlight lang=apl inline>⌊.×</syntaxhighlight> <syntaxhighlight lang=apl inline>⌊.+</syntaxhighlight> <syntaxhighlight lang=apl inline>×.○</syntaxhighlight> <syntaxhighlight lang=apl inline>×.*</syntaxhighlight> <syntaxhighlight lang=apl inline>+.*</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|287. || Maxima of elements of subsets of X specified by Y ||style="text-align: right;"|< | |rowspan=2|287. || Maxima of elements of subsets of X specified by Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A+(X-A←⌊/X)⌈.×Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 288. || Indices of last non-blanks in rows ||style="text-align: right;"|< | |rowspan=2| 288. || Indices of last non-blanks in rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(' '≠X)⌈.×⍳¯1↑⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 289. || Maximum of X with weights Y ||style="text-align: right;"|< | |rowspan=2| 289. || Maximum of X with weights Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y⌈.×X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 290. || Minimum of X with weights Y ||style="text-align: right;"|< | |rowspan=2| 290. || Minimum of X with weights Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y⌊.×X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 292. || Extending a distance table to next leg ||style="text-align: right;"|< | |rowspan=2| 292. || Extending a distance table to next leg ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X←X⌊.+X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 293. || A way to combine trigonometric functions (sin X cos Y) ||style="text-align: right;"|< | |rowspan=2| 293. || A way to combine trigonometric functions (sin X cos Y) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1 2×.○X,Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 294. || Sine of a complex number ||style="text-align: right;"|< | |rowspan=2| 294. || Sine of a complex number ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; 2=1↑⍴X</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(2 2⍴1 6 2 5)×.○X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 295. || Products over subsets of X specified by Y ||style="text-align: right;"|< | |rowspan=2| 295. || Products over subsets of X specified by Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X×.*Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 296. || Sum of squares of X ||style="text-align: right;"|< | |rowspan=2| 296. || Sum of squares of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X+.*2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 297. || Randomizing random numbers (in | |rowspan=2| 297. || Randomizing random numbers (in <syntaxhighlight lang=apl inline>⎕LX</syntaxhighlight> in a workspace) ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕RL←⎕TS+.*2</syntaxhighlight> | ||
|} | |} | ||
=== Inner Product ∨. | === Inner Product <syntaxhighlight lang=apl inline>∨.∧</syntaxhighlight> <syntaxhighlight lang=apl inline><.<</syntaxhighlight> <syntaxhighlight lang=apl inline><.≤</syntaxhighlight> <syntaxhighlight lang=apl inline><.≥</syntaxhighlight> <syntaxhighlight lang=apl inline>≤.≥</syntaxhighlight> <syntaxhighlight lang=apl inline>>.></syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|298. || Extending a transitive binary relation ||style="text-align: right;"|< | |rowspan=2|298. || Extending a transitive binary relation ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X←X∨.∧X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 299. || Test if X is within range [ Y[1;],Y[2;] ) ||style="text-align: right;"|< | |rowspan=2| 299. || Test if X is within range [ Y[1;],Y[2;] ) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D2; 1↑⍴Y ←→ 2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X<.<Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 300. || Test if X is within range ( Y[1;],Y[2;] ] ||style="text-align: right;"|< | |rowspan=2| 300. || Test if X is within range ( Y[1;],Y[2;] ] ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D2; 1↑⍴Y ←→ 2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X<.≤Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 301. || Test if X is within range ( Y[1;],Y[2;] ] ||style="text-align: right;"|< | |rowspan=2| 301. || Test if X is within range ( Y[1;],Y[2;] ] ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D2; 1↑⍴Y ←→ 2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X<.≤Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 302. || Test if the elements of X are ascending ||style="text-align: right;"|< | |rowspan=2| 302. || Test if the elements of X are ascending ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X<.≥1⌽X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 303. || Test if X is an integer within range [ G,H ) ||style="text-align: right;"|< | |rowspan=2| 303. || Test if X is an integer within range [ G,H ) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; G←I0; H←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>~X≤.≥(⌈X),G,H</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 304. || Test if X is within range ( Y[1;],Y[2;] ] ||style="text-align: right;"|< | |rowspan=2| 304. || Test if X is within range ( Y[1;],Y[2;] ] ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D2; 1↑⍴Y ←→ 2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X,[.1+⍴⍴X]X)>.>Y</syntaxhighlight> | ||
|} | |} | ||
=== Inner Product ∨.≠ | === Inner Product <syntaxhighlight lang=apl inline>∨.≠</syntaxhighlight> <syntaxhighlight lang=apl inline>∧.=</syntaxhighlight> <syntaxhighlight lang=apl inline>+.≠</syntaxhighlight> <syntaxhighlight lang=apl inline>+.=</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|306. || Removing trailing blank columns ||style="text-align: right;"|< | |rowspan=2|306. || Removing trailing blank columns ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⌽∨\⌽' '∨.≠X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 307. || Removing leading blank rows ||style="text-align: right;"|< | |rowspan=2| 307. || Removing leading blank rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(∨\X∨.≠' ')⌿X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 308. || Removing leading blank columns ||style="text-align: right;"|< | |rowspan=2| 308. || Removing leading blank columns ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(∨\' '∨.≠X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 309. || Index of first occurrences of rows of X as rows of Y ||style="text-align: right;"|< | |rowspan=2| 309. || Index of first occurrences of rows of X as rows of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A, Y←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕IO++⌿∧⍀Y∨.≠⍉X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 310. || | |rowspan=2| 310. || <syntaxhighlight lang=apl inline>X⍳Y</syntaxhighlight> for rows of matrices ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⎕IO++⌿∧⍀X∨.≠⍉Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 311. || Removing duplicate blank rows ||style="text-align: right;"|< | |rowspan=2| 311. || Removing duplicate blank rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(A∨1↓1⌽1,A←X∨.≠' ')⌿X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 312. || Removing duplicate blank columns ||style="text-align: right;"|< | |rowspan=2| 312. || Removing duplicate blank columns ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(A∨1,¯1↓A←' '∨.≠X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 313. || Removing blank columns ||style="text-align: right;"|< | |rowspan=2| 313. || Removing blank columns ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(' '∨.≠X)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 314. || Removing blank rows ||style="text-align: right;"|< | |rowspan=2| 314. || Removing blank rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X∨.≠' ')⌿X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 315. || Test if rows of X contain elements differing from Y ||style="text-align: right;"|< | |rowspan=2| 315. || Test if rows of X contain elements differing from Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X∨.≠Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 316. || Removing trailing blank rows ||style="text-align: right;"|< | |rowspan=2| 316. || Removing trailing blank rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(-2↑+/∧\⌽X∧.=' ')↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 317. || Removing duplicate rows ||style="text-align: right;"|< | |rowspan=2| 317. || Removing duplicate rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(∨⌿<\X∧.=⍉X)⌿X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 318. || Removing duplicate rows ||style="text-align: right;"|< | |rowspan=2| 318. || Removing duplicate rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(1 1⍉<\X∧.=⍉X)⌿X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 319. || Test if circular lists are equal (excluding phase) ||style="text-align: right;"|< | |rowspan=2| 319. || Test if circular lists are equal (excluding phase) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∨/Y∧.=⍉(⍳⍴X)⌽(2⍴⍴X)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 320. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 320. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X∧.=∨/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 321. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 321. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X∧.=∧/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 322. || Rows of matrix X starting with string Y ||style="text-align: right;"|< | |rowspan=2| 322. || Rows of matrix X starting with string Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((((1↑⍴X),⍴Y)↑X)∧.=Y)⌿X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 323. || Occurrences of string X in string Y ||style="text-align: right;"|< | |rowspan=2| 323. || Occurrences of string X in string Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((-A)↓X∧.=(A,1+⍴Y)⍴Y)/⍳(⍴Y)+1-A←⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 324. || Test if vector Y is a row of array X ||style="text-align: right;"|< | |rowspan=2| 324. || Test if vector Y is a row of array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1∊X∧.=Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 325. || Comparing vector Y with rows of array X ||style="text-align: right;"|< | |rowspan=2| 325. || Comparing vector Y with rows of array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X∧.=Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 326. || Word lengths of words in list X ||style="text-align: right;"|< | |rowspan=2| 326. || Word lengths of words in list X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X+.≠' '</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 327. || Number of occurrences of scalar X in array Y ||style="text-align: right;"|< | |rowspan=2| 327. || Number of occurrences of scalar X in array Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A0; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X+.=,Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 328. || Counting pairwise matches (equal elements) in two vectors ||style="text-align: right;"|< | |rowspan=2| 328. || Counting pairwise matches (equal elements) in two vectors ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X+.=Y</syntaxhighlight> | ||
|} | |} | ||
=== Inner Product -.÷ +.÷ +.× === | === Inner Product <syntaxhighlight lang=apl inline>-.÷</syntaxhighlight> <syntaxhighlight lang=apl inline>+.÷</syntaxhighlight> <syntaxhighlight lang=apl inline>+.×</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|329. || Sum of alternating reciprocal series Y÷X ||style="text-align: right;"|< | |rowspan=2|329. || Sum of alternating reciprocal series Y÷X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y-.÷X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 330. || Limits X to fit in | |rowspan=2| 330. || Limits X to fit in <syntaxhighlight lang=apl inline>⍕</syntaxhighlight> field Y[1 2] ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X⌈1↓A)⌊1↑A←(2 2⍴¯1 1 1 ¯.1)+.×10*(-1↓Y),-/Y+Y>99 0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 331. || Value of polynomial with coefficients Y at point X ||style="text-align: right;"|< | |rowspan=2| 331. || Value of polynomial with coefficients Y at point X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X*¯1+⍳⍴Y)+.×⌽Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 332. || Arithmetic average (mean value) of X weighted by Y ||style="text-align: right;"|< | |rowspan=2| 332. || Arithmetic average (mean value) of X weighted by Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y+.×X)÷⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 333. || Scalar (dot) product of vectors ||style="text-align: right;"|< | |rowspan=2| 333. || Scalar (dot) product of vectors ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y+.×X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 334. || Sum of squares of X ||style="text-align: right;"|< | |rowspan=2| 334. || Sum of squares of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X+.×X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 335. || Summation over subsets of X specified by Y ||style="text-align: right;"|< | |rowspan=2| 335. || Summation over subsets of X specified by Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X+.×Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 336. || Matrix product ||style="text-align: right;"|< | |rowspan=2| 336. || Matrix product ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D; ¯1↑⍴X ←→ 1↑⍴Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X+.×Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 337. || Sum of reciprocal series Y÷X ||style="text-align: right;"|< | |rowspan=2| 337. || Sum of reciprocal series Y÷X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y+.÷X</syntaxhighlight> | ||
|} | |} | ||
=== Scan ⌈\ ⌊\ ×\ -\ === | === Scan <syntaxhighlight lang=apl inline>⌈\</syntaxhighlight> <syntaxhighlight lang=apl inline>⌊\</syntaxhighlight> <syntaxhighlight lang=apl inline>×\</syntaxhighlight> <syntaxhighlight lang=apl inline>-\</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|338. || Groups of ones in Y pointed to by X (or trailing parts) ||style="text-align: right;"|< | |rowspan=2|338. || Groups of ones in Y pointed to by X (or trailing parts) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B; Y←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y∧A=⌈\X×A←+\Y>¯1↓0,Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 339. || Test if X is in ascending order along direction Y ||style="text-align: right;"|< | |rowspan=2| 339. || Test if X is in ascending order along direction Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/[Y]X=⌈\[Y]X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 340. || Duplicating element of X belonging to | |rowspan=2| 340. || Duplicating element of X belonging to <syntaxhighlight lang=apl inline>Y,1↑X</syntaxhighlight> until next found ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[1⌈⌈\Y×⍳⍴Y]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 341. || Test if X is in descending order along direction Y ||style="text-align: right;"|< | |rowspan=2| 341. || Test if X is in descending order along direction Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/[Y]X=⌊\[Y]X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 342. || Value of Taylor series with coefficients Y at point X ||style="text-align: right;"|< | |rowspan=2| 342. || Value of Taylor series with coefficients Y at point X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+/Y××\1,X÷⍳¯1+⍴Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 343. || Alternating series (1 ¯1 2 ¯2 3 ¯3 ...) ||style="text-align: right;"|< | |rowspan=2| 343. || Alternating series (1 ¯1 2 ¯2 3 ¯3 ...) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>-\⍳X</syntaxhighlight> | ||
|} | |} | ||
=== Scan ⍲\ <\ ≤\ ≠\ === | === Scan <syntaxhighlight lang=apl inline>⍲\</syntaxhighlight> <syntaxhighlight lang=apl inline><\</syntaxhighlight> <syntaxhighlight lang=apl inline>≤\</syntaxhighlight> <syntaxhighlight lang=apl inline>≠\</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|346. || Value of saddle point ||style="text-align: right;"|< | |rowspan=2|346. || Value of saddle point ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(<\,(X=(⍴X)⍴⌈⌿X)∧X=⍉(⌽⍴X)⍴⌊/X)/,X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 348. || First one (turn off all ones after first one) ||style="text-align: right;"|< | |rowspan=2| 348. || First one (turn off all ones after first one) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline><\X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 350. || Not first zero (turn on all zeroes after first zero) ||style="text-align: right;"|< | |rowspan=2| 350. || Not first zero (turn on all zeroes after first zero) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>≤\X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 351. || Running parity (≠\) over subvectors of Y indicated by X ||style="text-align: right;"|< | |rowspan=2| 351. || Running parity (≠\) over subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>≠\Y≠X\A≠¯1↓0,A←X/≠\¯1↓0,Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 352. || Vector | |rowspan=2| 352. || Vector <syntaxhighlight lang=apl inline>(X[1]⍴1),(X[2]⍴0),(X[3]⍴1),...</syntaxhighlight> ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>≠\(⍳+/X)∊+\⎕IO,X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 353. || Not leading zeroes( | |rowspan=2| 353. || Not leading zeroes(<syntaxhighlight lang=apl inline>∨\</syntaxhighlight>) in each subvector of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←B1</syntaxhighlight> | ||
|- style="background-color | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>≠\(Y∨X)\A≠¯1↓0,A←(Y∨X)/Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 354. || Leading ones ( | |rowspan=2| 354. || Leading ones (<syntaxhighlight lang=apl inline>∧\</syntaxhighlight>) in each subvector of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>~≠\(Y≤X)\A≠¯1↓0,A←~(Y≤X)/Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 355. || Locations of texts between and including quotes ||style="text-align: right;"|< | |rowspan=2| 355. || Locations of texts between and including quotes ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A∨¯1↓0,A←≠\X=''''</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 356. || Locations of texts between quotes ||style="text-align: right;"|< | |rowspan=2| 356. || Locations of texts between quotes ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A∧¯1↓0,A←≠\X=''''</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 357. || Joining pairs of ones ||style="text-align: right;"|< | |rowspan=2| 357. || Joining pairs of ones ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X∨≠\X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 358. || Places between pairs of ones ||style="text-align: right;"|< | |rowspan=2| 358. || Places between pairs of ones ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(~X)∧≠\X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 359. || Running parity ||style="text-align: right;"|< | |rowspan=2| 359. || Running parity ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>≠\X</syntaxhighlight> | ||
|} | |} | ||
=== Scan ∨\ | === Scan <syntaxhighlight lang=apl inline>∨\</syntaxhighlight> <syntaxhighlight lang=apl inline>∧\</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|360. || Removing leading and trailing blanks ||style="text-align: right;"|< | |rowspan=2|360. || Removing leading and trailing blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((⌽∨\⌽A)∧∨\A←' '≠X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 361. || First group of ones ||style="text-align: right;"|< | |rowspan=2| 361. || First group of ones ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X∧∧\X=∨\X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 362. || Removing trailing blank columns ||style="text-align: right;"|< | |rowspan=2| 362. || Removing trailing blank columns ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⌽∨\⌽∨⌿' '≠X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 363. || Removing trailing blanks ||style="text-align: right;"|< | |rowspan=2| 363. || Removing trailing blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⌽∨\⌽' '≠X)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 364. || Removing leading blanks ||style="text-align: right;"|< | |rowspan=2| 364. || Removing leading blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(∨\' '≠X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 365. || Not leading zeroes (turn on all zeroes after first one) ||style="text-align: right;"|< | |rowspan=2| 365. || Not leading zeroes (turn on all zeroes after first one) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∨\X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 366. || Centering character array X with ragged edges ||style="text-align: right;"|< | |rowspan=2| 366. || Centering character array X with ragged edges ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(A-⌊0.5×(A←+/∧\⌽A)++/∧\A←' '=⌽X)⌽X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 367. || Decommenting a matrix representation of a function ( | |rowspan=2| 367. || Decommenting a matrix representation of a function (<syntaxhighlight lang=apl inline>⎕CR</syntaxhighlight>) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(∨/A)⌿(⍴X)⍴(,A)\(,A←∧\('⍝'≠X)∨≠\X='''')/,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 369. || Centering character array X with only right edge ragged ||style="text-align: right;"|< | |rowspan=2| 369. || Centering character array X with only right edge ragged ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(-⌊0.5×+/∧\' '=⌽X)⌽X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 370. || Justifying right ||style="text-align: right;"|< | |rowspan=2| 370. || Justifying right ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(-+/∧\⌽' '=X)⌽X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 371. || Removing trailing blanks ||style="text-align: right;"|< | |rowspan=2| 371. || Removing trailing blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(-+/∧\⌽' '=X)↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 372. || Justifying left ||style="text-align: right;"|< | |rowspan=2| 372. || Justifying left ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(+/∧\' '=X)⌽X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 373. || Editing X with Y '-wise ||style="text-align: right;"|< | |rowspan=2| 373. || Editing X with Y '-wise ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1; Y←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((~(⍴A↑X)↑'/'=Y)/A↑X),(1↓A↓Y),(A←+/∧\Y≠',')↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 374. || Removing leading blanks ||style="text-align: right;"|< | |rowspan=2| 374. || Removing leading blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(+/∧\' '=X)↓X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 375. || Indices of first blanks in rows of array X ||style="text-align: right;"|< | |rowspan=2| 375. || Indices of first blanks in rows of array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⎕IO++/∧\' '≠X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 377. || Leading ones (turn off all ones after first zero) ||style="text-align: right;"|< | |rowspan=2| 377. || Leading ones (turn off all ones after first zero) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧\X</syntaxhighlight> | ||
|} | |} | ||
=== Scan +\ === | === Scan <syntaxhighlight lang=apl inline>+\</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|378. || Vector ( | |rowspan=2|378. || Vector (<syntaxhighlight lang=apl inline>X[1]⍴1),(Y[1]⍴0),(X[2]⍴1),...</syntaxhighlight> ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍳+/X,Y)∊+\1+¯1↓0,((⍳+/X)∊+\X)\Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 379. || Replicate Y[i] X[i] times (for all i) ||style="text-align: right;"|< | |rowspan=2| 379. || Replicate Y[i] X[i] times (for all i) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((X≠0)/Y)[+\¯1⌽(⍳+/X)∊+\X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 380. || Vector ( | |rowspan=2| 380. || Vector (<syntaxhighlight lang=apl inline>Y[1]+⍳X[1]),(Y[2]+⍳X[2]),(Y[3]+⍳X[3]),...</syntaxhighlight> ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←I1; ⍴X←→⍴Y</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⎕IO++\1+((⍳+/X)∊+\⎕IO,X)\Y-¯1↓1,X+Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 381. || Replicate Y[i] X[i] times (for all i) ||style="text-align: right;"|< | |rowspan=2| 381. || Replicate Y[i] X[i] times (for all i) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y[+\(⍳+/X)∊¯1↓1++\0,X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 382. || Replicate Y[i] X[i] times (for all i) ||style="text-align: right;"|< | |rowspan=2| 382. || Replicate Y[i] X[i] times (for all i) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y[⎕IO++\(⍳+/X)∊⎕IO++\X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 383. || Cumulative sums (+\) over subvectors of Y indicated by X ||style="text-align: right;"|< | |rowspan=2| 383. || Cumulative sums (+\) over subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+\Y-X\A-¯1↓0,A←X/+\¯1↓0,Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 384. || Sums over (+/) subvectors of Y, lengths in X ||style="text-align: right;"|< | |rowspan=2| 384. || Sums over (+/) subvectors of Y, lengths in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A-¯1↓0,A←(+\Y)[+\X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 386. || X first figurate numbers ||style="text-align: right;"|< | |rowspan=2| 386. || X first figurate numbers ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+\+\⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 387. || Insert vector for X[i] zeroes after i:th subvector ||style="text-align: right;"|< | |rowspan=2| 387. || Insert vector for X[i] zeroes after i:th subvector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍳(⍴Y)++/X)∊+\1+¯1↓0,(1⌽Y)\X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 388. || Open a gap of X[i] after Y[G[i]] (for all i) ||style="text-align: right;"|< | |rowspan=2| 388. || Open a gap of X[i] after Y[G[i]] (for all i) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←A1; G←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((⍳(⍴Y)++/X)∊+\1+¯1↓0,((⍳⍴Y)∊G)\X)\Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 389. || Open a gap of X[i] before Y[G[i]] (for all i) ||style="text-align: right;"|< | |rowspan=2| 389. || Open a gap of X[i] before Y[G[i]] (for all i) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←A1; G←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((⍳(⍴Y)++/X)∊+\1+((⍳⍴Y)∊G)\X)\Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 390. || Changing lengths X of subvectors to starting indicators ||style="text-align: right;"|< | |rowspan=2| 390. || Changing lengths X of subvectors to starting indicators ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A←(+/X)⍴0 ⋄ A[+\¯1↓⎕IO,X]←1 ⋄ A</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 391. || Changing lengths X of subvectors to ending indicators ||style="text-align: right;"|< | |rowspan=2| 391. || Changing lengths X of subvectors to ending indicators ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍳+/X)∊(+\X)-~⎕IO</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 392. || Changing lengths X of subvectors to starting indicators ||style="text-align: right;"|< | |rowspan=2| 392. || Changing lengths X of subvectors to starting indicators ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍳+/X)∊+\⎕IO,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 393. || Insert vector for X[i] elements before i:th element ||style="text-align: right;"|< | |rowspan=2| 393. || Insert vector for X[i] elements before i:th element ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍳+/A)∊+\A←1+X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 394. || Sums over (+/) subvectors of Y indicated by X ||style="text-align: right;"|< | |rowspan=2| 394. || Sums over (+/) subvectors of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A-¯1↓0,A←(1⌽X)/+\Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 395. || Fifo stock Y decremented with X units ||style="text-align: right;"|< | |rowspan=2| 395. || Fifo stock Y decremented with X units ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←D1; X←D0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>G-¯1↓0,G←0⌈(+\Y)-X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 396. || Locations of texts between and including quotes ||style="text-align: right;"|< | |rowspan=2| 396. || Locations of texts between and including quotes ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A∨¯1↓0,A←2|+\X=''''</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 397. || Locations of texts between quotes ||style="text-align: right;"|< | |rowspan=2| 397. || Locations of texts between quotes ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A∧¯1↓0,A←2|+\X=''''</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 398. || X:th subvector of Y (subvectors separated by Y[1]) ||style="text-align: right;"|< | |rowspan=2| 398. || X:th subvector of Y (subvectors separated by Y[1]) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←A1; X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1↓(X=+\Y=1↑Y)/Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 399. || Locating field number Y starting with first element of X ||style="text-align: right;"|< | |rowspan=2| 399. || Locating field number Y starting with first element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←I0; X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(Y=+\X=1↑X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 400. || Sum elements of X marked by succeeding identicals in Y ||style="text-align: right;"|< | |rowspan=2| 400. || Sum elements of X marked by succeeding identicals in Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A-¯1↓0,A←(Y≠1↓Y,0)/+\X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 401. || Groups of ones in Y pointed to by X ||style="text-align: right;"|< | |rowspan=2| 401. || Groups of ones in Y pointed to by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y∧A∊(X∧Y)/A←+\Y>¯1↓0,Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 402. || ith starting indicators X ||style="text-align: right;"|< | |rowspan=2| 402. || ith starting indicators X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(+\X)∊Y/⍳⍴Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 403. || G:th subvector of Y (subvectors indicated by X) ||style="text-align: right;"|< | |rowspan=2| 403. || G:th subvector of Y (subvectors indicated by X) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←A1; G←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(G=+\X)/Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 404. || Running sum of Y consecutive elements of X ||style="text-align: right;"|< | |rowspan=2| 404. || Running sum of Y consecutive elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((Y-1)↓A)-0,(-Y)↓A←+\X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 405. || Depth of parentheses ||style="text-align: right;"|< | |rowspan=2| 405. || Depth of parentheses ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+\('('=X)-¯1↓0,')'=X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 406. || Starting positions of subvectors having lengths X ||style="text-align: right;"|< | |rowspan=2| 406. || Starting positions of subvectors having lengths X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+\¯1↓⎕IO,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 407. || Changing lengths X of subvectors of Y to ending indicators ||style="text-align: right;"|< | |rowspan=2| 407. || Changing lengths X of subvectors of Y to ending indicators ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍳⍴Y)∊(+\X)-~⎕IO</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 408. || Changing lengths X of subvectors of Y to starting indicators ||style="text-align: right;"|< | |rowspan=2| 408. || Changing lengths X of subvectors of Y to starting indicators ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍳⍴Y)∊+\⎕IO,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 409. || X first triangular numbers ||style="text-align: right;"|< | |rowspan=2| 409. || X first triangular numbers ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+\⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 410. || Cumulative sum ||style="text-align: right;"|< | |rowspan=2| 410. || Cumulative sum ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+\X</syntaxhighlight> | ||
|} | |} | ||
=== Reduction ○/ ÷/ -/ ×/ === | === Reduction <syntaxhighlight lang=apl inline>○/</syntaxhighlight> <syntaxhighlight lang=apl inline>÷/</syntaxhighlight> <syntaxhighlight lang=apl inline>-/</syntaxhighlight> <syntaxhighlight lang=apl inline>×/</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|411. || Complementary angle (arccos sin X) ||style="text-align: right;"|< | |rowspan=2|411. || Complementary angle (arccos sin X) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>○/¯2 1,X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 412. || Evaluating a two-row determinant ||style="text-align: right;"|< | |rowspan=2| 412. || Evaluating a two-row determinant ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>-/×/0 1⊖X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 413. || Evaluating a two-row determinant ||style="text-align: right;"|< | |rowspan=2| 413. || Evaluating a two-row determinant ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>-/×⌿0 1⌽X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 414. || Area of triangle with side lengths in X (Heron's formula) ||style="text-align: right;"|< | |rowspan=2| 414. || Area of triangle with side lengths in X (Heron's formula) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; 3 ←→ ⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(×/(+/X÷2)-0,X)*.5</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 415. || Juxtapositioning planes of rank 3 array X ||style="text-align: right;"|< | |rowspan=2| 415. || Juxtapositioning planes of rank 3 array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A3</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(×⌿2 2⍴1,⍴X)⍴2 1 3⍉X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 416. || Number of rows in array X (also of a vector) ||style="text-align: right;"|< | |rowspan=2| 416. || Number of rows in array X (also of a vector) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>×/¯1↓⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 417. || (Real) solution of quadratic equation with coefficients X ||style="text-align: right;"|< | |rowspan=2| 417. || (Real) solution of quadratic equation with coefficients X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; 3 ←→ ⍴X</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(-X[2]-¯1 1×((X[2]*2)-×/4,X[1 3])*.5)÷2×X[1]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 418. || Reshaping planes of rank 3 array to rows of a matrix ||style="text-align: right;"|< | |rowspan=2| 418. || Reshaping planes of rank 3 array to rows of a matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A3</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(×/2 2⍴1,⍴X)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 419. || Reshaping planes of rank 3 array to a matrix ||style="text-align: right;"|< | |rowspan=2| 419. || Reshaping planes of rank 3 array to a matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A3</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(×/2 2⍴(⍴X),1)⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 420. || Number of elements (also of a scalar) ||style="text-align: right;"|< | |rowspan=2| 420. || Number of elements (also of a scalar) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>×/⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 421. || Product of elements of X ||style="text-align: right;"|< | |rowspan=2| 421. || Product of elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>×/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 422. || Alternating product ||style="text-align: right;"|< | |rowspan=2| 422. || Alternating product ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>÷/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 423. || Centering text line X into a field of width Y ||style="text-align: right;"|< | |rowspan=2| 423. || Centering text line X into a field of width Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y↑((⌊-/.5×Y,⍴X)⍴' '),X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 424. || Alternating sum ||style="text-align: right;"|< | |rowspan=2| 424. || Alternating sum ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>-/X</syntaxhighlight> | ||
|} | |} | ||
=== Reduction ⌈/ ⌊/ === | === Reduction <syntaxhighlight lang=apl inline>⌈/</syntaxhighlight> <syntaxhighlight lang=apl inline>⌊/</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|425. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2|425. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⌈/X)=⌊/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 426. || Size of range of elements of X ||style="text-align: right;"|< | |rowspan=2| 426. || Size of range of elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⌈/X)-⌊/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 427. || Conversion of set of positive integers X to a mask ||style="text-align: right;"|< | |rowspan=2| 427. || Conversion of set of positive integers X to a mask ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍳⌈/X)∊X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 428. || Negative infinity; the smallest representable value ||style="text-align: right;"|< | |rowspan=2| 428. || Negative infinity; the smallest representable value ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌈/⍳0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 429. || Vectors as column matrices in catenation beneath each other ||style="text-align: right;"|< | |rowspan=2| 429. || Vectors as column matrices in catenation beneath each other ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1/2; Y←A1/2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X,[1+.5×⌈/(⍴⍴X),⍴⍴Y]Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 430. || Vectors as row matrices in catenation upon each other ||style="text-align: right;"|< | |rowspan=2| 430. || Vectors as row matrices in catenation upon each other ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1/2; Y←A1/2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X,[.5×⌈/(⍴⍴X),⍴⍴Y]Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 431. || Quick membership ( | |rowspan=2| 431. || Quick membership (<syntaxhighlight lang=apl inline>∊</syntaxhighlight>) for positive integers ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←(⌈/X,Y)⍴0 ⋄ A[Y]←1 ⋄ A[X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 432. || Positive maximum, at least zero (also for empty X) ||style="text-align: right;"|< | |rowspan=2| 432. || Positive maximum, at least zero (also for empty X) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌈/X,0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 433. || Maximum of elements of X ||style="text-align: right;"|< | |rowspan=2| 433. || Maximum of elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⌈/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 434. || Positive infinity; the largest representable value ||style="text-align: right;"|< | |rowspan=2| 434. || Positive infinity; the largest representable value ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌊/⍳0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 435. || Minimum of elements of X ||style="text-align: right;"|< | |rowspan=2| 435. || Minimum of elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⌊/X</syntaxhighlight> | ||
|} | |} | ||
=== Reduction ∨/ ⍲/ ≠/ === | === Reduction <syntaxhighlight lang=apl inline>∨/</syntaxhighlight> <syntaxhighlight lang=apl inline>⍲/</syntaxhighlight> <syntaxhighlight lang=apl inline>≠/</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|436. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2|436. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍲/0 1∊X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 437. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 437. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(∧/X)∨~∨/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 438. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 438. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(∧/X)=∨/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 439. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 439. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/X÷∨/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 440. || Removing duplicate rows from ordered matrix X ||style="text-align: right;"|< | |rowspan=2| 440. || Removing duplicate rows from ordered matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(¯1⌽1↓(∨/X≠¯1⊖X),1)⌿X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 441. || Vector having as many ones as X has rows ||style="text-align: right;"|< | |rowspan=2| 441. || Vector having as many ones as X has rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∨/0/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 442. || Test if X and Y have elements in common ||style="text-align: right;"|< | |rowspan=2| 442. || Test if X and Y have elements in common ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∨/Y∊X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 443. || None, neither ||style="text-align: right;"|< | |rowspan=2| 443. || None, neither ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>~∨/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 444. || Any, anyone ||style="text-align: right;"|< | |rowspan=2| 444. || Any, anyone ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∨/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 445. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 445. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>≠/0 1∊X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 446. || Parity ||style="text-align: right;"|< | |rowspan=2| 446. || Parity ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>≠/X</syntaxhighlight> | ||
|} | |} | ||
=== Reduction | === Reduction <syntaxhighlight lang=apl inline>∧/</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|447. || Number of areas intersecting areas in X ||style="text-align: right;"|< | |rowspan=2|447. || Number of areas intersecting areas in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D3 (n × 2 × dim)</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+/A∧⍉A←∧/X[;A⍴1;]≤2 1 3⍉X[;(A←1↑⍴X)⍴2;]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 448. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 448. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/X/1⌽X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 449. || Comparison of successive rows ||style="text-align: right;"|< | |rowspan=2| 449. || Comparison of successive rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∧/X=1⊖X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 450. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 450. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/X=1⌽X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 451. || Test if X is a valid APL name ||style="text-align: right;"|< | |rowspan=2| 451. || Test if X is a valid APL name ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∧/((1↑X)∊10↓A),X∊A←'0..9A..Za..z'</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 452. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 452. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/X=1↑X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 453. || Identity of two sets ||style="text-align: right;"|< | |rowspan=2| 453. || Identity of two sets ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∧/(X∊Y),Y∊X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 454. || Test if X is a permutation vector ||style="text-align: right;"|< | |rowspan=2| 454. || Test if X is a permutation vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/(⍳⍴X)∊X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 455. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 455. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>~∧/X∊~X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 456. || Test if X is boolean ||style="text-align: right;"|< | |rowspan=2| 456. || Test if X is boolean ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/,X∊0 1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 457. || Test if Y is a subset of X ( | |rowspan=2| 457. || Test if Y is a subset of X (<syntaxhighlight lang=apl inline>Y ⊂ X</syntaxhighlight>) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∧/Y∊X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 458. || Test if arrays of equal shape are identical ||style="text-align: right;"|< | |rowspan=2| 458. || Test if arrays of equal shape are identical ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A; ⍴X ←→ ⍴Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/,X=Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 459. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 459. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∧/X=X[1]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 460. || Blank rows ||style="text-align: right;"|< | |rowspan=2| 460. || Blank rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>∧/' '=X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 461. || All, both ||style="text-align: right;"|< | |rowspan=2| 461. || All, both ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>∧/X</syntaxhighlight> | ||
|} | |} | ||
=== Reduction +/ === | === Reduction <syntaxhighlight lang=apl inline>+/</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|462. || Standard deviation of X ||style="text-align: right;"|< | |rowspan=2|462. || Standard deviation of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((+/(X-(+/X)÷⍴X)*2)÷⍴X)*.5</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 463. || Y:th moment of X ||style="text-align: right;"|< | |rowspan=2| 463. || Y:th moment of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(+/(X-(+/X)÷⍴X)*Y)÷⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 464. || Variance (dispersion) of X ||style="text-align: right;"|< | |rowspan=2| 464. || Variance (dispersion) of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(+/(X-(+/X)÷⍴X)*2)÷⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 465. || Arithmetic average (mean value), also for an empty array ||style="text-align: right;"|< | |rowspan=2| 465. || Arithmetic average (mean value), also for an empty array ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(+/,X)÷1⌈⍴,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 466. || Test if all elements of vector X are equal ||style="text-align: right;"|< | |rowspan=2| 466. || Test if all elements of vector X are equal ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>0=(⍴X)|+/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 467. || Average (mean value) of columns of matrix X ||style="text-align: right;"|< | |rowspan=2| 467. || Average (mean value) of columns of matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(+⌿X)÷1↑(⍴X),1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 468. || Average (mean value) of rows of matrix X ||style="text-align: right;"|< | |rowspan=2| 468. || Average (mean value) of rows of matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(+/X)÷¯1↑1,⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 469. || Number of occurrences of scalar X in array Y ||style="text-align: right;"|< | |rowspan=2| 469. || Number of occurrences of scalar X in array Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A0; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+/X=,Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 470. || Average (mean value) of elements of X along direction Y ||style="text-align: right;"|< | |rowspan=2| 470. || Average (mean value) of elements of X along direction Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(+/[Y]X)÷(⍴X)[Y]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 471. || Arithmetic average (mean value) ||style="text-align: right;"|< | |rowspan=2| 471. || Arithmetic average (mean value) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(+/X)÷⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 472. || Resistance of parallel resistors ||style="text-align: right;"|< | |rowspan=2| 472. || Resistance of parallel resistors ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>÷+/÷X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 473. || Sum of elements of X ||style="text-align: right;"|< | |rowspan=2| 473. || Sum of elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 474. || Row sum of a matrix ||style="text-align: right;"|< | |rowspan=2| 474. || Row sum of a matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 475. || Column sum of a matrix ||style="text-align: right;"|< | |rowspan=2| 475. || Column sum of a matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+⌿X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 476. || Reshaping one-element vector X into a scalar ||style="text-align: right;"|< | |rowspan=2| 476. || Reshaping one-element vector X into a scalar ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 477. || Number of elements satisfying condition X ||style="text-align: right;"|< | |rowspan=2| 477. || Number of elements satisfying condition X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>+/X</syntaxhighlight> | ||
|} | |} | ||
=== Reverse ⌽ ⊖ === | === Reverse <syntaxhighlight lang=apl inline>⌽</syntaxhighlight> <syntaxhighlight lang=apl inline>⊖</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|478. || Scan from end with function | |rowspan=2|478. || Scan from end with function <syntaxhighlight lang=apl inline>⍺</syntaxhighlight> ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⌽⍺\⌽X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 479. || The index of positive integers in Y ||style="text-align: right;"|< | |rowspan=2| 479. || The index of positive integers in Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I; Y←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A←9999⍴⎕IO+⍴Y ⋄ A[⌽Y]←⌽⍳⍴Y ⋄ A[X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 480. || 'Transpose' of matrix X with column fields of width Y ||style="text-align: right;"|< | |rowspan=2| 480. || 'Transpose' of matrix X with column fields of width Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; G←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((⌽A)×1,Y)⍴2 1 3⍉(1⌽Y,A←(⍴X)÷1,Y)⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 482. || Adding X to each column of Y ||style="text-align: right;"|< | |rowspan=2| 482. || Adding X to each column of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D; (⍴X)=1↑⍴Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y+⍉(⌽⍴Y)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 483. || Matrix with shape of Y and X as its columns ||style="text-align: right;"|< | |rowspan=2| 483. || Matrix with shape of Y and X as its columns ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍉(⌽⍴Y)⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 484. || Derivate of polynomial X ||style="text-align: right;"|< | |rowspan=2| 484. || Derivate of polynomial X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>¯1↓X×⌽¯1+⍳⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 485. || Reverse vector X on condition Y ||style="text-align: right;"|< | |rowspan=2| 485. || Reverse vector X on condition Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←B0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>,⌽[⎕IO+Y](1,⍴X)⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 486. || Reshaping vector X into a one-column matrix ||style="text-align: right;"|< | |rowspan=2| 486. || Reshaping vector X into a one-column matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⌽1,⍴X)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 487. || Avoiding parentheses with help of reversal ||style="text-align: right;"|< | |rowspan=2| 487. || Avoiding parentheses with help of reversal ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⌽1, ...)</syntaxhighlight> | ||
|} | |} | ||
=== Rotate ⌽ ⊖ === | === Rotate <syntaxhighlight lang=apl inline>⌽</syntaxhighlight> <syntaxhighlight lang=apl inline>⊖</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|488. || Vector (cross) product of vectors ||style="text-align: right;"|< | |rowspan=2|488. || Vector (cross) product of vectors ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((1⌽X)ׯ1⌽Y)-(¯1⌽X)×1⌽Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 489. || A magic square, side X ||style="text-align: right;"|< | |rowspan=2| 489. || A magic square, side X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; 1=2|X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A⊖(A←(⍳X)-⌈X÷2)⌽(X,X)⍴⍳X×X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 490. || Removing duplicates from an ordered vector ||style="text-align: right;"|< | |rowspan=2| 490. || Removing duplicates from an ordered vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(¯1⌽1↓(X≠¯1⌽X),1)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 491. || An expression giving itself ||style="text-align: right;"|< | |rowspan=2| 491. || [[Quine|An expression giving itself]] ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1⌽22⍴11⍴'''1⌽22⍴11⍴'''</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 492. || Transpose matrix X on condition Y ||style="text-align: right;"|< | |rowspan=2| 492. || Transpose matrix X on condition Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←B0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(Y⌽1 2)⍉X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 493. || Any element true ( | |rowspan=2| 493. || Any element true (<syntaxhighlight lang=apl inline>∨/</syntaxhighlight>) on each subvector of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X/Y)≥A/1⌽A←(Y∨X)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 494. || All elements true ( | |rowspan=2| 494. || All elements true (<syntaxhighlight lang=apl inline>∧/</syntaxhighlight>) on each subvector of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X/Y)∧A/1⌽A←(Y≤X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 495. || Removing leading, multiple and trailing Y's ||style="text-align: right;"|< | |rowspan=2| 495. || Removing leading, multiple and trailing Y's ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(1↑A)↓(A⍲1⌽A←Y=X)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 496. || Changing starting indicators X of subvectors to lengths ||style="text-align: right;"|< | |rowspan=2| 496. || Changing starting indicators X of subvectors to lengths ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A-¯1↓0,A←(1⌽X)/⍳⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 498. || (Cyclic) compression of successive blanks ||style="text-align: right;"|< | |rowspan=2| 498. || (Cyclic) compression of successive blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(A∨1⌽A←X≠' ')/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 499. || Aligning columns of matrix X to diagonals ||style="text-align: right;"|< | |rowspan=2| 499. || Aligning columns of matrix X to diagonals ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(1-⍳¯1↑⍴X)⌽X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 500. || Aligning diagonals of matrix X to columns ||style="text-align: right;"|< | |rowspan=2| 500. || Aligning diagonals of matrix X to columns ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(¯1+⍳¯1↑⍴X)⌽X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 501. || Diagonal matrix with elements of X ||style="text-align: right;"|< | |rowspan=2| 501. || Diagonal matrix with elements of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>0 ¯1↓(-⍳⍴X)⌽((2⍴⍴X)⍴0),X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 502. || Test if elements differ from previous ones (non-empty X) ||style="text-align: right;"|< | |rowspan=2| 502. || Test if elements differ from previous ones (non-empty X) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1,1↓X≠¯1⌽X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 503. || Test if elements differ from next ones (non-empty X) ||style="text-align: right;"|< | |rowspan=2| 503. || Test if elements differ from next ones (non-empty X) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(¯1↓X≠1⌽X),1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 504. || Replacing first element of X with Y ||style="text-align: right;"|< | |rowspan=2| 504. || Replacing first element of X with Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>¯1⌽1↓X,Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 505. || Replacing last element of X with Y ||style="text-align: right;"|< | |rowspan=2| 505. || Replacing last element of X with Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1⌽¯1↓Y,X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 506. || Ending points for X in indices pointed by Y ||style="text-align: right;"|< | |rowspan=2| 506. || Ending points for X in indices pointed by Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1⌽(⍳⍴X)∊Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 507. || Leftmost neighboring elements cyclically ||style="text-align: right;"|< | |rowspan=2| 507. || Leftmost neighboring elements cyclically ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>¯1⌽X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 508. || Rightmost neighboring elements cyclically ||style="text-align: right;"|< | |rowspan=2| 508. || Rightmost neighboring elements cyclically ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1⌽X</syntaxhighlight> | ||
|} | |} | ||
=== Transpose ⍉ === | === Transpose <syntaxhighlight lang=apl inline>⍉</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|509. || Applying to columns action defined on rows ||style="text-align: right;"|< | |rowspan=2|509. || Applying to columns action defined on rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍉ ... ⍉X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 510. || Retrieving scattered elements Y from matrix X ||style="text-align: right;"|< | |rowspan=2| 510. || Retrieving scattered elements Y from matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←I2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1 1⍉X[Y[1;];Y[2;]]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 511. || Successive transposes of G (X after Y: | |rowspan=2| 511. || Successive transposes of G (X after Y: <syntaxhighlight lang=apl inline>X⍉Y⍉G</syntaxhighlight>) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[Y]⍉G</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 512. || Major diagonal of array X ||style="text-align: right;"|< | |rowspan=2| 512. || Major diagonal of array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(1*⍴X)⍉X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 513. || Reshaping a 400×12 character matrix to fit into one page ||style="text-align: right;"|< | |rowspan=2| 513. || Reshaping a 400×12 character matrix to fit into one page ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>40 120⍴2 1 3⍉10 40 12⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 514. || Transpose of planes of a rank three array ||style="text-align: right;"|< | |rowspan=2| 514. || Transpose of planes of a rank three array ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A3</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1 3 2⍉X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 515. || Major diagonal of matrix X ||style="text-align: right;"|< | |rowspan=2| 515. || Major diagonal of matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1 1⍉X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 516. || Selecting specific elements from a 'large' outer product ||style="text-align: right;"|< | |rowspan=2| 516. || Selecting specific elements from a 'large' outer product ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A; G←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>G⍉X∘.⍺Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 517. || Test for antisymmetricity of square matrix X ||style="text-align: right;"|< | |rowspan=2| 517. || Test for antisymmetricity of square matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>~0∊X=-⍉X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 518. || Test for symmetricity of square matrix X ||style="text-align: right;"|< | |rowspan=2| 518. || Test for symmetricity of square matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>~0∊X=⍉X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 519. || Matrix with X columns Y ||style="text-align: right;"|< | |rowspan=2| 519. || Matrix with X columns Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍉(X,⍴Y)⍴Y</syntaxhighlight> | ||
|} | |} | ||
=== Maximum ⌈ Minimum ⌊ === | === Maximum <syntaxhighlight lang=apl inline>⌈</syntaxhighlight> Minimum <syntaxhighlight lang=apl inline>⌊</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|520. || Limiting X between Y[1] and Y[2], inclusive ||style="text-align: right;"|< | |rowspan=2|520. || Limiting X between Y[1] and Y[2], inclusive ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y[1]⌈Y[2]⌊X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 521. || Inserting vector Y to the end of matrix X ||style="text-align: right;"|< | |rowspan=2| 521. || Inserting vector Y to the end of matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(A↑X),[⍳1](1↓A←(⍴X)⌈0,⍴Y)↑Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 522. || Widening matrix X to be compatible with Y ||style="text-align: right;"|< | |rowspan=2| 522. || Widening matrix X to be compatible with Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((0 1×⍴Y)⌈⍴X)↑X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 523. || Lengthening matrix X to be compatible with Y ||style="text-align: right;"|< | |rowspan=2| 523. || Lengthening matrix X to be compatible with Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((1 0×⍴Y)⌈⍴X)↑X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 524. || Reshaping non-empty lower-rank array X into a matrix ||style="text-align: right;"|< | |rowspan=2| 524. || Reshaping non-empty lower-rank array X into a matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; 2≥⍴⍴X</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(1⌈¯2↑⍴X)⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 525. || Take of at most X elements from Y ||style="text-align: right;"|< | |rowspan=2| 525. || Take of at most X elements from Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X⌊⍴Y)↑Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 526. || Limiting indices and giving a default value G ||style="text-align: right;"|< | |rowspan=2| 526. || Limiting indices and giving a default value G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I; G←A0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X,G)[(1+⍴X)⌊Y]</syntaxhighlight> | ||
|} | |} | ||
=== Ceiling ⌈ Floor ⌊ === | === Ceiling <syntaxhighlight lang=apl inline>⌈</syntaxhighlight> Floor <syntaxhighlight lang=apl inline>⌊</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|527. || Reshaping X into a matrix of width Y ||style="text-align: right;"|< | |rowspan=2|527. || Reshaping X into a matrix of width Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D, Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((⌈(⍴,X)÷Y),Y)⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 528. || Rounding to nearest even integer ||style="text-align: right;"|< | |rowspan=2| 528. || Rounding to nearest even integer ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌊X+1≤2|X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 529. || Rounding, to nearest even integer for < | |rowspan=2| 529. || Rounding, to nearest even integer for <syntaxhighlight lang=apl inline>.5 = 1||X</syntaxhighlight> ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⌊X+.5×.5≠2|X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 530. || Rounding, to nearest even integer for < | |rowspan=2| 530. || Rounding, to nearest even integer for <syntaxhighlight lang=apl inline>.5 = 1||X</syntaxhighlight> ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌊X+.5×.5≠2|X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 531. || Arithmetic progression from X to Y with step G ||style="text-align: right;"|< | |rowspan=2| 531. || Arithmetic progression from X to Y with step G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D0; G←D0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X+(G××Y-X)×(⍳1+|⌊(Y-X)÷G)-⎕IO</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 532. || Centering text line X into a field of width Y ||style="text-align: right;"|< | |rowspan=2| 532. || Centering text line X into a field of width Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(-⌊.5×Y+⍴X)↑X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 533. || Test if integer ||style="text-align: right;"|< | |rowspan=2| 533. || Test if integer ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X=⌊X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 534. || Rounding currencies to nearest 5 subunits ||style="text-align: right;"|< | |rowspan=2| 534. || Rounding currencies to nearest 5 subunits ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>.05×⌊.5+X÷.05</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 535. || First part of numeric code ABBB ||style="text-align: right;"|< | |rowspan=2| 535. || First part of numeric code ABBB ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⌊X÷1000</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 536. || Rounding to X decimals ||style="text-align: right;"|< | |rowspan=2| 536. || Rounding to X decimals ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I; Y←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(10*-X)×⌊0.5+Y×10*X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 537. || Rounding to nearest hundredth ||style="text-align: right;"|< | |rowspan=2| 537. || Rounding to nearest hundredth ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>0.01×⌊0.5+100×X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 538. || Rounding to nearest integer ||style="text-align: right;"|< | |rowspan=2| 538. || Rounding to nearest integer ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⌊0.5+X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 539. || Demote floating point representations to integers ||style="text-align: right;"|< | |rowspan=2| 539. || Demote floating point representations to integers ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⌊X</syntaxhighlight> | ||
|} | |} | ||
=== Residue | === | === Residue <syntaxhighlight lang=apl inline>|</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|540. || Test if X is a leap year ||style="text-align: right;"|< | |rowspan=2|540. || Test if X is a leap year ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(0=400|X)∨(0≠100|X)∧0=4|X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 541. || Framing ||style="text-align: right;"|< | |rowspan=2| 541. || Framing ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>'_',[1]('|',X,'|'),[1]'¯'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 542. || Magnitude of fractional part ||style="text-align: right;"|< | |rowspan=2| 542. || Magnitude of fractional part ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1||X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 543. || Fractional part with sign ||style="text-align: right;"|< | |rowspan=2| 543. || Fractional part with sign ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(×X)|X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 544. || Increasing the dimension of X to multiple of Y ||style="text-align: right;"|< | |rowspan=2| 544. || Increasing the dimension of X to multiple of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X,(Y|-⍴X)↑0/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 545. || Removing every Y:th element of X ||style="text-align: right;"|< | |rowspan=2| 545. || Removing every Y:th element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(0≠Y|⍳⍴X)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 546. || Taking every Y:th element of X ||style="text-align: right;"|< | |rowspan=2| 546. || Taking every Y:th element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(0=Y|⍳⍴X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 547. || Divisors of X ||style="text-align: right;"|< | |rowspan=2| 547. || Divisors of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(0=A|X)/A←⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 548. || Removing every second element of X ||style="text-align: right;"|< | |rowspan=2| 548. || Removing every second element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(2|⍳⍴X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 549. || Elements of X divisible by Y ||style="text-align: right;"|< | |rowspan=2| 549. || Elements of X divisible by Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D0/1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(0=Y|X)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 550. || Ravel of a matrix to Y[1] columns with a gap of Y[2] ||style="text-align: right;"|< | |rowspan=2| 550. || Ravel of a matrix to Y[1] columns with a gap of Y[2] ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(A×Y[1]*¯1 1)⍴(A←(⍴X)+(Y[1]|-1↑⍴X),Y[2])↑X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 551. || Test if even ||style="text-align: right;"|< | |rowspan=2| 551. || Test if even ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>~2|X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 552. || Last part of numeric code ABBB ||style="text-align: right;"|< | |rowspan=2| 552. || Last part of numeric code ABBB ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1000|X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 553. || Fractional part ||style="text-align: right;"|< | |rowspan=2| 553. || Fractional part ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1|X</syntaxhighlight> | ||
|} | |} | ||
=== Magnitude |, Signum × === | === Magnitude <syntaxhighlight lang=apl inline>|</syntaxhighlight>, Signum <syntaxhighlight lang=apl inline>×</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|554. || Increasing absolute value without change of sign ||style="text-align: right;"|< | |rowspan=2|554. || Increasing absolute value without change of sign ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(×X)×Y+|X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 555. || Rounding to zero values of X close to zero ||style="text-align: right;"|< | |rowspan=2| 555. || Rounding to zero values of X close to zero ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X×Y≤|X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 556. || Square of elements of X without change of sign ||style="text-align: right;"|< | |rowspan=2| 556. || Square of elements of X without change of sign ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X×|X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 557. || Choosing according to signum ||style="text-align: right;"|< | |rowspan=2| 557. || Choosing according to signum ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y[2+×X]</syntaxhighlight> | ||
|} | |} | ||
=== Expand \ ⍀ === | === Expand <syntaxhighlight lang=apl inline>\</syntaxhighlight> <syntaxhighlight lang=apl inline>⍀</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|558. || Not first zero (≤\) in each subvector of Y indicated by X ||style="text-align: right;"|< | |rowspan=2|558. || Not first zero (≤\) in each subvector of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>~(B∧X)∨(B∨X)\A>¯1↓0,A←(B∨X)/B←~Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 559. || First one (<\) in each subvector of Y indicated by X ||style="text-align: right;"|< | |rowspan=2| 559. || First one (<\) in each subvector of Y indicated by X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1; Y←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y∧X)∨(Y∨X)\A>¯1↓0,A←(Y∨X)/Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 560. || Replacing elements of X in set Y with blanks/zeroes ||style="text-align: right;"|< | |rowspan=2| 560. || Replacing elements of X in set Y with blanks/zeroes ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A0; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A\(A←~X∊Y)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 561. || Replacing elements of X not in set Y with blanks/zeroes ||style="text-align: right;"|< | |rowspan=2| 561. || Replacing elements of X not in set Y with blanks/zeroes ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A\(A←X∊Y)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 562. || Merging X and Y under control of G (mesh) ||style="text-align: right;"|< | |rowspan=2| 562. || Merging X and Y under control of G (mesh) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1; G←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←G\X ⋄ A[(~G)/⍳⍴G]←Y ⋄ A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 563. || Replacing elements of X not satisfying Y with blanks/zeroes ||style="text-align: right;"|< | |rowspan=2| 563. || Replacing elements of X not satisfying Y with blanks/zeroes ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y\Y/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 564. || Adding an empty row into X after rows Y ||style="text-align: right;"|< | |rowspan=2| 564. || Adding an empty row into X after rows Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(~(⍳(⍴Y)+1⍴⍴X)∊Y+⍳⍴Y)⍀X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 565. || Test if numeric ||style="text-align: right;"|< | |rowspan=2| 565. || Test if numeric ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>0∊0\0⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 566. || Adding an empty row into X after row Y ||style="text-align: right;"|< | |rowspan=2| 566. || Adding an empty row into X after row Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((Y+1)≠⍳1+1⍴⍴X)⍀X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 567. || Underlining words ||style="text-align: right;"|< | |rowspan=2| 567. || Underlining words ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X,[⎕IO-.1](' '≠X)\'¯'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 568. || Using boolean matrix Y in expanding X ||style="text-align: right;"|< | |rowspan=2| 568. || Using boolean matrix Y in expanding X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←B2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍴Y)⍴(,Y)\X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 569. || Spacing out text ||style="text-align: right;"|< | |rowspan=2| 569. || Spacing out text ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((2×⍴X)⍴1 0)\X</syntaxhighlight> | ||
|} | |} | ||
=== Compress / ⌿ === | === Compress <syntaxhighlight lang=apl inline>/</syntaxhighlight> <syntaxhighlight lang=apl inline>⌿</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|570. || Lengths of groups of ones in X ||style="text-align: right;"|< | |rowspan=2|570. || Lengths of groups of ones in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(A>0)/A←(1↓A)-1+¯1↓A←(~A)/⍳⍴A←0,X,0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 571. || Syllabization of a Finnish word X ||style="text-align: right;"|< | |rowspan=2| 571. || Syllabization of a Finnish word X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(~A∊1,⍴X)/A←A/⍳⍴A←(1↓A,0)←~X∊'aeiouyÄÖ'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 572. || Choosing a string according to boolean value G ||style="text-align: right;"|< | |rowspan=2| 572. || Choosing a string according to boolean value G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1; Y←C1; G←B0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(G/X),(~G)/Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 573. || Removing leading, multiple and trailing blanks ||style="text-align: right;"|< | |rowspan=2| 573. || Removing leading, multiple and trailing blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(' '=1↑X)↓((1↓A,0)∨A←' '≠X)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 575. || Removing columns Y from array X ||style="text-align: right;"|< | |rowspan=2| 575. || Removing columns Y from array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(~(⍳¯1↑⍴X)∊Y)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 576. || Removing trailing blanks ||style="text-align: right;"|< | |rowspan=2| 576. || Removing trailing blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(¯1↑(' '≠X)/⍳⍴X)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 577. || Lengths of subvectors of X having equal elements ||style="text-align: right;"|< | |rowspan=2| 577. || Lengths of subvectors of X having equal elements ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(1↓A)-¯1↓A←(A,1)/⍳1+⍴A←1,(1↓X)≠¯1↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 578. || Field lengths of vector X; G ←→ ending indices ||style="text-align: right;"|< | |rowspan=2| 578. || Field lengths of vector X; G ←→ ending indices ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; G←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>G-¯1↓0,G←(~⎕IO)+(((1↓X)≠¯1↓X),1)/⍳⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 580. || Removing multiple and trailing blanks ||style="text-align: right;"|< | |rowspan=2| 580. || Removing multiple and trailing blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((1↓A,0)∨A←' '≠X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 581. || Removing leading and multiple blanks ||style="text-align: right;"|< | |rowspan=2| 581. || Removing leading and multiple blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(A∨¯1↓0,A←' '≠X)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 582. || Removing multiple blanks ||style="text-align: right;"|< | |rowspan=2| 582. || Removing multiple blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(A∨¯1↓1,A←' '≠X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 583. || Removing duplicate Y's from vector X ||style="text-align: right;"|< | |rowspan=2| 583. || Removing duplicate Y's from vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(A∨¯1↓1,A←X≠Y)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 584. || Indices of all occurrences of elements of Y in X ||style="text-align: right;"|< | |rowspan=2| 584. || Indices of all occurrences of elements of Y in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X∊Y)/⍳⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 585. || Union of sets, ? ||style="text-align: right;"|< | |rowspan=2| 585. || Union of sets, ? ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y,(~X∊Y)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 586. || Elements of X not in Y (difference of sets) ||style="text-align: right;"|< | |rowspan=2| 586. || Elements of X not in Y (difference of sets) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(~X∊Y)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 587. || Rows of non-empty matrix X starting with a character in Y ||style="text-align: right;"|< | |rowspan=2| 587. || Rows of non-empty matrix X starting with a character in Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X[;1]∊Y)⌿X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 588. || Intersection of sets, ⍞ ||style="text-align: right;"|< | |rowspan=2| 588. || Intersection of sets, ⍞ ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X∊Y)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 589. || Reduction with function ⍺ in dimension Y, rank unchanged ||style="text-align: right;"|< | |rowspan=2| 589. || Reduction with function ⍺ in dimension Y, rank unchanged ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←I0; X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((⍴X)*Y≠⍳⍴⍴X)⍴ ⍺/[Y]X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 590. || Replacing all values X in G with Y ||style="text-align: right;"|< | |rowspan=2| 590. || Replacing all values X in G with Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A0; Y←A0; G←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A[(A=X)/⍳⍴A←,G]←Y ⋄ (⍴G)⍴A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 591. || Indices of all occurrences of Y in X ||style="text-align: right;"|< | |rowspan=2| 591. || Indices of all occurrences of Y in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y=X)/⍳⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 592. || Replacing elements of G satisfying X with Y ||style="text-align: right;"|< | |rowspan=2| 592. || Replacing elements of G satisfying X with Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←A0; X←B1; G←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>G[X/⍳⍴G]←Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 593. || Removing duplicates from positive integers ||style="text-align: right;"|< | |rowspan=2| 593. || Removing duplicates from positive integers ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A←9999⍴0 ⋄ A[X]←1 ⋄ A/⍳9999</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 594. || Indices of ones in logical vector X ||style="text-align: right;"|< | |rowspan=2| 594. || Indices of ones in logical vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X/⍳⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 595. || Conditional in text ||style="text-align: right;"|< | |rowspan=2| 595. || Conditional in text ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((~X)/'IN'),'CORRECT'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 596. || Removing blanks ||style="text-align: right;"|< | |rowspan=2| 596. || Removing blanks ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(' '≠X)/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 597. || Removing elements Y from vector X ||style="text-align: right;"|< | |rowspan=2| 597. || Removing elements Y from vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X≠Y)/X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 598. || Vector to expand a new element after each one in X ||style="text-align: right;"|< | |rowspan=2| 598. || Vector to expand a new element after each one in X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(,X,[1.5]1)/,X,[1.5]~X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 599. || Reduction with FUNCTION | |rowspan=2| 599. || Reduction with FUNCTION <syntaxhighlight lang=apl inline>⍺</syntaxhighlight> without respect to shape ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍺/,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 600. || Reshaping scalar X into a one-element vector ||style="text-align: right;"|< | |rowspan=2| 600. || Reshaping scalar X into a one-element vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1/X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 601. || Empty matrix ||style="text-align: right;"|< | |rowspan=2| 601. || Empty matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>0⌿X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 602. || Selecting elements of X satisfying condition Y ||style="text-align: right;"|< | |rowspan=2| 602. || Selecting elements of X satisfying condition Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y/X</syntaxhighlight> | ||
|} | |} | ||
=== Take ↑ === | === Take <syntaxhighlight lang=apl inline>↑</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|603. || Inserting vector X into matrix Y after row G ||style="text-align: right;"|< | |rowspan=2|603. || Inserting vector X into matrix Y after row G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A2; G←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y[⍳G;],[1]((1↓⍴Y)↑X),[1](2↑G)↓Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 604. || Filling X with last element of X to length Y ||style="text-align: right;"|< | |rowspan=2| 604. || Filling X with last element of X to length Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y↑X,Y⍴¯1↑X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 605. || Input of row Y of text matrix X ||style="text-align: right;"|< | |rowspan=2| 605. || Input of row Y of text matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[Y;]←(1↑⍴X)↑⍞</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 606. || First ones in groups of ones ||style="text-align: right;"|< | |rowspan=2| 606. || First ones in groups of ones ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X>((-⍴⍴X)↑¯1)↓0,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 607. || Inserting X into Y after index G ||style="text-align: right;"|< | |rowspan=2| 607. || Inserting X into Y after index G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1; G←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(G↑Y),X,G↓Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 608. || Pairwise differences of successive columns (inverse of +\) ||style="text-align: right;"|< | |rowspan=2| 608. || Pairwise differences of successive columns (inverse of +\) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X-((-⍴⍴X)↑¯1)↓0,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 609. || Leftmost neighboring elements ||style="text-align: right;"|< | |rowspan=2| 609. || Leftmost neighboring elements ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>((-⍴⍴X)↑¯1)↓0,X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 610. || Rightmost neighboring elements ||style="text-align: right;"|< | |rowspan=2| 610. || Rightmost neighboring elements ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((-⍴⍴X)↑1)↓X,0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 611. || Shifting vector X right with Y without rotate ||style="text-align: right;"|< | |rowspan=2| 611. || Shifting vector X right with Y without rotate ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(-⍴X)↑(-Y)↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 612. || Shifting vector X left with Y without rotate ||style="text-align: right;"|< | |rowspan=2| 612. || Shifting vector X left with Y without rotate ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍴X)↑Y↓X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 613. || Drop of Y first rows from matrix X ||style="text-align: right;"|< | |rowspan=2| 613. || Drop of Y first rows from matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(2↑Y)↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 614. || Test if numeric ||style="text-align: right;"|< | |rowspan=2| 614. || Test if numeric ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>0∊1↑0⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 615. || Reshaping non-empty lower-rank array X into a matrix ||style="text-align: right;"|< | |rowspan=2| 615. || Reshaping non-empty lower-rank array X into a matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; 2≥⍴⍴X</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(¯2↑1 1,⍴X)⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 616. || Giving a character default value for input ||style="text-align: right;"|< | |rowspan=2| 616. || Giving a character default value for input ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1↑⍞,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 617. || Adding scalar Y to last element of X ||style="text-align: right;"|< | |rowspan=2| 617. || Adding scalar Y to last element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X+(-⍴X)↑Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 618. || Number of rows in matrix X ||style="text-align: right;"|< | |rowspan=2| 618. || Number of rows in matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1↑⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 619. || Number of columns in matrix X ||style="text-align: right;"|< | |rowspan=2| 619. || Number of columns in matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>¯1↑⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 620. || Ending points for X fields of width Y ||style="text-align: right;"|< | |rowspan=2| 620. || Ending points for X fields of width Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X×Y)⍴(-Y)↑1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 621. || Starting points for X fields of width Y ||style="text-align: right;"|< | |rowspan=2| 621. || Starting points for X fields of width Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X×Y)⍴Y↑1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 622. || Zero or space depending on the type of X (fill element) ||style="text-align: right;"|< | |rowspan=2| 622. || Zero or space depending on the type of X (fill element) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1↑0⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 623. || Forming first row of a matrix to be expanded ||style="text-align: right;"|< | |rowspan=2| 623. || Forming first row of a matrix to be expanded ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1 80⍴80↑X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 624. || Vector of length Y with X ones on the left, the rest zeroes ||style="text-align: right;"|< | |rowspan=2| 624. || Vector of length Y with X ones on the left, the rest zeroes ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y↑X⍴1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 625. || Justifying text X to right edge of field of width Y ||style="text-align: right;"|< | |rowspan=2| 625. || Justifying text X to right edge of field of width Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←I0; X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(-Y)↑X</syntaxhighlight> | ||
|} | |} | ||
=== Drop ↓ === | === Drop <syntaxhighlight lang=apl inline>↓</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|627. || Starting points of groups of equal elements (non-empty X) ||style="text-align: right;"|< | |rowspan=2|627. || Starting points of groups of equal elements (non-empty X) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1,(1↓X)≠¯1↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 628. || Ending points of groups of equal elements (non-empty X) ||style="text-align: right;"|< | |rowspan=2| 628. || Ending points of groups of equal elements (non-empty X) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((1↓X)≠¯1↓X),1</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 629. || Pairwise ratios of successive elements of vector X ||style="text-align: right;"|< | |rowspan=2| 629. || Pairwise ratios of successive elements of vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(1↓X)÷¯1↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 630. || Pairwise differences of successive elements of vector X ||style="text-align: right;"|< | |rowspan=2| 630. || Pairwise differences of successive elements of vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(1↓X)-¯1↓X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 631. || Differences of successive elements of X along direction Y ||style="text-align: right;"|< | |rowspan=2| 631. || Differences of successive elements of X along direction Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X-(-Y=⍳⍴⍴X)↓0,[Y]X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 632. || Ascending series of integers Y..X (for small Y and X) ||style="text-align: right;"|< | |rowspan=2| 632. || Ascending series of integers Y..X (for small Y and X) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y-1)↓⍳X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 633. || First ones in groups of ones ||style="text-align: right;"|< | |rowspan=2| 633. || First ones in groups of ones ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X>¯1↓0,X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 634. || Last ones in groups of ones ||style="text-align: right;"|< | |rowspan=2| 634. || Last ones in groups of ones ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X>1↓X,0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 635. || List of names in X (one per row) ||style="text-align: right;"|< | |rowspan=2| 635. || List of names in X (one per row) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1↓,',',X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 636. || Selection of X or Y depending on condition G ||style="text-align: right;"|< | |rowspan=2| 636. || Selection of X or Y depending on condition G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A0; Y←A0; G←B0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>''⍴G↓X,Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 637. || Restoring argument of cumulative sum (inverse of +\) ||style="text-align: right;"|< | |rowspan=2| 637. || Restoring argument of cumulative sum (inverse of +\) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X-¯1↓0,X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 638. || Drop of Y first rows from matrix X ||style="text-align: right;"|< | |rowspan=2| 638. || Drop of Y first rows from matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y,0)↓X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 639. || Drop of Y first columns from matrix X ||style="text-align: right;"|< | |rowspan=2| 639. || Drop of Y first columns from matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(0,Y)↓X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 640. || Number of rows in matrix X ||style="text-align: right;"|< | |rowspan=2| 640. || Number of rows in matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>¯1↓⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 641. || Number of columns in matrix X ||style="text-align: right;"|< | |rowspan=2| 641. || Number of columns in matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1↓⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 642. || Conditional drop of Y elements from array X ||style="text-align: right;"|< | |rowspan=2| 642. || Conditional drop of Y elements from array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←I1; G←B1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y×G)↓X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 643. || Conditional drop of last element of X ||style="text-align: right;"|< | |rowspan=2| 643. || Conditional drop of last element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←B0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(-Y)↓X</syntaxhighlight> | ||
|} | |} | ||
=== Member Of ∊ === | === Member Of <syntaxhighlight lang=apl inline>∊</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|644. || Expansion vector with zero after indices Y ||style="text-align: right;"|< | |rowspan=2|644. || Expansion vector with zero after indices Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>~(⍳(⍴Y)+⍴X)∊Y+⍳⍴Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 645. || Boolean vector of length Y with zeroes in locations X ||style="text-align: right;"|< | |rowspan=2| 645. || Boolean vector of length Y with zeroes in locations X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(~(⍳Y)∊X)</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 646. || Starting points for X in indices pointed by Y ||style="text-align: right;"|< | |rowspan=2| 646. || Starting points for X in indices pointed by Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍳⍴X)∊Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 647. || Boolean vector of length Y with ones in locations X ||style="text-align: right;"|< | |rowspan=2| 647. || Boolean vector of length Y with ones in locations X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍳Y)∊X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 648. || Check for input in range 1..X ||style="text-align: right;"|< | |rowspan=2| 648. || Check for input in range 1..X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(Y←⎕)∊⍳X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 649. || Test if arrays are identical ||style="text-align: right;"|< | |rowspan=2| 649. || Test if arrays are identical ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>~0∊X=Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 650. || Zeroing elements of Y depending on their values ||style="text-align: right;"|< | |rowspan=2| 650. || Zeroing elements of Y depending on their values ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←D; X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y×~Y∊X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 651. || Test if single or scalar ||style="text-align: right;"|< | |rowspan=2| 651. || Test if single or scalar ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1∊⍴,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 652. || Test if vector ||style="text-align: right;"|< | |rowspan=2| 652. || Test if vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1∊⍴⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 653. || Test if X is an empty array ||style="text-align: right;"|< | |rowspan=2| 653. || Test if X is an empty array ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>0∊⍴X</syntaxhighlight> | ||
|} | |} | ||
=== Index Generator ⍳ === | === Index Generator <syntaxhighlight lang=apl inline>⍳</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|654. || Inverting a permutation ||style="text-align: right;"|< | |rowspan=2|654. || Inverting a permutation ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←⍳⍴X ⋄ A[X]←A ⋄ A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 655. || All axes of array X ||style="text-align: right;"|< | |rowspan=2| 655. || All axes of array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍳⍴⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 656. || All indices of vector X ||style="text-align: right;"|< | |rowspan=2| 656. || All indices of vector X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍳⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 657. || Arithmetic progression of Y numbers from X with step G ||style="text-align: right;"|< | |rowspan=2| 657. || Arithmetic progression of Y numbers from X with step G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0; Y←D0; G←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X+G×(⍳Y)-⎕IO</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 658. || Consecutive integers from X to Y (arithmetic progression) ||style="text-align: right;"|< | |rowspan=2| 658. || Consecutive integers from X to Y (arithmetic progression) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X-⎕IO)+⍳1+Y-X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 659. || Empty numeric vector ||style="text-align: right;"|< | |rowspan=2| 659. || Empty numeric vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍳0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 660. || Index origin (⎕IO) as a vector ||style="text-align: right;"|< | |rowspan=2| 660. || Index origin (⎕IO) as a vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍳1</syntaxhighlight> | ||
|} | |} | ||
=== Logical Functions ~ ∨ | === Logical Functions <syntaxhighlight lang=apl inline>~</syntaxhighlight> <syntaxhighlight lang=apl inline>∨</syntaxhighlight> <syntaxhighlight lang=apl inline>∧</syntaxhighlight> <syntaxhighlight lang=apl inline>⍱</syntaxhighlight> <syntaxhighlight lang=apl inline>⍲</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|661. || Demote non-boolean representations to booleans ||style="text-align: right;"|< | |rowspan=2|661. || Demote non-boolean representations to booleans ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>0∨X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 662. || Test if X is within range ( Y[1],Y[2] ) ||style="text-align: right;"|< | |rowspan=2| 662. || Test if X is within range ( Y[1],Y[2] ) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y[1]<X)∧X<Y[2]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 663. || Test if X is within range [ Y[1],Y[2] ] ||style="text-align: right;"|< | |rowspan=2| 663. || Test if X is within range [ Y[1],Y[2] ] ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D1; 2=⍴Y</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(Y[1]≤X)∧(X≤Y[2])</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 664. || Zeroing all boolean values ||style="text-align: right;"|< | |rowspan=2| 664. || Zeroing all boolean values ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>0∧X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 666. || Selection of elements of X and Y depending on condition G ||style="text-align: right;"|< | |rowspan=2| 666. || Selection of elements of X and Y depending on condition G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D; G←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X×G)+Y×~G</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 667. || Changing an index origin dependent result to be as | |rowspan=2| 667. || Changing an index origin dependent result to be as <syntaxhighlight lang=apl inline>⎕IO=1</syntaxhighlight> ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(~⎕IO)+X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 668. || Conditional change of elements of Y to one according to X ||style="text-align: right;"|< | |rowspan=2| 668. || Conditional change of elements of Y to one according to X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←D; X←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y*~X</syntaxhighlight> | ||
|} | |} | ||
=== Comparison <≤> ≠ === | === Comparison <syntaxhighlight lang=apl inline><≤></syntaxhighlight> <syntaxhighlight lang=apl inline>≠</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|669. || X implies Y ||style="text-align: right;"|< | |rowspan=2|669. || X implies Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B; Y←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X≤Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 670. || X but not Y ||style="text-align: right;"|< | |rowspan=2| 670. || X but not Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B; Y←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X>Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 671. || Avoiding division by zero error (gets value zero) ||style="text-align: right;"|< | |rowspan=2| 671. || Avoiding division by zero error (gets value zero) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(0≠X)×Y÷X+0=X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 672. || Exclusive or ||style="text-align: right;"|< | |rowspan=2| 672. || Exclusive or ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B; Y←B</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X≠Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 673. || Replacing zeroes with corresponding elements of Y ||style="text-align: right;"|< | |rowspan=2| 673. || Replacing zeroes with corresponding elements of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X+Y×X=0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 674. || Kronecker delta of X and Y (element of identity matrix) ||style="text-align: right;"|< | |rowspan=2| 674. || Kronecker delta of X and Y (element of identity matrix) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I; Y←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y=X</syntaxhighlight> | ||
|} | |} | ||
=== Ravel , === | === Ravel <syntaxhighlight lang=apl inline>,</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|675. || Catenating Y elements G after every element of X ||style="text-align: right;"|< | |rowspan=2|675. || Catenating Y elements G after every element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0; G←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>,X,((⍴X),Y)⍴G</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 676. || Catenating Y elements G before every element of X ||style="text-align: right;"|< | |rowspan=2| 676. || Catenating Y elements G before every element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0; G←A0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>,(((⍴X),Y)⍴G),X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 677. || Merging vectors X and Y alternately ||style="text-align: right;"|< | |rowspan=2| 677. || Merging vectors X and Y alternately ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>,Y,[⎕IO+.5]X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 678. || Inserting Y after each element of X ||style="text-align: right;"|< | |rowspan=2| 678. || Inserting Y after each element of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>,X,[1.1]Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 679. || Spacing out text ||style="text-align: right;"|< | |rowspan=2| 679. || Spacing out text ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>,X,[1.1]' '</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 680. || Reshaping X into a matrix of width Y ||style="text-align: right;"|< | |rowspan=2| 680. || Reshaping X into a matrix of width Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D, Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(((⍴,X),1)×Y*¯1 1)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 681. || Temporary ravel of X for indexing with G ||style="text-align: right;"|< | |rowspan=2| 681. || Temporary ravel of X for indexing with G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A; G←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>A←⍴X ⋄ X←,X ⋄ X[G]←Y ⋄ X←A⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 682. || Temporary ravel of X for indexing with G ||style="text-align: right;"|< | |rowspan=2| 682. || Temporary ravel of X for indexing with G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A; G←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>A←,X ⋄ A[G]←Y ⋄ X←(⍴X)⍴A</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 683. || First column as a matrix ||style="text-align: right;"|< | |rowspan=2| 683. || First column as a matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[;,1]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 684. || Number of elements (also of a scalar) ||style="text-align: right;"|< | |rowspan=2| 684. || Number of elements (also of a scalar) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍴,X</syntaxhighlight> | ||
|} | |} | ||
=== Catenate , === | === Catenate <syntaxhighlight lang=apl inline>,</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|685. || Separating variable length lines ||style="text-align: right;"|< | |rowspan=2|685. || Separating variable length lines ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X,⎕TC[2],Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 686. || X×X identity matrix ||style="text-align: right;"|< | |rowspan=2| 686. || X×X identity matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(X,X)⍴1,X⍴0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 687. || Array and its negative ('plus minus') ||style="text-align: right;"|< | |rowspan=2| 687. || Array and its negative ('plus minus') ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X,[.5+⍴⍴X]-X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 688. || Underlining a string ||style="text-align: right;"|< | |rowspan=2| 688. || Underlining a string ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←C1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X,[⎕IO-.1]'¯'</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 689. || Forming a two-column matrix ||style="text-align: right;"|< | |rowspan=2| 689. || Forming a two-column matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X,[1.1]Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 690. || Forming a two-row matrix ||style="text-align: right;"|< | |rowspan=2| 690. || Forming a two-row matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X,[.1]Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 691. || Selection of X or Y depending on condition G ||style="text-align: right;"|< | |rowspan=2| 691. || Selection of X or Y depending on condition G ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A0; Y←A0; G←B0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(X,Y)[⎕IO+G]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 692. || Increasing rank of Y to rank of X ||style="text-align: right;"|< | |rowspan=2| 692. || Increasing rank of Y to rank of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((((⍴⍴X)-⍴⍴Y)⍴1),⍴Y)⍴Y</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 693. || Identity matrix of shape of matrix X ||style="text-align: right;"|< | |rowspan=2| 693. || Identity matrix of shape of matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍴X)⍴1,0×X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 694. || Reshaping vector X into a two-column matrix ||style="text-align: right;"|< | |rowspan=2| 694. || Reshaping vector X into a two-column matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((0.5×⍴X),2)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 696. || Reshaping vector X into a one-row matrix ||style="text-align: right;"|< | |rowspan=2| 696. || Reshaping vector X into a one-row matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(1,⍴X)⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 697. || Reshaping vector X into a one-column matrix ||style="text-align: right;"|< | |rowspan=2| 697. || Reshaping vector X into a one-column matrix ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>((⍴X),1)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 698. || Forming a Y-row matrix with all rows alike (X) ||style="text-align: right;"|< | |rowspan=2| 698. || Forming a Y-row matrix with all rows alike (X) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(Y,⍴X)⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 699. || Handling array X temporarily as a vector ||style="text-align: right;"|< | |rowspan=2| 699. || Handling array X temporarily as a vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍴X)⍴ ... ,X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 700. || Joining sentences ||style="text-align: right;"|< | |rowspan=2| 700. || Joining sentences ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A; Y←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y,0⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 701. || Entering from terminal data exceeding input (printing) width ||style="text-align: right;"|< | |rowspan=2| 701. || Entering from terminal data exceeding input (printing) width ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X←0 2 1 2 5 8 0 4 5,⎕</syntaxhighlight> | ||
|} | |} | ||
=== Indexing [ ] === | === Indexing <syntaxhighlight lang=apl inline>[ ]</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|702. || Value of fixed-degree polynomial Y at points X ||style="text-align: right;"|< | |rowspan=2|702. || Value of fixed-degree polynomial Y at points X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←D1; X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y[3]+X×Y[2]+X×Y[1]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 703. || Number of columns in array X ||style="text-align: right;"|< | |rowspan=2| 703. || Number of columns in array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍴X)[⍴⍴X]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 704. || Number of rows in matrix X ||style="text-align: right;"|< | |rowspan=2| 704. || Number of rows in matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>(⍴X)[1]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 705. || Number of columns in matrix X ||style="text-align: right;"|< | |rowspan=2| 705. || Number of columns in matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍴X)[2]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 706. || Conditional elementwise change of sign ||style="text-align: right;"|< | |rowspan=2| 706. || Conditional elementwise change of sign ||style="text-align: right;"|<syntaxhighlight lang=apl inline>Y←D; X←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y×(1 ¯1)[1+X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 707. || Selection depending on index origin ||style="text-align: right;"|< | |rowspan=2| 707. || Selection depending on index origin ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X[2×⎕IO]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 708. || Indexing with boolean value X (plotting a curve) ||style="text-align: right;"|< | |rowspan=2| 708. || Indexing with boolean value X (plotting a curve) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>' *'[⎕IO+X]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 709. || Indexing independent of index origin ||style="text-align: right;"|< | |rowspan=2| 709. || Indexing independent of index origin ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X[⎕IO+Y]</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 710. || Selection depending on index origin ||style="text-align: right;"|< | |rowspan=2| 710. || Selection depending on index origin ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[1]</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 711. || Zeroing a vector (without change of size) ||style="text-align: right;"|< | |rowspan=2| 711. || Zeroing a vector (without change of size) ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>X[]←0</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 712. || First column as a vector ||style="text-align: right;"|< | |rowspan=2| 712. || First column as a vector ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X[;1]</syntaxhighlight> | ||
|} | |} | ||
=== Shape ⍴ === | === Shape <syntaxhighlight lang=apl inline>⍴</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|713. || Rank of array X ||style="text-align: right;"|< | |rowspan=2|713. || Rank of array X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⍴⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 715. || Duplicating vector X Y times ||style="text-align: right;"|< | |rowspan=2| 715. || Duplicating vector X Y times ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←I0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(Y×⍴X)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 716. || Adding X to each row of Y ||style="text-align: right;"|< | |rowspan=2| 716. || Adding X to each row of Y ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D1; Y←D; (⍴X)=¯1↑⍴Y</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y+(⍴Y)⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 717. || Array with shape of Y and X as its rows ||style="text-align: right;"|< | |rowspan=2| 717. || Array with shape of Y and X as its rows ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A1; Y←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⍴Y)⍴X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 718. || Number of rows in matrix X ||style="text-align: right;"|< | |rowspan=2| 718. || Number of rows in matrix X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A2</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1⍴⍴X</syntaxhighlight> | ||
|} | |} | ||
=== Reshape ⍴ === | === Reshape <syntaxhighlight lang=apl inline>⍴</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|720. || Forming an initially empty array to be expanded ||style="text-align: right;"|< | |rowspan=2|720. || Forming an initially empty array to be expanded ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>0 80⍴0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 721. || Output of an empty line ||style="text-align: right;"|< | |rowspan=2| 721. || Output of an empty line ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>0⍴X←</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 722. || Reshaping first element of X into a scalar ||style="text-align: right;"|< | |rowspan=2| 722. || Reshaping first element of X into a scalar ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>''⍴X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 723. || Corner element of a (non-empty) array ||style="text-align: right;"|< | |rowspan=2| 723. || Corner element of a (non-empty) array ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1⍴X</syntaxhighlight> | ||
|} | |} | ||
=== Arithmetic + - × ÷ === | === Arithmetic <syntaxhighlight lang=apl inline>+</syntaxhighlight> <syntaxhighlight lang=apl inline>-</syntaxhighlight> <syntaxhighlight lang=apl inline>×</syntaxhighlight> <syntaxhighlight lang=apl inline>÷</syntaxhighlight> === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|724. || Continued fraction ||style="text-align: right;"|< | |rowspan=2|724. || Continued fraction ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>1+÷2+÷3+÷4+÷5+÷6+÷ ...</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 725. || Force 0÷0 into DOMAIN ERROR in division ||style="text-align: right;"|< | |rowspan=2| 725. || Force 0÷0 into DOMAIN ERROR in division ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>Y×÷X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 726. || Conditional elementwise change of sign ||style="text-align: right;"|< | |rowspan=2| 726. || Conditional elementwise change of sign ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←B; ⍴X ←→ ⍴Y</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Xׯ1*Y</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 727. || Zero array of shape and size of X ||style="text-align: right;"|< | |rowspan=2| 727. || Zero array of shape and size of X ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>0×X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 728. || Selecting elements satisfying condition Y, zeroing others ||style="text-align: right;"|< | |rowspan=2| 728. || Selecting elements satisfying condition Y, zeroing others ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>Y×X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 729. || Number and its negative ('plus minus') ||style="text-align: right;"|< | |rowspan=2| 729. || Number and its negative ('plus minus') ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D0</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>1 ¯1×X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 730. || Changing an index origin dependent result to be as ⎕IO=0 ||style="text-align: right;"|< | |rowspan=2| 730. || Changing an index origin dependent result to be as ⎕IO=0 ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>-⎕IO-X</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 731. || Changing an index origin dependent argument to act as ⎕IO=1 ||style="text-align: right;"|< | |rowspan=2| 731. || Changing an index origin dependent argument to act as ⎕IO=1 ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>(⎕IO-1)+X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 732. || Output of assigned numeric value ||style="text-align: right;"|< | |rowspan=2| 732. || Output of assigned numeric value ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>+X←</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 733. || Changing an index origin dependent argument to act as ⎕IO=0 ||style="text-align: right;"|< | |rowspan=2| 733. || Changing an index origin dependent argument to act as ⎕IO=0 ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←I</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕IO+X</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 734. || Selecting elements satisfying condition Y, others to one ||style="text-align: right;"|< | |rowspan=2| 734. || Selecting elements satisfying condition Y, others to one ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←D; Y←B</syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>X*Y</syntaxhighlight> | ||
|} | |} | ||
=== Miscellaneous === | === Miscellaneous === | ||
{|class=wikitable style="background-color: #EBEBEB" | {|class=wikitable style="background-color: #EBEBEB" | ||
|rowspan=2|736. || Setting a constant with hyphens ||style="text-align: right;"|< | |rowspan=2|736. || Setting a constant with hyphens ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>⎕LX←⍞</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 737. || Output of assigned value ||style="text-align: right;"|< | |rowspan=2| 737. || Output of assigned value ||style="text-align: right;"|<syntaxhighlight lang=apl inline>X←A</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⎕←X←</syntaxhighlight> | ||
|- | |- | ||
|rowspan=2| 738. || Syntax error to stop execution ||style="text-align: right;"|< | |rowspan=2| 738. || Syntax error to stop execution ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- | |- | ||
|colspan=2 style="background-color: #F5F5F5"|< | |colspan=2 style="background-color: #F5F5F5"|<syntaxhighlight lang=apl inline>*</syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|rowspan=2| 888. || Meaning of life ||style="text-align: right;"|< | |rowspan=2| 888. || Meaning of life ||style="text-align: right;"|<syntaxhighlight lang=apl inline></syntaxhighlight> | ||
|- style="background-color: #FFFFFF" | |- style="background-color: #FFFFFF" | ||
|colspan=2 style="background-color: #FFFFFF"|< | |colspan=2 style="background-color: #FFFFFF"|<syntaxhighlight lang=apl inline>⍎⊖⍕⊃⊂|⌊-*+○⌈×÷!⌽⍉⌹~⍴⍋⍒,⍟?⍳0</syntaxhighlight> | ||
|} | |} | ||
== Notes == | |||
<references/> | |||
[[Category:Lists]][[Category:Publications]] |
Latest revision as of 22:16, 10 September 2022
The FinnAPL idiom library contains a collection of over 700 one-line APL idioms to accomplish a large variety of tasks. It was first presented at the 1984 APL conference in Helsinki, Finland. The huge contribution of the Finnish APL Association is gratefully acknowledged.
This listing mainly suffers from two issues:
- Due to its age, it doesn't make use of modern APL features which can provide a simpler solution. (However, a simple-looking expression which uses nested arrays might be far more computationally expensive than a longer, more involved solution which only uses simple arrays.)
- It can be hard to find what one is looking for, both because computing terminology has changed, and because pinpointing the exact term can be difficult.
APLcart includes all of the below library, updated to use the latest language features, and in an easily searchable format that includes modern day synonyms.
Interpreting an entry in the Idiom Library
As an example of how each entry in the library is arranged, consider the first idiom:
1. | Progressive index of (without replacement) | X←A1; Y←A1
|
((⍴X)⍴⍋⍋X⍳X,Y)⍳(⍴Y)⍴⍋⍋X⍳Y,X
|
The entry includes a brief description of what the idiom does, which is followed by the expression X←A1; Y←A1
which specifies the types and ranks of the arguments:
A |
Any [Numeric, Character or Boolean] |
D |
Numeric |
I |
Integer |
C |
Character |
B |
Boolean |
A number following the type indicates the rank, e.g.
A0 |
Any scalar (rank 0) |
A1 |
Any vector (rank 1) |
A2 |
Any matrix (rank 2) |
Thus the idiom shown expects two character or numeric vectors, X
and Y
. It will find the index position of each element of Y
in X
, for example:
X←'which side does an ostrich have its feathers?' Y←'on the outside, of course!' ((⍴X)⍴⍋⍋X⍳X,Y)⍳(⍴Y)⍴⍋⍋X⍳Y,X 13 18 6 22 2 10 11 20 46 34 7 3 9 14 46 16 46 37 19 4 46 46 23 15 31 46 (X,'-')[((⍴X)⍴⍋⍋X⍳X,Y)⍳(⍴Y)⍴⍋⍋X⍳Y,X] on the o-tside- -f c--rse-
In this example, the first 'o' character in Y
occurs in at index position 13 in X
, the second one occurs at position 20, and the third and fourth 'o' characters are not present in X
.
For a more detailed description of how this particular idiom works, see this analysis by Bob Smith.
Idiom Library Listing
Grade Up ⍋
1. | Progressive index of (without replacement) | X←A1; Y←A1
|
((⍴X)⍴⍋⍋X⍳X,Y)⍳(⍴Y)⍴⍋⍋X⍳Y,X
| ||
2. | Ascending cardinal numbers (ranking, shareable) | X←D1
|
⌊.5×(⍋⍋X)+⌽⍋⍋⌽X
| ||
3. | Cumulative maxima (⌈\ ) of subvectors of Y indicated by X |
X←B1; Y←D1
|
Y[A⍳⌈\A←⍋A[⍋(+\X)[A←⍋Y]]]
| ||
4. | Cumulative minima (⌊\ ) of subvectors of Y indicated by X |
X←B1; Y←D1
|
Y[A⍳⌈\A←⍋A[⍋(+\X)[A←⍒Y]]]
| ||
5. | Progressive index of (without replacement) | X←A1; Y←A1
|
((⍋X⍳X,Y)⍳⍳⍴X)⍳(⍋X⍳Y,X)⍳⍳⍴Y
| ||
6. | Test if X and Y are permutations of each other | X←D1; Y←D1
|
Y[⍋Y]∧.=X[⍋X]
| ||
7. | Test if X is a permutation vector | X←I1
|
X∧.=⍋⍋X
| ||
8. | Grade up (⍋ ) for sorting subvectors of Y having lengths X |
Y←D1; X←I1; (⍴Y) ←→ +/X
|
A[⍋(+\(⍳⍴Y)∊+\⎕IO,X)[A←⍋Y]]
| ||
9. | Index of the elements of X in Y | X←D1; Y←D1
|
(((1,A)/B)⌊1+⍴Y)[(⍴Y)↓(+\1,A←(1↓A)≠¯1↓A←A[B])[⍋B←⍋A←Y,X]]
| ||
10. | Minima (⌊/) of elements of subvectors of Y indicated by X | X←B1; Y←D1
|
Y[A[X/⍋(+\X)[A←⍋Y]]]
| ||
11. | Grade up (⍋ ) for sorting subvectors of Y indicated by X |
X←B1; Y←D1
|
A[⍋(+\X)[A←⍋Y]]
| ||
12. | Occurences of the elements of X | X←D1
|
|-⌿(2,⍴X)⍴⍋⍋X,X
| ||
13. | Sorting rows of matrix X into ascending order | X←D2
|
(⍴X)⍴(,X)[A[⍋(,⍉(⌽⍴X)⍴⍳1↑⍴X)[A←⍋,X]]]
| ||
14. | Adding a new dimension after dimension G Y-fold | G←I0; Y←I0; X←A
|
(⍋⍋(G+1),⍳⍴⍴X)⍉(Y,⍴X)⍴X
| ||
15. | Sorting rows of matrix X into ascending order | X←D2
|
A←(⍋,X)-⎕IO ⋄ (⍴X)⍴(,X)[⎕IO+A[⍋⌊A÷¯1↑⍴X]]
| ||
16. | Y smallest elements of X in order of occurrence | X←D1, Y←I0
|
((⍋⍋X)∊⍳Y)/X
| ||
17. | Merging X, Y, Z ... under control of G (mesh) | X←A1; Y←A1; Z←A1; ... ; G←I1
|
(X,Y,Z,...)[⍋⍋G]
| ||
18. | Merging X and Y under control of G (mesh) | X←A1; Y←A1; G←B1
|
(X,Y)[⍋⍋G]
| ||
19. | Ascending cardinal numbers (ranking, all different) | X←D1
|
⍋⍋X
| ||
20. | Grade down (⍒ ) for sorting subvectors of Y having lengths X |
Y←D1; X←I1; (⍴Y) ←→ +/X
|
A[⍋(+\(⍳⍴Y)∊+\⎕IO,X)[A←⍒Y]]
| ||
21. | Maxima (⌈/) of elements of subvectors of Y indicated by X | X←B1; Y←D1
|
Y[A[X/⍋(+\X)[A←⍒Y]]]
| ||
22. | Grade down (⍒ ) for sorting subvectors of Y indicated by X |
X←B1; Y←D1
|
A[⍋(+\X)[A←⍒Y]]
| ||
23. | Y largest elements of X in order of occurrence | X←D1; Y←I0
|
((⍋⍒X)∊⍳Y)/X
| ||
24. | Merging X and Y under control of G (mesh) | X←A1; Y←A1; G←B1
|
(Y,X)[⍋⍒G]
| ||
25. | Descending cardinal numbers (ranking, all different) | X←D1
|
⍋⍒X
| ||
26. | Sorting rows of X according to key Y (alphabetizing) | X←A2; Y←A1
|
X[⍋(1+⍴Y)⊥Y⍳⍉X;]
| ||
27. | Diagonal ravel | X←A
|
(,X)[⍋+⌿(⍴X)⊤(⍳⍴,X)-⎕IO]
| ||
28. | Grade up according to key Y | Y←A1; X←A1
|
⍋Y⍳X
| ||
29. | Test if X is a permutation vector | X←I1
|
X[⍋X]∧.=⍳⍴X
| ||
30. | Sorting a matrix into lexicographic order | X←D2
|
X[⍋+⌿A<.-⍉A←X,0;]
| ||
31. | Sorting words in list X according to word length | X←C2
|
X[⍋X+.≠' ';]
| ||
32. | Classification of X to classes starting with Y | X←D1;Y←D1;Y<.≥1⌽Y
|
A[(B/C)-⍴Y]←B/+\~B←(⍴Y)<C←⍋Y,X+A←0×X ⋄ A
| ||
33. | Rotate first elements (1⌽ ) of subvectors of Y indicated by X |
X←B1; Y←A1
|
Y[⍋X++\X]
| ||
34. | Doubling quotes (for execution) | X←C1
|
(X,'''')[(⎕IO+⍴X)⌊⍋(⍳⍴X),(''''=X)/⍳⍴X]
| ||
35. | Inserting Y * 's into vector X after indices G |
X←C1; Y←I0; G←I1
|
(X,'*')[(⎕IO+⍴X)⌊⍋(⍳⍴X),(Y×⍴G)⍴G]
| ||
36. | Median[1] | X←D1
|
X[(⍋X)[⌈.5×⍴X]]
| ||
37. | Index of last maximum element of X | X←D1
|
¯1↑⍋X
| ||
38. | Index of (first) minimum element of X | X←D1
|
1↑⍋X
| ||
39. | Expansion vector with zero after indices Y | X←D1; Y←I1
|
(⍴X)≥⍋(⍳⍴X),Y
| ||
40. | Catenating G elements H before indices Y in vector X | X←A1; Y←I1; G←I0; H←A0
|
A←G×⍴,Y ⋄ ((A⍴H),X)[⍋(A⍴Y),⍳⍴X]
| ||
41. | Catenating G elements H after indices Y in vector X | X←A1; Y←I1; G←I0; H←A0
|
A←G×⍴,Y ⋄ (X,A⍴H)[⍋(⍳⍴X),A⍴Y]
| ||
42. | Merging X and Y under control of G (mesh) | X←A1; Y←A1; G←B1
|
A[⍋G]←A←Y,X ⋄ A
| ||
43. | Sorting a matrix according to Y:th column | X←D2
|
X[⍋X[;Y];]
| ||
44. | Sorting indices X according to data Y | X←I1; Y←D1
|
X[⍋Y[X]]
| ||
45. | Choosing sorting direction during execution | X←D1; Y←I0
|
⍋X×(¯1 1)[Y]
| ||
46. | Sorting Y according to X | X←A1; Y←A1
|
Y[⍋X]
| ||
47. | Sorting X into ascending order | X←D1
|
X[⍋X]
| ||
48. | Inverting a permutation | X←I1
|
⍋X
|
Grade Down ⍒
49. | Reverse vector X on condition Y | X←A1; Y←B0
|
X[⍒Y!⍳⍴X]
| ||
50. | Sorting a matrix into reverse lexicographic order | X←D2
|
X[⍒+⌿A<.-⍉A←X,0;]
| ||
52. | Reversal (⌽ ) of subvectors of X having lengths Y |
X←D1; Y←I1
|
X[⌽⍒+\(⍳⍴X)∊+\⎕IO,Y]
| ||
53. | Reversal (⌽ ) of subvectors of Y indicated by X |
X←B1; Y←A1
|
Y[⌽⍒+\X]
| ||
55. | Indices of ones in logical vector X | X←B1
|
(+/X)↑⍒X
| ||
56. | Index of first maximum element of X | X←D1
|
1↑⍒X
| ||
57. | Moving all blanks to end of text | X←C1
|
X[⍒' '≠X]
| ||
58. | Sorting X into descending order | X←D1
|
X[⍒X]
| ||
59. | Moving elements satisfying condition Y to the start of X | X←A1; Y←B1
|
X[⍒Y]
|
Matrix Inversion / Matrix Division ⌹
60. | Interpolated value of series (X,Y) at G | X←D1; Y←D1; G←D0
|
G⊥Y⌹X∘.*⌽-⎕IO-⍳⍴X
| ||
61. | Predicted values of exponential (curve) fit | X←D1; Y←D1
|
*A+.×(⍟Y)⌹A←X∘.*0 1
| ||
62. | Coefficients of exponential (curve) fit of points (X,Y) | X←D1; Y←D1
|
A←(⍟Y)⌹X∘.*0 1 ⋄ A[1]←*A[1] ⋄ A
| ||
63. | Predicted values of best linear fit (least squares) | X←D1; Y←D1
|
A+.×Y⌹A←X∘.*0 1
| ||
64. | G-degree polynomial (curve) fit of points (X,Y) | X←D1; Y←D1
|
⌽Y⌹X∘.*0,⍳G
| ||
65. | Best linear fit of points (X,Y) (least squares) | X←D1; Y←D1
|
Y⌹X∘.*0 1
|
Decode ⊥
66. | Binary format of decimal number X | X←I0
|
⍕10⊥((1+⌈2⍟⌈/,X)⍴2)⊤X
| ||
67. | Barchart of two integer series (across the page) | X←I2; 1⍴⍴X ←→ 2
|
' *○⍟'[⎕IO+2⊥X∘.≥⍳⌈/,X]
| ||
68. | Case structure with an encoded branch destination | Y←I1; X←B1
|
→Y[1+2⊥X]
| ||
69. | Representation of current time (24 hour clock) |
|
A←⍕1000⊥3↑3↓⎕TS ⋄ A[3 6]←':' ⋄ A
| ||
70. | Representation of current date (descending format) |
|
A←⍕1000⊥3↑⎕TS ⋄ A[5 8]←'-' ⋄ A
| ||
71. | Representation of current time (12 hour clock) |
|
(1⌽,' ::',3 2⍴6 0⍕100⊥12 0 0|3↑3↓⎕TS),'AP'[1+12≤⎕TS[4]],'M'
| ||
73. | Removing duplicate rows | X←A2
|
((A⍳A)=⍳⍴A←2⊥X∧.=⍉X)⌿X
| ||
74. | Conversion from hexadecimal to decimal | X←C
|
16⊥-⎕IO-'0123456789ABCDEF'⍳⍉X
| ||
75. | Conversion of alphanumeric string into numeric | X←C1
|
10⊥¯1+'0123456789'⍳X
| ||
76. | Value of polynomial with coefficients Y at points X | X←D1; Y←D1
|
(X∘.+,0)⊥Y
| ||
77. | Changing connectivity list X to a connectivity matrix | X←C2
|
A←(×/B←0 0+⌈/,X)⍴0 ⋄ A[⎕IO+B[1]⊥-⎕IO-X]←1 ⋄ B⍴A
| ||
78. | Present value of cash flows X at interest rate Y % | X←D1; Y←D0
|
(÷1+Y÷100)⊥⌽X
| ||
79. | Justifying right | X←C
|
(1-(' '=X)⊥1)⌽X
| ||
80. | Number of days in month X of years Y (for all leap years) | X←I0; Y←I
|
(12⍴7⍴31 30)[X]-0⌈¯1+2⊥(X=2),[.1](0≠400|Y)-(0≠100|Y)-0≠4|Y
| ||
81. | Number of days in month X of years Y (for most leap years) | X←I0; Y←I
|
(12⍴7⍴31 30)[X]-0⌈¯1+2⊥(X=2),[.1]0≠4|Y
| ||
82. | Encoding current date |
|
100⊥100|3↑⎕TS
| ||
83. | Removing trailing blanks | X←C1
|
(1-(' '=X)⊥1)↓X
| ||
84. | Index of first non-blank, counted from the rear | X←C1
|
(' '=X)⊥1
| ||
85. | Indexing scattered elements | X←A; Y←I2
|
(,X)[⎕IO+(⍴X)⊥Y-⎕IO]
| ||
86. | Conversion of indices Y of array X to indices of raveled X | X←A; Y←I2
|
⎕IO+(⍴X)⊥Y-⎕IO
| ||
87. | Number of columns in array X as a scalar | X←A
|
0⊥⍴X
| ||
88. | Future value of cash flows X at interest rate Y % | X←D1; Y←D0
|
(1+Y÷100)⊥X
| ||
89. | Sum of the elements of vector X | X←D1
|
1⊥X
| ||
90. | Last element of numeric vector X as a scalar | X←D1
|
0⊥X
| ||
91. | Last row of matrix X as a vector | X←A
|
0⊥X
| ||
92. | Integer representation of logical vectors | X←B
|
2⊥X
| ||
93. | Value of polynomial with coefficients Y at point X | X←D0; Y←D
|
X⊥Y
|
Encode ⊤
94. | Conversion from decimal to hexadecimal (X=1..255 ) |
X←I
|
⍉'0123456789ABCDEF'[⎕IO+((⌈⌈/16⍟,X)⍴16)⊤X]
| ||
this alternative opens the range to 0..⌊/⍳0 | ||
⍉'0123456789ABCDEF'[⎕IO+((1+⌊16⍟⌈/X+X=0)⍴16)⊤X]
| ||
95. | All binary representations up to X (truth table) | X←I0
|
((⌈2⍟1+X)⍴2)⊤0,⍳X
| ||
96. | Representation of X in base Y | X←D0; Y←D0
|
((1+⌊Y⍟X)⍴Y)⊤X
| ||
97. | Digits of X separately | X←I0
|
((1+⌊10⍟X)⍴10)⊤X
| ||
98. | Helps locating column positions 1..X | X←I0
|
1 0⍕10 10⊤1-⎕IO-⍳X
| ||
99. | Conversion of characters to hexadecimal representation (⎕AV ) |
X←C1
|
,' ',⍉'0123456789ABCDEF'[⎕IO+16 16⊤-⎕IO-⎕AV⍳X]
| ||
100. | Polynomial with roots X | X←D1
|
⌽((0,⍳⍴X)∘.=+⌿~A)+.×(-X)×.*A←((⍴X)⍴2)⊤¯1+⍳2*⍴X
| ||
101. | Index pairs of saddle points | X←D2
|
⎕IO+(⍴X)⊤-⎕IO-(,(X=(⍴X)⍴⌈⌿X)∧X=⍉(⌽⍴X)⍴⌊/X)/⍳×/⍴X
| ||
102. | Changing connectivity matrix X to a connectivity list | X←C2
|
(,X)/1+A⊤¯1+⍳×/A←⍴X
| ||
103. | Matrix of all indices of X | X←A
|
⎕IO+(⍴X)⊤(⍳×/⍴X)-⎕IO
| ||
104. | Separating a date YYMMDD to YY, MM, DD | X←D
|
⍉(3⍴100)⊤X
| ||
105. | Indices of elements Y in array X | X←A; Y←A
|
⎕IO+(⍴X)⊤(-⎕IO)+(,X∊Y)/⍳⍴,X
| ||
106. | All pairs of elements of ⍳X and ⍳Y |
X←I0; Y←I0
|
⎕IO+(X,Y)⊤(⍳X×Y)-⎕IO
| ||
107. | Matrix for choosing all subsets of X (truth table) | X←A1
|
((⍴X)⍴2)⊤¯1+⍳2*⍴X
| ||
108. | All binary representations with X bits (truth table) | X←I0
|
(X⍴2)⊤¯1+⍳2*X
| ||
109. | Incrementing cyclic counter X with upper limit Y | X←D; Y←D0
|
1+Y⊤X
| ||
110. | Decoding numeric code ABBCCC into a matrix | X←I
|
10 100 1000⊤X
| ||
111. | Integer and fractional parts of positive numbers | X←D
|
0 1⊤X
|
Logarithm ⍟
112. | Number of decimals of elements of X | X←D1
|
⌊10⍟(⍎('.'≠A)/A←⍕X)÷X
| ||
113. | Number of sortable columns at a time using ⊥ and alphabet X |
X←C1
|
⌊(1+⍴X)⍟2*(A=¯1+A←2*⍳128)⍳1
| ||
114. | Playing order in a cup for X ranked players | X←I0
|
,⍉(A⍴2)⍴(2*A←⌈2⍟X)↑⍳X
| ||
115. | Arithmetic precision of the system (in decimals) |
|
⌊|10⍟|1-3×÷3
| ||
116. | Number of digitpositions in integers in X | X←I
|
1+(X<0)+⌊10⍟|X+0=X
| ||
117. | Number of digit positions in integers in X | X←I
|
1+⌊10⍟(X=0)+X×(1 ¯10)[1+X<0]
| ||
118. | Number of digits in positive integers in X | X←I
|
1+⌊10⍟X+0=X
|
Branch →
119. | Case structure according to key vector G | X←A0; Y←I1; G←A1
|
→Y[G⍳X]
| ||
120. | Forming a transitive closure | X←B2
|
→⎕LC⌈⍳∨/,(X←X∨X∨.∧X)≠+X
| ||
121. | Case structure with integer switch | X←I0; Y←I1
|
→X⌽Y
| ||
122. | For-loop ending construct | X←I0; Y←I0; G←I0
|
→Y⌈⍳G≥X←X+1
| ||
123. | Conditional branch to line Y | X←B0; Y←I0; Y>0
|
→Y⌈⍳X
| ||
124. | Conditional branch out of program | X←B0
|
→0⌊⍳X
| ||
125. | Conditional branch depending on sign of X | X←I0; Y←I1
|
→Y[2+×X]
| ||
126. | Continuing from line Y (if X>0) or exit | X←D0; Y←I0
|
→Y××X
| ||
127. | Case structure using levels with limits G | X←D0; G←D1; Y←I1
|
→(X≥G)/Y
| ||
128. | Case structure with logical switch (preferring from start) | X←B1; Y←I1
|
→X/Y
| ||
129. | Conditional branch out of program | X←B0
|
→0×⍳X
|
Execute ⍎
132. | Test for symmetricity of matrix X | X←A2
|
⍎⍎'1','↑↓'[⎕IO+∧/(⍴X)=⌽⍴X],'''0~0∊X=⍉X'''
| ||
133. | Using a variable named according to X | X←A0; Y←A
|
⍎'VAR',(⍕X),'←Y'
| ||
134. | Rounding to ⎕PP precision |
X←D1
|
⍎⍕X
| ||
135. | Convert character or numeric data into numeric | X←A1
|
⍎⍕X
| ||
136. | Reshaping only one-element numeric vector X into a scalar | X←D1
|
⍎⍕X
| ||
137. | Graph of F(X) at points X ('X'∊F) | F←A1; X←D1
|
' *'[⎕IO+(⌽(¯1+⌊/A)+⍳1+(⌈/A)-⌊/A)∘.=A←⌊.5+⍎F]
| ||
138. | Conversion of each row to a number (default zero) | X←C2
|
(X∨.≠' ')\1↓⍎'0 ',,X,' '
| ||
139. | Test for symmetricity of matrix X | X←A2
|
⍎(¯7*A∧.=⌽A←⍴X)↑'0~0∊X=⍉X'
| ||
140. | Execution of expression X with default value Y | X←D1
|
⍎((X∧.=' ')/'Y'),X
| ||
141. | Changing X if a new input value is given | X←A
|
X←⍎,((2↑'X'),' ',[.5]A)[⎕IO+~' '∧.=A←⍞;]
| ||
142. | Definite integral of F(X) in range Y with G steps ('X'∊F) | F←A1; G←D0; Y←D1; ⍴Y ←→ 2
|
A+.×⍎F,0⍴X←Y[1]+(A←--/Y÷G)×0,⍳G
| ||
143. | Test if numeric and conversion to numeric form | X←C1
|
1↓⍎'0 ',(∧/X∊' 0123456789')/X
| ||
144. | Tests the social security number (Finnish) | Y←'01...9ABC...Z'; 10=⍴X
|
(¯1↑X)=((~Y∊'GIOQ')/Y)[1+31|⍎9↑X]
| ||
145. | Conditional execution | X←B0
|
⍎X/'EXPRESSION'
| ||
146. | Conditional branch out of programs | X←B0
|
⍎X/'→'
| ||
147. | Using default value 100 if X does not exist | X←A
|
⍎(¯3*2≠⎕NC 'X')↑'X100'
| ||
148. | Conditional execution | X←B0
|
⍎X↓'⍝ ...'
| ||
149. | Giving a numeric default value for input | X←D0
|
1⍴(⍎⍞,',⍳0'),X
| ||
150. | Assign values of expressions in X to variables named in Y | X←C2; Y←C2
|
A←⍎,',','(','0','⍴',Y,'←',X,')'
| ||
151. | Evaluation of several expressions; results form a vector | X←A
|
⍎,',','(',',',X,')'
| ||
152. | Sum of numbers in character matrix X | X←A2
|
⍎,'+',X
| ||
153. | Indexing when rank is not known beforehand | X←A; Y←I
|
⍎'X[',((¯1+⍴⍴X)⍴';'),'Y]'
|
Format ⍕
154. | Numeric headers (elements of X) for rows of table Y | X←D1; Y←A2
|
(3⌽7 0⍕X∘.+,0),⍕Y
| ||
155. | Formatting a numerical vector to run down the page | X←D1
|
⍕X∘.+,0
| ||
156. | Representation of current date (ascending format) |
|
A←⍕⌽3↑⎕TS ⋄ A[(' '=A)/⍳⍴A]←'.' ⋄ A
| ||
157. | Representation of current date (American) |
|
A←⍕100|1⌽3↑⎕TS ⋄ A[(' '=A)/⍳⍴A]←'/' ⋄ A
| ||
158. | Formatting with zero values replaced with blanks | X←A
|
(⍴A)⍴B\(B←,('0'≠A)∨' '≠¯1⌽A)/,A←' ',⍕X
| ||
159. | Number of digit positions in scalar X (depends on ⎕PP ) |
X←D0
|
⍴⍕X
| ||
160. | Leading zeroes for X in fields of width Y | X←I1; Y←I0; X≥0
|
0 1↓(2↑Y+1)⍕X∘.+,10*Y
| ||
161. | Row-by-row formatting (width G) of X with Y decimals per row | X←D2; Y←I1; G←I0
|
((1,G)×⍴X)⍴2 1 3⍉(⌽G,⍴X)⍴(,G,[1.1]Y)⍕⍉X
| ||
163. | Formatting X with H decimals in fields of width G | X←D; G←I1; H←I1
|
(,G,[1.1]H)⍕X
|
Roll / Deal ?
164. | Y-shaped array of random numbers within ( X[1],X[2] ] | X←I1; Y←I1
|
X[1]+?Y⍴--/X
| ||
165. | Removing punctuation characters | X←A1
|
(~X∊' .,:;?''')/X
| ||
166. | Choosing Y objects out of ⍳X with replacement (roll) |
Y←I; X←I
|
?Y⍴X
| ||
167. | Choosing Y objects out of ⍳X without replacement (deal) |
X←I0; Y←I0
|
Y?X
|
Geometrical Functions ○
168. | Arctan Y÷X | X←D; Y←D
|
((X≠0)ׯ3○Y÷X+X=0)+○((X=0)×.5××Y)+(X<0)×1-2×Y<0
| ||
169. | Conversion from degrees to radians | X←D
|
X×○÷180
| ||
170. | Conversion from radians to degrees | X←D
|
X×180÷○1
| ||
171. | Rotation matrix for angle X (in radians) counter-clockwise | X←D0
|
2 2⍴1 ¯1 1 1×2 1 1 2○X
|
Factorial / Binomial !
172. | Number of permutations of X objects taken Y at a time | X←D; Y←D
|
(!Y)×Y!X
| ||
173. | Value of Taylor series with coefficients Y at point X | X←D0; Y←D1
|
+/Y×(X*A)÷!A←¯1+⍳⍴Y
| ||
174. | Poisson distribution of states X with average number Y | X←I; Y←D0
|
(*-Y)×(Y*X)÷!X
| ||
175. | Gamma function | X←D0
|
!X-1
| ||
176. | Binomial distribution of X trials with probability Y | X←I0; Y←D0
|
(A!X)×(Y*A)×(1-Y)*X-A←-⎕IO-⍳X+1
| ||
177. | Beta function | X←D0; Y←D0
|
÷Y×(X-1)!Y+X-1
| ||
178. | Selecting elements satisfying condition X, others to 1 | X←B; Y←D
|
X!Y
| ||
179. | Number of combinations of X objects taken Y at a time | X←D; Y←D
|
Y!X
|
Index Of ⍳
180. | Removing elements Y from beginning and end of vector X | X←A1; Y←A
|
((A⍳1)-⎕IO)↓(⎕IO-(⌽A←~X∊Y)⍳1)↓X
| ||
181. | Alphabetical comparison with alphabets G | X←A; Y←A
|
(G⍳X)<G⍳Y
| ||
183. | Sum over elements of X determined by elements of Y | X←D1; Y←D1
|
X+.×Y∘.=((⍳⍴Y)=Y⍳Y)/Y
| ||
184. | First occurrence of string X in string Y | X←A1; Y←A1
|
(∧⌿(¯1+⍳⍴X)⌽X∘.=Y)⍳1
| ||
185. | Removing duplicate rows | X←A2
|
((A⍳A)=⍳⍴A←⎕IO++⌿∧⍀X∨.≠⍉X)⌿X
| ||
186. | First occurrence of string X in matrix Y | X←A1; Y←A2; ¯1↑⍴Y←→⍴X
|
(Y∧.=X)⍳1
| ||
187. | Indices of ones in logical vector X | X←B1
|
(+\X)⍳⍳+/X
| ||
188. | Executing costly monadic function F on repetitive arguments | X←A1
|
(F B/X)[+\B←(X⍳X)=⍳⍴X]
| ||
189. | Index of (first) maximum element of X | X←D1
|
X⍳⌈/X
| ||
190. | Index of first occurrence of elements of Y | X←C1; Y←C1
|
⌊/X⍳Y
| ||
191. | Index of (first) minimum element of X | X←D1
|
X⍳⌊/X
| ||
192. | Test if each element of X occurs only once | X←A1
|
∧/(X⍳X)=⍳⍴X
| ||
193. | Test if all elements of vector X are equal | X←A1
|
∧/⎕IO=X⍳X
| ||
194. | Interpretation of roman numbers | X←A
|
+/Aׯ1*A<1⌽A←0,(1000 500 100 50 10 5 1)['MDCLXVI'⍳X]
| ||
195. | Removing elements Y from end of vector X | X←A1; Y←A
|
(⎕IO-(~⌽X∊Y)⍳1)↓X
| ||
196. | Removing trailing blanks | X←C1
|
(1-(⌽' '≠X)⍳1)↓X
| ||
198. | Index of last occurrence of Y in X (⎕IO-1 if not found) |
X←A1; Y←A
|
((¯1 1)[2×⎕IO]+⍴X)-(⌽X)⍳Y
| ||
199. | Index of last occurrence of Y in X (0 if not found) | X←A1; Y←A
|
(1+⍴X)-(⌽X)⍳Y
| ||
200. | Index of last occurrence of Y in X, counted from the rear | X←A1; Y←A
|
(⌽X)⍳Y
| ||
201. | Index of first occurrence of G in X (circularly) after Y | X←A1; Y←I0; G←A
|
⎕IO+(⍴X)|Y+(Y⌽X)⍳G
| ||
202. | Alphabetizing X; equal alphabets in same column of Y | Y←C2; X←C
|
(¯1↑⍴Y)|(,Y)⍳X
| ||
203. | Changing index of an unfound element to zero | Y←A1; X←A
|
(1+⍴Y)|Y⍳X
| ||
204. | Replacing elements of G in set X with corresponding Y | X←A1, Y←A1, G←A
|
A[B/⍳⍴B]←Y[(B←B≤⍴Y)/B←X⍳A←,G] ⋄ (⍴G)⍴A
| ||
205. | Removing duplicate elements (nub) | X←A1
|
((X⍳X)=⍳⍴X)/X
| ||
206. | First word in X | X←C1
|
(¯1+X⍳' ')↑X
| ||
207. | Removing elements Y from beginning of vector X | X←A1; Y←A
|
(((~X∊Y)⍳1)-⎕IO)↓X
| ||
208. | Removing leading zeroes | X←A1
|
(¯1+(X='0')⍳0)↓X
| ||
209. | Index of first one after index Y in X | G←I0; X←B1
|
Y+(Y↓X)⍳1
| ||
210. | Changing index of an unfound element to zero (not effective) | X←A; Y←A1
|
(X∊Y)×Y⍳X
| ||
211. | Indicator of first occurrence of each unique element of X | X←A1
|
(X⍳X)=⍳⍴X
| ||
212. | Inverting a permutation | X←I1
|
X⍳⍳⍴X
| ||
213. | Index of first differing element in vectors X and Y | X←A1; Y←A1
|
(Y≠X)⍳1
| ||
214. | Which elements of X are not in set Y (difference of sets) | X←A; Y←A1
|
(⎕IO+⍴Y)=Y⍳X
| ||
215. | Changing numeric code X into corresponding name in Y | X←D; Y←D1; G←C2
|
G[Y⍳X;]
| ||
216. | Index of key Y in key vector X | X←A1; Y←A
|
X⍳Y
| ||
217. | Conversion from characters to numeric codes | X←A
|
⎕AV⍳X
| ||
218. | Index of first satisfied condition in X | X←B1
|
X⍳1
|
Outer Product ∘.!
∘.⌈
∘.|
219. | Pascal's triangle of order X (binomial coefficients) | X←I0
|
⍉A∘.!A←0,⍳X
| ||
220. | Maximum table | X←I0
|
(⍳X)∘.⌈⍳X
| ||
221. | Number of decimals (up to Y) of elements of X | X←D; Y←I0
|
0+.≠(⌈(10*Y)×10*⎕IO-⍳Y+1)∘.|⌈X×10*Y
| ||
222. | Greatest common divisor of elements of X | X←I1
|
⌈/(∧/0=A∘.|X)/A←⍳⌊/X
| ||
223. | Divisibility table | X←I1
|
0=(⍳⌈/X)∘.|X
| ||
224. | All primes up to X | X←I0
|
(2=+⌿0=(⍳X)∘.|⍳X)/⍳X
|
Outer Product ∘.*
∘.×
∘.-
∘.+
225. | Compound interest for principals Y at rates G % in times X | X←D; Y←D; G←D
|
Y∘.×(1+G÷100)∘.*X
| ||
226. | Product of two polynomials with coefficients X and Y | X←D1; Y←D1
|
+⌿(⎕IO-⍳⍴X)⌽X∘.×Y,0×1↓X
| ||
228. | Shur product | X←D2; Y←D2
|
1 2 1 2⍉X∘.×Y
| ||
229. | Direct matrix product | X←D2; Y←D2
|
1 3 2 4⍉X∘.×Y
| ||
230. | Multiplication table | X←I0
|
(⍳X)∘.×⍳X
| ||
231. | Replicating a dimension of rank three array X Y-fold | Y←I0; X←A3
|
X[;,(Y⍴1)∘.×⍳(⍴X)[2];]
| ||
232. | Array and its negative ('plus minus') | X←D
|
X∘.×1 ¯1
| ||
233. | Move set of points X into first quadrant | X←D2
|
1 2 1⍉X∘.-⌊/X
| ||
234. | Test relations of elements of X to range Y; result in ¯2..2 | X←D; Y←D; 2=¯1↑⍴Y
|
+/×X∘.-Y
| ||
235. | Occurrences of string X in string Y | X←A1; Y←A1
|
(Y[A∘.+¯1+⍳⍴X]∧.=X)/A←(A=1↑X)/⍳⍴A←(1-⍴X)↓Y
| ||
236. | Sum of common parts of matrices (matrix sum) | X←D2; Y←D2
|
1 2 1 2⍉X∘.+Y
| ||
237. | Adding X to each row of Y | X←D1; Y←D2
|
1 1 2⍉X∘.+Y
| ||
238. | Adding X to each row of Y | X←D1; Y←D2
|
1 2 1⍉Y∘.+X
| ||
240. | Adding X to each column of Y | X←D1; Y←D2
|
2 1 2⍉X∘.+Y
| ||
241. | Adding X to each column of Y | X←D1; Y←D2
|
1 2 2⍉Y∘.+X
| ||
242. | Hilbert matrix of order X | X←I0
|
÷¯1+(⍳X)∘.+⍳X
| ||
243. | Moving index of width Y for vector X | X←A1; Y←I0
|
(0,⍳(⍴X)-Y)∘.+Y
| ||
244. | Indices of subvectors of length Y starting at X+1 | X←I1; Y←I0
|
X∘.+⍳Y
| ||
245. | Reshaping numeric vector X into a one-column matrix | X←D1
|
X∘.+,0
| ||
246. | Annuity coefficient: X periods at interest rate Y % | X←I; Y←D
|
((⍴A)⍴Y÷100)÷A←⍉1-(1+Y÷100)∘.*-X
|
Outer Product ∘.<
∘.≤
∘.≥
∘.>
247. | Matrix with X[i] trailing zeroes on row i | X←I1
|
X∘.<⌽⍳⌈/X
| ||
248. | Matrix with X[i] leading zeroes on row i | X←I1
|
X∘.<⍳⌈/X
| ||
249. | Distribution of X into intervals between Y | X←D; Y←D1
|
+/((¯1↓Y)∘.≤X)∧(1↓Y)∘.>X
| ||
250. | Histogram (distribution barchart; down the page) | X←I1
|
' ⎕'[⎕IO+(⌽⍳⌈/A)∘.≤A←+/(⍳1+(⌈/X)-⌊/X)∘.=X]
| ||
251. | Barchart of integer values (down the page) | X←I1
|
' ⎕'[⎕IO+(⌽⍳⌈/X)∘.≤X]
| ||
252. | Test if X is an upper triangular matrix | X←D2
|
∧/,(0≠X)≤A∘.≤A←⍳1↑⍴X
| ||
253. | Number of ?s intersecting ?s (X=starts, Y=stops) | X←D1; Y←D1
|
+/A∧⍉A←X∘.≤Y
| ||
254. | Contour levels Y at points with altitudes X | X←D0; Y←D1
|
Y[+⌿Y∘.≤X]
| ||
255. | X×X upper triangular matrix | X←I0
|
(⍳X)∘.≤⍳X
| ||
256. | Classification of elements Y into X classes of equal size | X←I0; Y←D1
|
+/(A×X÷⌈/A←Y-⌊/Y)∘.≥¯1+⍳X
| ||
257. | Matrix with X[i] trailing ones on row i | X←I1
|
X∘.≥⌽⍳⌈/X
| ||
258. | Comparison table | X←I1
|
X∘.≥⍳⌈/X,0
| ||
259. | Barchart of X with height Y (across the page) | X←D1; Y←D0
|
' ⎕'[⎕IO+X∘.≥(⌈/X)×(⍳Y)÷Y]
| ||
260. | Barchart of integer values (across the page) | X←I1
|
' ⎕'[⎕IO+X∘.≥⍳⌈/X]
| ||
261. | Matrix with X[i] leading ones on row i | X←I1
|
X∘.≥⍳⌈/X
| ||
263. | Test if X is a lower triangular matrix | X←D2
|
∧/,(0≠X)≤A∘.≥A←⍳1↑⍴X
| ||
264. | Test if X is within range [ Y[1],Y[2] ) | X←D; Y←D1
|
≠/X∘.≥Y
| ||
265. | Ordinal numbers of words in X that indices Y point to | X←C1; Y←I
|
⎕IO++/Y∘.≥(' '=X)/⍳⍴X
| ||
266. | Which class do elements of X belong to | X←D
|
+/X∘.≥0 50 100 1000
| ||
267. | X×X lower triangular matrix | X←I0
|
(⍳X)∘.≥⍳X
| ||
268. | Moving all blanks to end of each row | X←C
|
(⍴X)⍴(,(+/A)∘.>-⎕IO-⍳¯1↑⍴X)\(,A←X≠' ')/,X
| ||
269. | Justifying right fields of X (lengths Y) to length G | X←A1; Y←I1; G←I0
|
(,Y∘.>⌽(⍳G)-⎕IO)\X
| ||
270. | Justifying left fields of X (lengths Y) to length G | X←A1; Y←I1; G←I0
|
(,Y∘.>(⍳G)-⎕IO)\X
|
Outer Product ∘.≠
∘.=
271. | Indices of elements of Y in corr. rows of X (X[i;]⍳Y[i;] ) |
X←A2; Y←A2
|
1++/∧\1 2 1 3⍉Y∘.≠X
| ||
273. | Indicating equal elements of X as a logical matrix | X←A1
|
⍉X∘.=(1 1⍉<\X∘.=X)/X
| ||
275. | Changing connection matrix X (¯1 → 1 ) to a node matrix |
X←I2
|
(1 ¯1∘.=⍉X)+.×⍳1↑⍴⎕←X
| ||
276. | Sums according to codes G | X←A; Y←D; G←A
|
(G∘.=X)+.×Y
| ||
277. | Removing duplicate elements (nub) | X←A1
|
(1 1⍉<\X∘.=X)/X
| ||
278. | Changing node matrix X (starts,ends) to a connection matrix | X←I2
|
-/(⍳⌈/,X)∘.=⍉X
| ||
279. | Test if all elements of vector X are equal | X←B1
|
∨/∧/0 1∘.=X
| ||
280. | Test if elements of X belong to corr. row of Y (X[i;]∊Y[i;] ) |
X←A2; Y←A2; 1↑⍴X←→1↑⍴Y
|
∨/1 2 1 3⍉X∘.=Y
| ||
281. | Test if X is a permutation vector | X←I1
|
∧/1=+⌿X∘.=⍳⍴X
| ||
282. | Occurrences of string X in string Y | X←C1; Y←C1
|
(∧⌿(¯1+⍳⍴X)⌽(X∘.=Y),0)/⍳1+⍴Y
| ||
283. | Division to Y classes with width H, minimum G | X←D; Y←I0; G←D0; H←D0
|
+/(⍳Y)∘.=⌈(X-G)÷H
| ||
285. | Repeat matrix | X←A1; Y←A1
|
(((¯1⌽~A)∧A←(¯1↓X=1⌽X),0)/Y)∘.=Y
| ||
286. | X×X identity matrix | X←I0
|
(⍳X)∘.=⍳X
|
Inner Product ⌈.×
⌊.×
⌊.+
×.○
×.*
+.*
287. | Maxima of elements of subsets of X specified by Y | X←A1; Y←B
|
A+(X-A←⌊/X)⌈.×Y
| ||
288. | Indices of last non-blanks in rows | X←C
|
(' '≠X)⌈.×⍳¯1↑⍴X
| ||
289. | Maximum of X with weights Y | X←D1; Y←D1
|
Y⌈.×X
| ||
290. | Minimum of X with weights Y | X←D1; Y←D1
|
Y⌊.×X
| ||
292. | Extending a distance table to next leg | X←D2
|
X←X⌊.+X
| ||
293. | A way to combine trigonometric functions (sin X cos Y) | X←D0; Y←D0
|
1 2×.○X,Y
| ||
294. | Sine of a complex number | X←D; 2=1↑⍴X
|
(2 2⍴1 6 2 5)×.○X
| ||
295. | Products over subsets of X specified by Y | X←A1; Y←B
|
X×.*Y
| ||
296. | Sum of squares of X | X←D1
|
X+.*2
| ||
297. | Randomizing random numbers (in ⎕LX in a workspace) |
|
⎕RL←⎕TS+.*2
|
Inner Product ∨.∧
<.<
<.≤
<.≥
≤.≥
>.>
298. | Extending a transitive binary relation | X←B2
|
X←X∨.∧X
| ||
299. | Test if X is within range [ Y[1;],Y[2;] ) | X←D0; Y←D2; 1↑⍴Y ←→ 2
|
X<.<Y
| ||
300. | Test if X is within range ( Y[1;],Y[2;] ] | X←D0; Y←D2; 1↑⍴Y ←→ 2
|
X<.≤Y
| ||
301. | Test if X is within range ( Y[1;],Y[2;] ] | X←D; Y←D2; 1↑⍴Y ←→ 2
|
X<.≤Y
| ||
302. | Test if the elements of X are ascending | X←D1
|
X<.≥1⌽X
| ||
303. | Test if X is an integer within range [ G,H ) | X←I0; G←I0; H←I0
|
~X≤.≥(⌈X),G,H
| ||
304. | Test if X is within range ( Y[1;],Y[2;] ] | X←D; Y←D2; 1↑⍴Y ←→ 2
|
(X,[.1+⍴⍴X]X)>.>Y
|
Inner Product ∨.≠
∧.=
+.≠
+.=
306. | Removing trailing blank columns | X←C2
|
(⌽∨\⌽' '∨.≠X)/X
| ||
307. | Removing leading blank rows | X←C2
|
(∨\X∨.≠' ')⌿X
| ||
308. | Removing leading blank columns | X←C2
|
(∨\' '∨.≠X)/X
| ||
309. | Index of first occurrences of rows of X as rows of Y | X←A, Y←A2
|
⎕IO++⌿∧⍀Y∨.≠⍉X
| ||
310. | X⍳Y for rows of matrices |
X←A2; Y←A2
|
⎕IO++⌿∧⍀X∨.≠⍉Y
| ||
311. | Removing duplicate blank rows | X←C2
|
(A∨1↓1⌽1,A←X∨.≠' ')⌿X
| ||
312. | Removing duplicate blank columns | X←C2
|
(A∨1,¯1↓A←' '∨.≠X)/X
| ||
313. | Removing blank columns | X←C2
|
(' '∨.≠X)/X
| ||
314. | Removing blank rows | X←C2
|
(X∨.≠' ')⌿X
| ||
315. | Test if rows of X contain elements differing from Y | X←A; Y←A0
|
X∨.≠Y
| ||
316. | Removing trailing blank rows | X←C2
|
(-2↑+/∧\⌽X∧.=' ')↓X
| ||
317. | Removing duplicate rows | X←A2
|
(∨⌿<\X∧.=⍉X)⌿X
| ||
318. | Removing duplicate rows | X←A2
|
(1 1⍉<\X∧.=⍉X)⌿X
| ||
319. | Test if circular lists are equal (excluding phase) | X←A1; Y←A1
|
∨/Y∧.=⍉(⍳⍴X)⌽(2⍴⍴X)⍴X
| ||
320. | Test if all elements of vector X are equal | X←B1
|
X∧.=∨/X
| ||
321. | Test if all elements of vector X are equal | X←B1
|
X∧.=∧/X
| ||
322. | Rows of matrix X starting with string Y | X←A2; Y←A1
|
((((1↑⍴X),⍴Y)↑X)∧.=Y)⌿X
| ||
323. | Occurrences of string X in string Y | X←A1; Y←A1
|
((-A)↓X∧.=(A,1+⍴Y)⍴Y)/⍳(⍴Y)+1-A←⍴X
| ||
324. | Test if vector Y is a row of array X | X←A; Y←A1
|
1∊X∧.=Y
| ||
325. | Comparing vector Y with rows of array X | X←A; Y←A1
|
X∧.=Y
| ||
326. | Word lengths of words in list X | X←C
|
X+.≠' '
| ||
327. | Number of occurrences of scalar X in array Y | X←A0; Y←A
|
X+.=,Y
| ||
328. | Counting pairwise matches (equal elements) in two vectors | X←A1; Y←A1
|
X+.=Y
|
Inner Product -.÷
+.÷
+.×
329. | Sum of alternating reciprocal series Y÷X | X←D1; Y←D1
|
Y-.÷X
| ||
330. | Limits X to fit in ⍕ field Y[1 2] |
X←D; Y←I1
|
(X⌈1↓A)⌊1↑A←(2 2⍴¯1 1 1 ¯.1)+.×10*(-1↓Y),-/Y+Y>99 0
| ||
331. | Value of polynomial with coefficients Y at point X | X←D0; Y←D
|
(X*¯1+⍳⍴Y)+.×⌽Y
| ||
332. | Arithmetic average (mean value) of X weighted by Y | X←D1; Y←D1
|
(Y+.×X)÷⍴X
| ||
333. | Scalar (dot) product of vectors | X←D1; Y←D1
|
Y+.×X
| ||
334. | Sum of squares of X | X←D1
|
X+.×X
| ||
335. | Summation over subsets of X specified by Y | X←A1; Y←B
|
X+.×Y
| ||
336. | Matrix product | X←D; Y←D; ¯1↑⍴X ←→ 1↑⍴Y
|
X+.×Y
| ||
337. | Sum of reciprocal series Y÷X | X←D1; Y←D1
|
Y+.÷X
|
Scan ⌈\
⌊\
×\
-\
338. | Groups of ones in Y pointed to by X (or trailing parts) | X←B; Y←B
|
Y∧A=⌈\X×A←+\Y>¯1↓0,Y
| ||
339. | Test if X is in ascending order along direction Y | X←D; Y←I0
|
∧/[Y]X=⌈\[Y]X
| ||
340. | Duplicating element of X belonging to Y,1↑X until next found |
X←A1; Y←B1
|
X[1⌈⌈\Y×⍳⍴Y]
| ||
341. | Test if X is in descending order along direction Y | X←D; Y←I0
|
∧/[Y]X=⌊\[Y]X
| ||
342. | Value of Taylor series with coefficients Y at point X | X←D0; Y←D1
|
+/Y××\1,X÷⍳¯1+⍴Y
| ||
343. | Alternating series (1 ¯1 2 ¯2 3 ¯3 ...) | X←I0
|
-\⍳X
|
Scan ⍲\
<\
≤\
≠\
346. | Value of saddle point | X←D2
|
(<\,(X=(⍴X)⍴⌈⌿X)∧X=⍉(⌽⍴X)⍴⌊/X)/,X
| ||
348. | First one (turn off all ones after first one) | X←B
|
<\X
| ||
350. | Not first zero (turn on all zeroes after first zero) | X←B
|
≤\X
| ||
351. | Running parity (≠\) over subvectors of Y indicated by X | X←B1; Y←B1
|
≠\Y≠X\A≠¯1↓0,A←X/≠\¯1↓0,Y
| ||
352. | Vector (X[1]⍴1),(X[2]⍴0),(X[3]⍴1),... |
X←I1
|
≠\(⍳+/X)∊+\⎕IO,X
| ||
353. | Not leading zeroes(∨\ ) in each subvector of Y indicated by X |
X←B1; Y←B1
|
≠\(Y∨X)\A≠¯1↓0,A←(Y∨X)/Y
| ||
354. | Leading ones (∧\ ) in each subvector of Y indicated by X |
X←B1; Y←B1
|
~≠\(Y≤X)\A≠¯1↓0,A←~(Y≤X)/Y
| ||
355. | Locations of texts between and including quotes | X←C1
|
A∨¯1↓0,A←≠\X=''''
| ||
356. | Locations of texts between quotes | X←C1
|
A∧¯1↓0,A←≠\X=''''
| ||
357. | Joining pairs of ones | X←B
|
X∨≠\X
| ||
358. | Places between pairs of ones | X←B
|
(~X)∧≠\X
| ||
359. | Running parity | X←B
|
≠\X
|
Scan ∨\
∧\
360. | Removing leading and trailing blanks | X←C1
|
((⌽∨\⌽A)∧∨\A←' '≠X)/X
| ||
361. | First group of ones | X←B
|
X∧∧\X=∨\X
| ||
362. | Removing trailing blank columns | X←C2
|
(⌽∨\⌽∨⌿' '≠X)/X
| ||
363. | Removing trailing blanks | X←C1
|
(⌽∨\⌽' '≠X)/X
| ||
364. | Removing leading blanks | X←C1
|
(∨\' '≠X)/X
| ||
365. | Not leading zeroes (turn on all zeroes after first one) | X←B
|
∨\X
| ||
366. | Centering character array X with ragged edges | X←C
|
(A-⌊0.5×(A←+/∧\⌽A)++/∧\A←' '=⌽X)⌽X
| ||
367. | Decommenting a matrix representation of a function (⎕CR ) |
X←C2
|
(∨/A)⌿(⍴X)⍴(,A)\(,A←∧\('⍝'≠X)∨≠\X='''')/,X
| ||
369. | Centering character array X with only right edge ragged | X←C
|
(-⌊0.5×+/∧\' '=⌽X)⌽X
| ||
370. | Justifying right | X←C
|
(-+/∧\⌽' '=X)⌽X
| ||
371. | Removing trailing blanks | X←C1
|
(-+/∧\⌽' '=X)↓X
| ||
372. | Justifying left | X←C
|
(+/∧\' '=X)⌽X
| ||
373. | Editing X with Y '-wise | X←C1; Y←C1
|
((~(⍴A↑X)↑'/'=Y)/A↑X),(1↓A↓Y),(A←+/∧\Y≠',')↓X
| ||
374. | Removing leading blanks | X←C1
|
(+/∧\' '=X)↓X
| ||
375. | Indices of first blanks in rows of array X | X←C
|
⎕IO++/∧\' '≠X
| ||
377. | Leading ones (turn off all ones after first zero) | X←B
|
∧\X
|
Scan +\
378. | Vector (X[1]⍴1),(Y[1]⍴0),(X[2]⍴1),... |
X←I1; Y←I1
|
(⍳+/X,Y)∊+\1+¯1↓0,((⍳+/X)∊+\X)\Y
| ||
379. | Replicate Y[i] X[i] times (for all i) | X←I1; Y←A1
|
((X≠0)/Y)[+\¯1⌽(⍳+/X)∊+\X]
| ||
380. | Vector (Y[1]+⍳X[1]),(Y[2]+⍳X[2]),(Y[3]+⍳X[3]),... |
X←I1; Y←I1; ⍴X←→⍴Y
|
⎕IO++\1+((⍳+/X)∊+\⎕IO,X)\Y-¯1↓1,X+Y
| ||
381. | Replicate Y[i] X[i] times (for all i) | X←I1; Y←A1
|
Y[+\(⍳+/X)∊¯1↓1++\0,X]
| ||
382. | Replicate Y[i] X[i] times (for all i) | X←I1; Y←A1
|
Y[⎕IO++\(⍳+/X)∊⎕IO++\X]
| ||
383. | Cumulative sums (+\) over subvectors of Y indicated by X | X←B1; Y←D1
|
+\Y-X\A-¯1↓0,A←X/+\¯1↓0,Y
| ||
384. | Sums over (+/) subvectors of Y, lengths in X | X←I1; Y←D1
|
A-¯1↓0,A←(+\Y)[+\X]
| ||
386. | X first figurate numbers | X←I0
|
+\+\⍳X
| ||
387. | Insert vector for X[i] zeroes after i:th subvector | X←I1; Y←B1
|
(⍳(⍴Y)++/X)∊+\1+¯1↓0,(1⌽Y)\X
| ||
388. | Open a gap of X[i] after Y[G[i]] (for all i) | X←I1; Y←A1; G←I1
|
((⍳(⍴Y)++/X)∊+\1+¯1↓0,((⍳⍴Y)∊G)\X)\Y
| ||
389. | Open a gap of X[i] before Y[G[i]] (for all i) | X←I1; Y←A1; G←I1
|
((⍳(⍴Y)++/X)∊+\1+((⍳⍴Y)∊G)\X)\Y
| ||
390. | Changing lengths X of subvectors to starting indicators | X←I1
|
A←(+/X)⍴0 ⋄ A[+\¯1↓⎕IO,X]←1 ⋄ A
| ||
391. | Changing lengths X of subvectors to ending indicators | X←I1
|
(⍳+/X)∊(+\X)-~⎕IO
| ||
392. | Changing lengths X of subvectors to starting indicators | X←I1
|
(⍳+/X)∊+\⎕IO,X
| ||
393. | Insert vector for X[i] elements before i:th element | X←I1
|
(⍳+/A)∊+\A←1+X
| ||
394. | Sums over (+/) subvectors of Y indicated by X | X←B1; Y←D1
|
A-¯1↓0,A←(1⌽X)/+\Y
| ||
395. | Fifo stock Y decremented with X units | Y←D1; X←D0
|
G-¯1↓0,G←0⌈(+\Y)-X
| ||
396. | Locations of texts between and including quotes | X←C1
|
A∨¯1↓0,A←2|+\X=''''
| ||
397. | Locations of texts between quotes | X←C1
|
A∧¯1↓0,A←2|+\X=''''
| ||
398. | X:th subvector of Y (subvectors separated by Y[1]) | Y←A1; X←I0
|
1↓(X=+\Y=1↑Y)/Y
| ||
399. | Locating field number Y starting with first element of X | Y←I0; X←C1
|
(Y=+\X=1↑X)/X
| ||
400. | Sum elements of X marked by succeeding identicals in Y | X←D1; Y←D1
|
A-¯1↓0,A←(Y≠1↓Y,0)/+\X
| ||
401. | Groups of ones in Y pointed to by X | X←B1; Y←B1
|
Y∧A∊(X∧Y)/A←+\Y>¯1↓0,Y
| ||
402. | ith starting indicators X | X←B1; Y←B1
|
(+\X)∊Y/⍳⍴Y
| ||
403. | G:th subvector of Y (subvectors indicated by X) | X←B1; Y←A1; G←I0
|
(G=+\X)/Y
| ||
404. | Running sum of Y consecutive elements of X | X←D1; Y←I0
|
((Y-1)↓A)-0,(-Y)↓A←+\X
| ||
405. | Depth of parentheses | X←C1
|
+\('('=X)-¯1↓0,')'=X
| ||
406. | Starting positions of subvectors having lengths X | X←I1
|
+\¯1↓⎕IO,X
| ||
407. | Changing lengths X of subvectors of Y to ending indicators | X←I1
|
(⍳⍴Y)∊(+\X)-~⎕IO
| ||
408. | Changing lengths X of subvectors of Y to starting indicators | X←I1
|
(⍳⍴Y)∊+\⎕IO,X
| ||
409. | X first triangular numbers | X←I0
|
+\⍳X
| ||
410. | Cumulative sum | X←D
|
+\X
|
Reduction ○/
÷/
-/
×/
411. | Complementary angle (arccos sin X) | X←D0
|
○/¯2 1,X
| ||
412. | Evaluating a two-row determinant | X←D2
|
-/×/0 1⊖X
| ||
413. | Evaluating a two-row determinant | X←D2
|
-/×⌿0 1⌽X
| ||
414. | Area of triangle with side lengths in X (Heron's formula) | X←D1; 3 ←→ ⍴X
|
(×/(+/X÷2)-0,X)*.5
| ||
415. | Juxtapositioning planes of rank 3 array X | X←A3
|
(×⌿2 2⍴1,⍴X)⍴2 1 3⍉X
| ||
416. | Number of rows in array X (also of a vector) | X←A
|
×/¯1↓⍴X
| ||
417. | (Real) solution of quadratic equation with coefficients X | X←D1; 3 ←→ ⍴X
|
(-X[2]-¯1 1×((X[2]*2)-×/4,X[1 3])*.5)÷2×X[1]
| ||
418. | Reshaping planes of rank 3 array to rows of a matrix | X←A3
|
(×/2 2⍴1,⍴X)⍴X
| ||
419. | Reshaping planes of rank 3 array to a matrix | X←A3
|
(×/2 2⍴(⍴X),1)⍴X
| ||
420. | Number of elements (also of a scalar) | X←A
|
×/⍴X
| ||
421. | Product of elements of X | X←D1
|
×/X
| ||
422. | Alternating product | X←D
|
÷/X
| ||
423. | Centering text line X into a field of width Y | X←C1; Y←I0
|
Y↑((⌊-/.5×Y,⍴X)⍴' '),X
| ||
424. | Alternating sum | X←D
|
-/X
|
Reduction ⌈/
⌊/
425. | Test if all elements of vector X are equal | X←D1
|
(⌈/X)=⌊/X
| ||
426. | Size of range of elements of X | X←D1
|
(⌈/X)-⌊/X
| ||
427. | Conversion of set of positive integers X to a mask | X←I1
|
(⍳⌈/X)∊X
| ||
428. | Negative infinity; the smallest representable value |
|
⌈/⍳0
| ||
429. | Vectors as column matrices in catenation beneath each other | X←A1/2; Y←A1/2
|
X,[1+.5×⌈/(⍴⍴X),⍴⍴Y]Y
| ||
430. | Vectors as row matrices in catenation upon each other | X←A1/2; Y←A1/2
|
X,[.5×⌈/(⍴⍴X),⍴⍴Y]Y
| ||
431. | Quick membership (∊ ) for positive integers |
X←I1; Y←I1
|
A←(⌈/X,Y)⍴0 ⋄ A[Y]←1 ⋄ A[X]
| ||
432. | Positive maximum, at least zero (also for empty X) | X←D1
|
⌈/X,0
| ||
433. | Maximum of elements of X | X←D1
|
⌈/X
| ||
434. | Positive infinity; the largest representable value |
|
⌊/⍳0
| ||
435. | Minimum of elements of X | X←D1
|
⌊/X
|
Reduction ∨/
⍲/
≠/
436. | Test if all elements of vector X are equal | X←B1
|
⍲/0 1∊X
| ||
437. | Test if all elements of vector X are equal | X←B1
|
(∧/X)∨~∨/X
| ||
438. | Test if all elements of vector X are equal | X←B1
|
(∧/X)=∨/X
| ||
439. | Test if all elements of vector X are equal | X←B1
|
∧/X÷∨/X
| ||
440. | Removing duplicate rows from ordered matrix X | X←A2
|
(¯1⌽1↓(∨/X≠¯1⊖X),1)⌿X
| ||
441. | Vector having as many ones as X has rows | X←A2
|
∨/0/X
| ||
442. | Test if X and Y have elements in common | X←A; Y←A1
|
∨/Y∊X
| ||
443. | None, neither | X←B
|
~∨/X
| ||
444. | Any, anyone | X←B
|
∨/X
| ||
445. | Test if all elements of vector X are equal | X←B1
|
≠/0 1∊X
| ||
446. | Parity | X←B
|
≠/X
|
Reduction ∧/
447. | Number of areas intersecting areas in X | X←D3 (n × 2 × dim)
|
+/A∧⍉A←∧/X[;A⍴1;]≤2 1 3⍉X[;(A←1↑⍴X)⍴2;]
| ||
448. | Test if all elements of vector X are equal | X←B1
|
∧/X/1⌽X
| ||
449. | Comparison of successive rows | X←A2
|
∧/X=1⊖X
| ||
450. | Test if all elements of vector X are equal | X←A1
|
∧/X=1⌽X
| ||
451. | Test if X is a valid APL name | X←C1
|
∧/((1↑X)∊10↓A),X∊A←'0..9A..Za..z'
| ||
452. | Test if all elements of vector X are equal | X←A1
|
∧/X=1↑X
| ||
453. | Identity of two sets | X←A1; Y←A1
|
∧/(X∊Y),Y∊X
| ||
454. | Test if X is a permutation vector | X←I1
|
∧/(⍳⍴X)∊X
| ||
455. | Test if all elements of vector X are equal | X←B1
|
~∧/X∊~X
| ||
456. | Test if X is boolean | X←A
|
∧/,X∊0 1
| ||
457. | Test if Y is a subset of X (Y ⊂ X ) |
X←A; Y←A1
|
∧/Y∊X
| ||
458. | Test if arrays of equal shape are identical | X←A; Y←A; ⍴X ←→ ⍴Y
|
∧/,X=Y
| ||
459. | Test if all elements of vector X are equal | X←A1
|
∧/X=X[1]
| ||
460. | Blank rows | X←C2
|
∧/' '=X
| ||
461. | All, both | X←B
|
∧/X
|
Reduction +/
462. | Standard deviation of X | X←D1
|
((+/(X-(+/X)÷⍴X)*2)÷⍴X)*.5
| ||
463. | Y:th moment of X | X←D1
|
(+/(X-(+/X)÷⍴X)*Y)÷⍴X
| ||
464. | Variance (dispersion) of X | X←D1
|
(+/(X-(+/X)÷⍴X)*2)÷⍴X
| ||
465. | Arithmetic average (mean value), also for an empty array | X←D
|
(+/,X)÷1⌈⍴,X
| ||
466. | Test if all elements of vector X are equal | X←B1
|
0=(⍴X)|+/X
| ||
467. | Average (mean value) of columns of matrix X | X←D2
|
(+⌿X)÷1↑(⍴X),1
| ||
468. | Average (mean value) of rows of matrix X | X←D2
|
(+/X)÷¯1↑1,⍴X
| ||
469. | Number of occurrences of scalar X in array Y | X←A0; Y←A
|
+/X=,Y
| ||
470. | Average (mean value) of elements of X along direction Y | X←D; Y←I0
|
(+/[Y]X)÷(⍴X)[Y]
| ||
471. | Arithmetic average (mean value) | X←D1
|
(+/X)÷⍴X
| ||
472. | Resistance of parallel resistors | X←D1
|
÷+/÷X
| ||
473. | Sum of elements of X | X←D1
|
+/X
| ||
474. | Row sum of a matrix | X←D2
|
+/X
| ||
475. | Column sum of a matrix | X←D2
|
+⌿X
| ||
476. | Reshaping one-element vector X into a scalar | X←A1
|
+/X
| ||
477. | Number of elements satisfying condition X | X←B1
|
+/X
|
Reverse ⌽
⊖
478. | Scan from end with function ⍺ |
X←A
|
⌽⍺\⌽X
| ||
479. | The index of positive integers in Y | X←I; Y←I1
|
A←9999⍴⎕IO+⍴Y ⋄ A[⌽Y]←⌽⍳⍴Y ⋄ A[X]
| ||
480. | 'Transpose' of matrix X with column fields of width Y | X←A2; G←I0
|
((⌽A)×1,Y)⍴2 1 3⍉(1⌽Y,A←(⍴X)÷1,Y)⍴X
| ||
482. | Adding X to each column of Y | X←D1; Y←D; (⍴X)=1↑⍴Y
|
Y+⍉(⌽⍴Y)⍴X
| ||
483. | Matrix with shape of Y and X as its columns | X←A1; Y←A2
|
⍉(⌽⍴Y)⍴X
| ||
484. | Derivate of polynomial X | X←D1
|
¯1↓X×⌽¯1+⍳⍴X
| ||
485. | Reverse vector X on condition Y | X←A1; Y←B0
|
,⌽[⎕IO+Y](1,⍴X)⍴X
| ||
486. | Reshaping vector X into a one-column matrix | X←A1
|
(⌽1,⍴X)⍴X
| ||
487. | Avoiding parentheses with help of reversal |
|
(⌽1, ...)
|
Rotate ⌽
⊖
488. | Vector (cross) product of vectors | X←D; Y←D
|
((1⌽X)ׯ1⌽Y)-(¯1⌽X)×1⌽Y
| ||
489. | A magic square, side X | X←I0; 1=2|X
|
A⊖(A←(⍳X)-⌈X÷2)⌽(X,X)⍴⍳X×X
| ||
490. | Removing duplicates from an ordered vector | X←A1
|
(¯1⌽1↓(X≠¯1⌽X),1)/X
| ||
491. | An expression giving itself |
|
1⌽22⍴11⍴'''1⌽22⍴11⍴'''
| ||
492. | Transpose matrix X on condition Y | X←A2; Y←B0
|
(Y⌽1 2)⍉X
| ||
493. | Any element true (∨/ ) on each subvector of Y indicated by X |
X←B1; Y←B1
|
(X/Y)≥A/1⌽A←(Y∨X)/X
| ||
494. | All elements true (∧/ ) on each subvector of Y indicated by X |
X←B1; Y←B1
|
(X/Y)∧A/1⌽A←(Y≤X)/X
| ||
495. | Removing leading, multiple and trailing Y's | X←A1; Y←A0
|
(1↑A)↓(A⍲1⌽A←Y=X)/X
| ||
496. | Changing starting indicators X of subvectors to lengths | X←B1
|
A-¯1↓0,A←(1⌽X)/⍳⍴X
| ||
498. | (Cyclic) compression of successive blanks | X←C1
|
(A∨1⌽A←X≠' ')/X
| ||
499. | Aligning columns of matrix X to diagonals | X←A2
|
(1-⍳¯1↑⍴X)⌽X
| ||
500. | Aligning diagonals of matrix X to columns | X←A2
|
(¯1+⍳¯1↑⍴X)⌽X
| ||
501. | Diagonal matrix with elements of X | X←D1
|
0 ¯1↓(-⍳⍴X)⌽((2⍴⍴X)⍴0),X
| ||
502. | Test if elements differ from previous ones (non-empty X) | X←A1
|
1,1↓X≠¯1⌽X
| ||
503. | Test if elements differ from next ones (non-empty X) | X←A1
|
(¯1↓X≠1⌽X),1
| ||
504. | Replacing first element of X with Y | X←A1; Y←A0
|
¯1⌽1↓X,Y
| ||
505. | Replacing last element of X with Y | X←A1; Y←A0
|
1⌽¯1↓Y,X
| ||
506. | Ending points for X in indices pointed by Y | X←A1; Y←I1
|
1⌽(⍳⍴X)∊Y
| ||
507. | Leftmost neighboring elements cyclically | X←A
|
¯1⌽X
| ||
508. | Rightmost neighboring elements cyclically | X←A
|
1⌽X
|
Transpose ⍉
509. | Applying to columns action defined on rows | X←A1; Y←I0
|
⍉ ... ⍉X
| ||
510. | Retrieving scattered elements Y from matrix X | X←A2; Y←I2
|
1 1⍉X[Y[1;];Y[2;]]
| ||
511. | Successive transposes of G (X after Y: X⍉Y⍉G ) |
X←I1; Y←I1
|
X[Y]⍉G
| ||
512. | Major diagonal of array X | X←A
|
(1*⍴X)⍉X
| ||
513. | Reshaping a 400×12 character matrix to fit into one page | X←C2
|
40 120⍴2 1 3⍉10 40 12⍴X
| ||
514. | Transpose of planes of a rank three array | X←A3
|
1 3 2⍉X
| ||
515. | Major diagonal of matrix X | X←A2
|
1 1⍉X
| ||
516. | Selecting specific elements from a 'large' outer product | X←A; Y←A; G←I1
|
G⍉X∘.⍺Y
| ||
517. | Test for antisymmetricity of square matrix X | X←D2
|
~0∊X=-⍉X
| ||
518. | Test for symmetricity of square matrix X | X←A2
|
~0∊X=⍉X
| ||
519. | Matrix with X columns Y | X←I0; Y←D1
|
⍉(X,⍴Y)⍴Y
|
Maximum ⌈
Minimum ⌊
520. | Limiting X between Y[1] and Y[2], inclusive | X←D; Y←D1
|
Y[1]⌈Y[2]⌊X
| ||
521. | Inserting vector Y to the end of matrix X | X←A2; Y←A1
|
(A↑X),[⍳1](1↓A←(⍴X)⌈0,⍴Y)↑Y
| ||
522. | Widening matrix X to be compatible with Y | X←A2; Y←A2
|
((0 1×⍴Y)⌈⍴X)↑X
| ||
523. | Lengthening matrix X to be compatible with Y | X←A2; Y←A2
|
((1 0×⍴Y)⌈⍴X)↑X
| ||
524. | Reshaping non-empty lower-rank array X into a matrix | X←A; 2≥⍴⍴X
|
(1⌈¯2↑⍴X)⍴X
| ||
525. | Take of at most X elements from Y | X←I; Y←A
|
(X⌊⍴Y)↑Y
| ||
526. | Limiting indices and giving a default value G | X←A1; Y←I; G←A0
|
(X,G)[(1+⍴X)⌊Y]
|
Ceiling ⌈
Floor ⌊
527. | Reshaping X into a matrix of width Y | X←D, Y←I0
|
((⌈(⍴,X)÷Y),Y)⍴X
| ||
528. | Rounding to nearest even integer | X←D
|
⌊X+1≤2|X
| ||
529. | Rounding, to nearest even integer for .5 = 1||X |
X←D
|
⌊X+.5×.5≠2|X
| ||
530. | Rounding, to nearest even integer for .5 = 1||X |
X←D
|
⌊X+.5×.5≠2|X
| ||
531. | Arithmetic progression from X to Y with step G | X←D0; Y←D0; G←D0
|
X+(G××Y-X)×(⍳1+|⌊(Y-X)÷G)-⎕IO
| ||
532. | Centering text line X into a field of width Y | X←C1; Y←I0
|
(-⌊.5×Y+⍴X)↑X
| ||
533. | Test if integer | X←D
|
X=⌊X
| ||
534. | Rounding currencies to nearest 5 subunits | X←D
|
.05×⌊.5+X÷.05
| ||
535. | First part of numeric code ABBB | X←I
|
⌊X÷1000
| ||
536. | Rounding to X decimals | X←I; Y←D
|
(10*-X)×⌊0.5+Y×10*X
| ||
537. | Rounding to nearest hundredth | X←D
|
0.01×⌊0.5+100×X
| ||
538. | Rounding to nearest integer | X←D
|
⌊0.5+X
| ||
539. | Demote floating point representations to integers | X←I
|
⌊X
|
Residue |
540. | Test if X is a leap year | X←I
|
(0=400|X)∨(0≠100|X)∧0=4|X
| ||
541. | Framing | X←C2
|
'_',[1]('|',X,'|'),[1]'¯'
| ||
542. | Magnitude of fractional part | X←D
|
1||X
| ||
543. | Fractional part with sign | X←D
|
(×X)|X
| ||
544. | Increasing the dimension of X to multiple of Y | X←A1; Y←I0
|
X,(Y|-⍴X)↑0/X
| ||
545. | Removing every Y:th element of X | X←A1; Y←I0
|
(0≠Y|⍳⍴X)/X
| ||
546. | Taking every Y:th element of X | X←A1; Y←I0
|
(0=Y|⍳⍴X)/X
| ||
547. | Divisors of X | X←I0
|
(0=A|X)/A←⍳X
| ||
548. | Removing every second element of X | X←A1
|
(2|⍳⍴X)/X
| ||
549. | Elements of X divisible by Y | X←D1; Y←D0/1
|
(0=Y|X)/X
| ||
550. | Ravel of a matrix to Y[1] columns with a gap of Y[2] | X←A2; Y←I1
|
(A×Y[1]*¯1 1)⍴(A←(⍴X)+(Y[1]|-1↑⍴X),Y[2])↑X
| ||
551. | Test if even | X←I
|
~2|X
| ||
552. | Last part of numeric code ABBB | X←I
|
1000|X
| ||
553. | Fractional part | X←D
|
1|X
|
Magnitude |
, Signum ×
554. | Increasing absolute value without change of sign | X←D; Y←D
|
(×X)×Y+|X
| ||
555. | Rounding to zero values of X close to zero | X←D; Y←D
|
X×Y≤|X
| ||
556. | Square of elements of X without change of sign | X←D
|
X×|X
| ||
557. | Choosing according to signum | X←D; Y←A1
|
Y[2+×X]
|
Expand \
⍀
558. | Not first zero (≤\) in each subvector of Y indicated by X | X←B1; Y←B1
|
~(B∧X)∨(B∨X)\A>¯1↓0,A←(B∨X)/B←~Y
| ||
559. | First one (<\) in each subvector of Y indicated by X | X←B1; Y←B1
|
(Y∧X)∨(Y∨X)\A>¯1↓0,A←(Y∨X)/Y
| ||
560. | Replacing elements of X in set Y with blanks/zeroes | X←A0; Y←A1
|
A\(A←~X∊Y)/X
| ||
561. | Replacing elements of X not in set Y with blanks/zeroes | X←A1; Y←A
|
A\(A←X∊Y)/X
| ||
562. | Merging X and Y under control of G (mesh) | X←A1; Y←A1; G←B1
|
A←G\X ⋄ A[(~G)/⍳⍴G]←Y ⋄ A
| ||
563. | Replacing elements of X not satisfying Y with blanks/zeroes | X←A; Y←B1
|
Y\Y/X
| ||
564. | Adding an empty row into X after rows Y | X←A2; Y←I1
|
(~(⍳(⍴Y)+1⍴⍴X)∊Y+⍳⍴Y)⍀X
| ||
565. | Test if numeric | X←A1
|
0∊0\0⍴X
| ||
566. | Adding an empty row into X after row Y | X←A2; Y←I0
|
((Y+1)≠⍳1+1⍴⍴X)⍀X
| ||
567. | Underlining words | X←C1
|
X,[⎕IO-.1](' '≠X)\'¯'
| ||
568. | Using boolean matrix Y in expanding X | X←A1; Y←B2
|
(⍴Y)⍴(,Y)\X
| ||
569. | Spacing out text | X←C1
|
((2×⍴X)⍴1 0)\X
|
Compress /
⌿
570. | Lengths of groups of ones in X | X←B1
|
(A>0)/A←(1↓A)-1+¯1↓A←(~A)/⍳⍴A←0,X,0
| ||
571. | Syllabization of a Finnish word X | X←A1
|
(~A∊1,⍴X)/A←A/⍳⍴A←(1↓A,0)←~X∊'aeiouyÄÖ'
| ||
572. | Choosing a string according to boolean value G | X←C1; Y←C1; G←B0
|
(G/X),(~G)/Y
| ||
573. | Removing leading, multiple and trailing blanks | X←C1
|
(' '=1↑X)↓((1↓A,0)∨A←' '≠X)/X
| ||
575. | Removing columns Y from array X | X←A; Y←I1
|
(~(⍳¯1↑⍴X)∊Y)/X
| ||
576. | Removing trailing blanks | X←C1
|
(¯1↑(' '≠X)/⍳⍴X)⍴X
| ||
577. | Lengths of subvectors of X having equal elements | X←A1
|
(1↓A)-¯1↓A←(A,1)/⍳1+⍴A←1,(1↓X)≠¯1↓X
| ||
578. | Field lengths of vector X; G ←→ ending indices | X←A1; G←I1
|
G-¯1↓0,G←(~⎕IO)+(((1↓X)≠¯1↓X),1)/⍳⍴X
| ||
580. | Removing multiple and trailing blanks | X←C1
|
((1↓A,0)∨A←' '≠X)/X
| ||
581. | Removing leading and multiple blanks | X←C1
|
(A∨¯1↓0,A←' '≠X)/X
| ||
582. | Removing multiple blanks | X←C1
|
(A∨¯1↓1,A←' '≠X)/X
| ||
583. | Removing duplicate Y's from vector X | X←A1; Y←A0
|
(A∨¯1↓1,A←X≠Y)/X
| ||
584. | Indices of all occurrences of elements of Y in X | X←A1; Y←A
|
(X∊Y)/⍳⍴X
| ||
585. | Union of sets, ? | X←A1; Y←A1
|
Y,(~X∊Y)/X
| ||
586. | Elements of X not in Y (difference of sets) | X←A1; Y←A
|
(~X∊Y)/X
| ||
587. | Rows of non-empty matrix X starting with a character in Y | X←A2; Y←A1
|
(X[;1]∊Y)⌿X
| ||
588. | Intersection of sets, ⍞ | X←A1; Y←A
|
(X∊Y)/X
| ||
589. | Reduction with function ⍺ in dimension Y, rank unchanged | Y←I0; X←A
|
((⍴X)*Y≠⍳⍴⍴X)⍴ ⍺/[Y]X
| ||
590. | Replacing all values X in G with Y | X←A0; Y←A0; G←A
|
A[(A=X)/⍳⍴A←,G]←Y ⋄ (⍴G)⍴A
| ||
591. | Indices of all occurrences of Y in X | X←A1; Y←A0
|
(Y=X)/⍳⍴X
| ||
592. | Replacing elements of G satisfying X with Y | Y←A0; X←B1; G←A1
|
G[X/⍳⍴G]←Y
| ||
593. | Removing duplicates from positive integers | X←I1
|
A←9999⍴0 ⋄ A[X]←1 ⋄ A/⍳9999
| ||
594. | Indices of ones in logical vector X | X←B1
|
X/⍳⍴X
| ||
595. | Conditional in text | X←B0
|
((~X)/'IN'),'CORRECT'
| ||
596. | Removing blanks | X←A1
|
(' '≠X)/X
| ||
597. | Removing elements Y from vector X | X←A1; Y←A0
|
(X≠Y)/X
| ||
598. | Vector to expand a new element after each one in X | X←B1
|
(,X,[1.5]1)/,X,[1.5]~X
| ||
599. | Reduction with FUNCTION ⍺ without respect to shape |
X←D
|
⍺/,X
| ||
600. | Reshaping scalar X into a one-element vector | X←A
|
1/X
| ||
601. | Empty matrix | X←A2
|
0⌿X
| ||
602. | Selecting elements of X satisfying condition Y | X←A; Y←B1
|
Y/X
|
Take ↑
603. | Inserting vector X into matrix Y after row G | X←A1; Y←A2; G←I0
|
Y[⍳G;],[1]((1↓⍴Y)↑X),[1](2↑G)↓Y
| ||
604. | Filling X with last element of X to length Y | X←A1; Y←I0
|
Y↑X,Y⍴¯1↑X
| ||
605. | Input of row Y of text matrix X | X←C2; Y←I0
|
X[Y;]←(1↑⍴X)↑⍞
| ||
606. | First ones in groups of ones | X←B
|
X>((-⍴⍴X)↑¯1)↓0,X
| ||
607. | Inserting X into Y after index G | X←A1; Y←A1; G←I0
|
(G↑Y),X,G↓Y
| ||
608. | Pairwise differences of successive columns (inverse of +\) | X←D
|
X-((-⍴⍴X)↑¯1)↓0,X
| ||
609. | Leftmost neighboring elements | X←D
|
((-⍴⍴X)↑¯1)↓0,X
| ||
610. | Rightmost neighboring elements | X←D
|
((-⍴⍴X)↑1)↓X,0
| ||
611. | Shifting vector X right with Y without rotate | X←A1; Y←I0
|
(-⍴X)↑(-Y)↓X
| ||
612. | Shifting vector X left with Y without rotate | X←A1; Y←I0
|
(⍴X)↑Y↓X
| ||
613. | Drop of Y first rows from matrix X | X←A2; Y←I0
|
(2↑Y)↓X
| ||
614. | Test if numeric | X←A
|
0∊1↑0⍴X
| ||
615. | Reshaping non-empty lower-rank array X into a matrix | X←A; 2≥⍴⍴X
|
(¯2↑1 1,⍴X)⍴X
| ||
616. | Giving a character default value for input | X←C0
|
1↑⍞,X
| ||
617. | Adding scalar Y to last element of X | X←D; Y←D0
|
X+(-⍴X)↑Y
| ||
618. | Number of rows in matrix X | X←A2
|
1↑⍴X
| ||
619. | Number of columns in matrix X | X←A2
|
¯1↑⍴X
| ||
620. | Ending points for X fields of width Y | X←I0; Y←I0
|
(X×Y)⍴(-Y)↑1
| ||
621. | Starting points for X fields of width Y | X←I0; Y←I0
|
(X×Y)⍴Y↑1
| ||
622. | Zero or space depending on the type of X (fill element) | X←A
|
1↑0⍴X
| ||
623. | Forming first row of a matrix to be expanded | X←A1
|
1 80⍴80↑X
| ||
624. | Vector of length Y with X ones on the left, the rest zeroes | X←I0; Y←I0
|
Y↑X⍴1
| ||
625. | Justifying text X to right edge of field of width Y | Y←I0; X←C1
|
(-Y)↑X
|
Drop ↓
627. | Starting points of groups of equal elements (non-empty X) | X←A1
|
1,(1↓X)≠¯1↓X
| ||
628. | Ending points of groups of equal elements (non-empty X) | X←A1
|
((1↓X)≠¯1↓X),1
| ||
629. | Pairwise ratios of successive elements of vector X | X←D1
|
(1↓X)÷¯1↓X
| ||
630. | Pairwise differences of successive elements of vector X | X←D1
|
(1↓X)-¯1↓X
| ||
631. | Differences of successive elements of X along direction Y | X←D; Y←I0
|
X-(-Y=⍳⍴⍴X)↓0,[Y]X
| ||
632. | Ascending series of integers Y..X (for small Y and X) | X←I0; Y←I0
|
(Y-1)↓⍳X
| ||
633. | First ones in groups of ones | X←B1
|
X>¯1↓0,X
| ||
634. | Last ones in groups of ones | X←B1
|
X>1↓X,0
| ||
635. | List of names in X (one per row) | X←C2
|
1↓,',',X
| ||
636. | Selection of X or Y depending on condition G | X←A0; Y←A0; G←B0
|
''⍴G↓X,Y
| ||
637. | Restoring argument of cumulative sum (inverse of +\) | X←D1
|
X-¯1↓0,X
| ||
638. | Drop of Y first rows from matrix X | X←A2; Y←I0
|
(Y,0)↓X
| ||
639. | Drop of Y first columns from matrix X | X←A2; Y←I0
|
(0,Y)↓X
| ||
640. | Number of rows in matrix X | X←A2
|
¯1↓⍴X
| ||
641. | Number of columns in matrix X | X←A2
|
1↓⍴X
| ||
642. | Conditional drop of Y elements from array X | X←A; Y←I1; G←B1
|
(Y×G)↓X
| ||
643. | Conditional drop of last element of X | X←A1; Y←B0
|
(-Y)↓X
|
Member Of ∊
644. | Expansion vector with zero after indices Y | X←A1; Y←I1
|
~(⍳(⍴Y)+⍴X)∊Y+⍳⍴Y
| ||
645. | Boolean vector of length Y with zeroes in locations X | X←I; Y←I0
|
(~(⍳Y)∊X)
| ||
646. | Starting points for X in indices pointed by Y | X←A1; Y←I1
|
(⍳⍴X)∊Y
| ||
647. | Boolean vector of length Y with ones in locations X | X←I; Y←I0
|
(⍳Y)∊X
| ||
648. | Check for input in range 1..X | X←A
|
(Y←⎕)∊⍳X
| ||
649. | Test if arrays are identical | X←A; Y←A
|
~0∊X=Y
| ||
650. | Zeroing elements of Y depending on their values | Y←D; X←D
|
Y×~Y∊X
| ||
651. | Test if single or scalar | X←A
|
1∊⍴,X
| ||
652. | Test if vector | X←A
|
1∊⍴⍴X
| ||
653. | Test if X is an empty array | X←A
|
0∊⍴X
|
Index Generator ⍳
654. | Inverting a permutation | X←I1
|
A←⍳⍴X ⋄ A[X]←A ⋄ A
| ||
655. | All axes of array X | X←A
|
⍳⍴⍴X
| ||
656. | All indices of vector X | X←A1
|
⍳⍴X
| ||
657. | Arithmetic progression of Y numbers from X with step G | X←D0; Y←D0; G←D0
|
X+G×(⍳Y)-⎕IO
| ||
658. | Consecutive integers from X to Y (arithmetic progression) | X←I0; Y←I0
|
(X-⎕IO)+⍳1+Y-X
| ||
659. | Empty numeric vector |
|
⍳0
| ||
660. | Index origin (⎕IO) as a vector |
|
⍳1
|
Logical Functions ~
∨
∧
⍱
⍲
661. | Demote non-boolean representations to booleans | X←B
|
0∨X
| ||
662. | Test if X is within range ( Y[1],Y[2] ) | X←D; Y←D1
|
(Y[1]<X)∧X<Y[2]
| ||
663. | Test if X is within range [ Y[1],Y[2] ] | X←D; Y←D1; 2=⍴Y
|
(Y[1]≤X)∧(X≤Y[2])
| ||
664. | Zeroing all boolean values | X←B
|
0∧X
| ||
666. | Selection of elements of X and Y depending on condition G | X←D; Y←D; G←B
|
(X×G)+Y×~G
| ||
667. | Changing an index origin dependent result to be as ⎕IO=1 |
X←I
|
(~⎕IO)+X
| ||
668. | Conditional change of elements of Y to one according to X | Y←D; X←B
|
Y*~X
|
Comparison <≤>
≠
669. | X implies Y | X←B; Y←B
|
X≤Y
| ||
670. | X but not Y | X←B; Y←B
|
X>Y
| ||
671. | Avoiding division by zero error (gets value zero) | X←D; Y←D
|
(0≠X)×Y÷X+0=X
| ||
672. | Exclusive or | X←B; Y←B
|
X≠Y
| ||
673. | Replacing zeroes with corresponding elements of Y | X←D; Y←D
|
X+Y×X=0
| ||
674. | Kronecker delta of X and Y (element of identity matrix) | X←I; Y←I
|
Y=X
|
Ravel ,
675. | Catenating Y elements G after every element of X | X←A1; Y←I0; G←A
|
,X,((⍴X),Y)⍴G
| ||
676. | Catenating Y elements G before every element of X | X←A1; Y←I0; G←A0
|
,(((⍴X),Y)⍴G),X
| ||
677. | Merging vectors X and Y alternately | X←A1; Y←A1
|
,Y,[⎕IO+.5]X
| ||
678. | Inserting Y after each element of X | X←A1; Y←A0
|
,X,[1.1]Y
| ||
679. | Spacing out text | X←C1
|
,X,[1.1]' '
| ||
680. | Reshaping X into a matrix of width Y | X←D, Y←I0
|
(((⍴,X),1)×Y*¯1 1)⍴X
| ||
681. | Temporary ravel of X for indexing with G | X←A; Y←A; G←I
|
A←⍴X ⋄ X←,X ⋄ X[G]←Y ⋄ X←A⍴X
| ||
682. | Temporary ravel of X for indexing with G | X←A; Y←A; G←I
|
A←,X ⋄ A[G]←Y ⋄ X←(⍴X)⍴A
| ||
683. | First column as a matrix | X←A2
|
X[;,1]
| ||
684. | Number of elements (also of a scalar) | X←A
|
⍴,X
|
Catenate ,
685. | Separating variable length lines | X←A1; Y←A1
|
X,⎕TC[2],Y
| ||
686. | X×X identity matrix | X←I0
|
(X,X)⍴1,X⍴0
| ||
687. | Array and its negative ('plus minus') | X←D
|
X,[.5+⍴⍴X]-X
| ||
688. | Underlining a string | X←C1
|
X,[⎕IO-.1]'¯'
| ||
689. | Forming a two-column matrix | X←A1; Y←A1
|
X,[1.1]Y
| ||
690. | Forming a two-row matrix | X←A1; Y←A1
|
X,[.1]Y
| ||
691. | Selection of X or Y depending on condition G | X←A0; Y←A0; G←B0
|
(X,Y)[⎕IO+G]
| ||
692. | Increasing rank of Y to rank of X | X←A; Y←A
|
((((⍴⍴X)-⍴⍴Y)⍴1),⍴Y)⍴Y
| ||
693. | Identity matrix of shape of matrix X | X←D2
|
(⍴X)⍴1,0×X
| ||
694. | Reshaping vector X into a two-column matrix | X←A1
|
((0.5×⍴X),2)⍴X
| ||
696. | Reshaping vector X into a one-row matrix | X←A1
|
(1,⍴X)⍴X
| ||
697. | Reshaping vector X into a one-column matrix | X←A1
|
((⍴X),1)⍴X
| ||
698. | Forming a Y-row matrix with all rows alike (X) | X←A1; Y←I0
|
(Y,⍴X)⍴X
| ||
699. | Handling array X temporarily as a vector | X←A
|
(⍴X)⍴ ... ,X
| ||
700. | Joining sentences | X←A; Y←A1
|
Y,0⍴X
| ||
701. | Entering from terminal data exceeding input (printing) width | X←D
|
X←0 2 1 2 5 8 0 4 5,⎕
|
Indexing [ ]
702. | Value of fixed-degree polynomial Y at points X | Y←D1; X←D
|
Y[3]+X×Y[2]+X×Y[1]
| ||
703. | Number of columns in array X | X←A
|
(⍴X)[⍴⍴X]
| ||
704. | Number of rows in matrix X | X←A2
|
(⍴X)[1]
| ||
705. | Number of columns in matrix X | X←A2
|
(⍴X)[2]
| ||
706. | Conditional elementwise change of sign | Y←D; X←B
|
Y×(1 ¯1)[1+X]
| ||
707. | Selection depending on index origin | X←A1
|
X[2×⎕IO]
| ||
708. | Indexing with boolean value X (plotting a curve) | X←B
|
' *'[⎕IO+X]
| ||
709. | Indexing independent of index origin | X←A1; Y←I
|
X[⎕IO+Y]
| ||
710. | Selection depending on index origin | X←A1
|
X[1]
| ||
711. | Zeroing a vector (without change of size) | X←D1
|
X[]←0
| ||
712. | First column as a vector | X←A2
|
X[;1]
|
Shape ⍴
713. | Rank of array X | X←A
|
⍴⍴X
| ||
715. | Duplicating vector X Y times | X←A1; Y←I0
|
(Y×⍴X)⍴X
| ||
716. | Adding X to each row of Y | X←D1; Y←D; (⍴X)=¯1↑⍴Y
|
Y+(⍴Y)⍴X
| ||
717. | Array with shape of Y and X as its rows | X←A1; Y←A
|
(⍴Y)⍴X
| ||
718. | Number of rows in matrix X | X←A2
|
1⍴⍴X
|
Reshape ⍴
720. | Forming an initially empty array to be expanded |
|
0 80⍴0
| ||
721. | Output of an empty line | X←A
|
0⍴X←
| ||
722. | Reshaping first element of X into a scalar | X←A
|
''⍴X
| ||
723. | Corner element of a (non-empty) array | X←A
|
1⍴X
|
Arithmetic +
-
×
÷
724. | Continued fraction |
|
1+÷2+÷3+÷4+÷5+÷6+÷ ...
| ||
725. | Force 0÷0 into DOMAIN ERROR in division | X←D; Y←D
|
Y×÷X
| ||
726. | Conditional elementwise change of sign | X←D; Y←B; ⍴X ←→ ⍴Y
|
Xׯ1*Y
| ||
727. | Zero array of shape and size of X | X←D
|
0×X
| ||
728. | Selecting elements satisfying condition Y, zeroing others | X←D; Y←B
|
Y×X
| ||
729. | Number and its negative ('plus minus') | X←D0
|
1 ¯1×X
| ||
730. | Changing an index origin dependent result to be as ⎕IO=0 | X←I
|
-⎕IO-X
| ||
731. | Changing an index origin dependent argument to act as ⎕IO=1 | X←I
|
(⎕IO-1)+X
| ||
732. | Output of assigned numeric value | X←D
|
+X←
| ||
733. | Changing an index origin dependent argument to act as ⎕IO=0 | X←I
|
⎕IO+X
| ||
734. | Selecting elements satisfying condition Y, others to one | X←D; Y←B
|
X*Y
|
Miscellaneous
736. | Setting a constant with hyphens |
|
⎕LX←⍞
| ||
737. | Output of assigned value | X←A
|
⎕←X←
| ||
738. | Syntax error to stop execution |
|
*
| ||
888. | Meaning of life |
|
⍎⊖⍕⊃⊂|⌊-*+○⌈×÷!⌽⍉⌹~⍴⍋⍒,⍟?⍳0
|
Notes
- ↑ Note: it doesn't average the middle two elements as per median's definition. A more correct idiomatic expression is
0.5×+/X[(⍋X)[|⌈¯0.5 0.5×1+⍴X]]