use utf8; ( # dyadic, monadic # arithmetic ["+\n-", "add\nSum of A and B", "conjugate\nNo change to B"], ["−\n_", "subtract\nA minus B", "negate\nChanges sign of B"], ["×\n-", "multiply\nA multiplied by B", "sign\n¯1 if B<0; 0 if B=0; 1 if B>0"], ["÷\n=", "divide\nA divided by B", "reciprocal\n1 divided by B"], ["∣\nm", "residue\nRemainder of division: B modulo A", "magnitude\nAbsolute value of B"], ["⋆\np", "power\nA raised to the B power", "exponential\ne to the B power"], ["⍟\n*", "logarithm\nLogarithm of B to base A", "natural logarithm\nNatural logarithm of B"], ["○\no", "circle\nTrigonometric functions of B selected by A\nA=1: sin(B) A=2: cos(B) A=3: tan(B)", "pi times\nMultiply by π"], ["⌈\ns", "maximum\nThe greater value of A or B", "ceiling\nLeast integer greater than or equal to B"], ["⌊\nd", "minimum\nThe smaller value of A or B", "floor\nGreatest integer less than or equal to B"], ["!", "binomial\nNumber of combinations of B taken A at a time", "factorial\nProduct of integers 1 to B"], ["?\nq", "deal\nA distinct integers selected randomly from the first B integers", "roll\nOne integer selected randomly from the first B integers"], undef, # logical ["∼\nt", "difference\nItems found in B are removed from A", "not\nLogical: ∼1 is 0, ∼0 is 1"], ["∨\n9", "or\nLogic: 0 if A and B are 0; 1 otherwise"], ["∧\n0", "and\nLogic: 1 if A and B are 1; 0 otherwise"], ["⍱\n(", "nor\nLogic: 1 if both A and B are 0; otherwise 0"], ["⍲\n)", "nand\nLogic: 0 if both A and B are 1; otherwise 1"], # comparative ["<\n3", "less than\nComparison: 1 if true, 0 if false"], ["≤\n4", "less than or equal\nComparison: 1 if true, 0 if false"], ["=\n5", "equal\nComparison: 1 if true, 0 if false"], ["≥\n6", "greater than or equal\nComparison: 1 if true, 0 if false"], [">\n7", "greater than\nComparison: 1 if true, 0 if false"], ["≠\n8", "not equal\nComparison: 1 if true, 0 if false"], ["≡\n:", "match\n1 if arguments are the same in every respect, 0 if not", "depth\nLevel of nesting: 1 + maximum array depth or 0 if scalar"], ["≢\n\"", "not match\n1 if arguments are different if any respect, 0 if not", "tally\nNumber of major cells in B, equivalent to {⍬⍴ (⍴⍵),1}"], undef, # vector ["∈\ne", "membership\n1 for elements of A present in B; 0 where not", "enlist\nEvery element in B as simple vector"], ["⍷\nE", "find\nElements of A within B, returning 1 if the start of A is found in B"], ["⌷\nL", "index", "materialise"], ["⍬\n}", undef, "zilde\nEmpty numeric vector, equivalent to ⍳0 or 0⍴0"], ["⍳\ni", "index of\nThe location (index) of B in A; 1+⌈/⍳⍴A if not found", "count\nVector of the first B integers"], ["⍸\nI", "string index\nThe index of B in A using ⍷ as primary function"], ["⍴\nr", "reshape\nArray of shape A with data B", "shape\nNumber of components in each dimension of B"], # selection ["⊢\n\\", "right\nDiscard A and pass B unchanged", "pass\nPasses argument unchanged, useful to force display of non-printing result"], ["⊣\n|", "left\nDiscard B and pass A unchanged", "stop\nDiscard argument and return empty matrix"], ["⋄\n`", "statement separator\nSeparates multiple statements on a single line"], ["↑\ny", "take\nSelect the first (or last) A elements of B according to ×A", "nub"], ["↓\nu", "drop\nRemove the first (or last) A elements of B according to ×A", "split"], # set ["⊂\nz", "partition\nDivide B into an array of vectors according to specification in A", "enclose\nProduce a scalar of vector B"], ["⊃\nx", "pick\nSelect item A from vector B", "disclose\nProduce an array made up of the items in B"], ["⊆", "subset\nElements in both A and B: (∧/A∈B)∧(∧/B∈A)"], ["∩\nc", "intersection\nElements of A that are in B: (A∈B)/A"], ["∪\nv", "union\nCatenate A and B determined by combining ranks: A,(∼A∈B)/A", "unique"], [",", "catenate\nElements of B appended to the elements of A", "ravel\nReshapes B into a vector"], ["⍪\n<", "catenate first\nCatenate across the first axis"], # transform ["⌹\n+", "matrix divide\nSolution to system of linear equations, multiple regression Ax = B", "matrix inverse\nInverse of matrix B"], ["⌽\n%", "rotate first\nThe elements of B are rotated A positions", "reverse first\nReverse elements of B along last axis"], ["⊖\n&", "rotate\nThe elements of B are rotated A positions along the first axis", "reverse\nReverse elements of B along first axis"], ["⍉\n^", "general transpose\nThe axes of B are ordered by A", "monadic transpose\nReverse the axes of B"], undef, # sorting and coding ["⍋\n\$", "grade up\nArrange B according to collating sequence specified by A", "grade up\nIndices of B which will arrange B in ascending order"], ["⍒\n#", "grade down\nArrange B according to inverse collating sequence specified by A", "grade down\nIndices of B which will arrange B in descending order"], ["⊤\nn", "encode\nBase-A representation of the value of B"], ["⊥\nb", "decode\nValue of a polynomial whose coefficients are B at A"], # miscellaneous ["⍺", "picture format\nDisplays the numbers in B according to the instructions in A", "alpha"], ["⍕\n'", "specified format\nFormat B into a character matrix according to A", "format\nConvert to characters according to default display rules"], ["⍎\n;", "execute", "execute\nExecute an APL expression"], ["⎕\nl", undef, "evaluated I/O\nRead number or expression typed on the keyboard or display result with newline"], ["⍞\n{", undef, "bare I/O\nRead data typed on the keyboard as characters or display without terminating newline"], [")", undef, "hook"], ["→\n]", undef, "goto\n→This_Label sends APL execution to This_Label:"], ["←\n[", undef, "assign\nB←A sets values and shape of B to match A"], ["⍝\n,", undef, "comment\nEverything to the right of ⍝ denotes a comment"], ["_\nf"], ["∆\nh", "difference", "derivative"], ["∇\ng", undef, "edit\nToggle function definition mode"], ["⍫\n@", undef, "lock\nEdit a function which cannot be edited or displayed"], ["'\nk"], ["⍙\n>"], undef, # operators ["\\","expand\nInsert zeros (or blanks) in B corresponding to zeros in A", "scan\nRunning sum across B"], ["⍀\n.", "expand first", "scan first\nRunning sum down B"], ["/", "replicate\nSelect elements in B corresponding to ones in A", "reduce\nSum across B"], ["⌿\n/", "replicate first", "reduce first\nSum down B"], # array ["¯\n2", undef, "negative\nDenotes a negative number"], ["∝\na"], ["⍵\nw", "omega"], # monadic ["¨\n1", "each\nOver each, or perform each separately; B = on these; A = operation to perform or using (e.g. iota)"], ["⍨\nT", "commute\nExchanges the arguments of a dyadic function: A+⍨B ↔ B+A"], ["&", undef, "spawn"], ["⌶\n!", undef, "I-beam"], # dyadic ["⍠\n?", "variant"], ["⌸", "key\nApply function to each unique key in A and major cells of B having that key", "key\nApply function A to each unique key in B and elements of ⍳≢B having that key"], ["⍣\nP", "reapply\nThe function A is applied B times"], [".", "inner product\nMatrix product of A and B"], ["∘.\nj", "outer product\nOuter product of A and B"], ["∘\nj", "compose"], ["⍤\nJ", "rank\nApply function successively to the sub-arrays in B specified by k"], ["⍥\nO", "coax"], );