apl>" <-APL2-------------------- sam283.txt ---------------------------->
apl>" <- Name and Symbol binding (pp 34-35) ---------------------------->
apl>a#2 3RI6
apl>b#3 2RI6
apl>c#2 2RI4
apl>+.X/a b c
106 156
241 354
apl>(+.X)/(a b c)
106 156
241 354
apl>" <- The following generates an error ----------------------------->
apl>+.(X/(a b c))
+.(X/(a b c))
^ 63 - missing operator/function during execute processing.
apl>" <----------------------------------------------------------------->
apl>2 1 3 / 2 3 4
2 2 3 4 4 4
apl>1 2 + 3 4
4 6
apl>(2 1 3) / (2 3 4)
2 2 3 4 4 4
apl>(1 2) + (3 4)
4 6
apl>+.X/(1 2 3) (4 5 6) (7 8 9)
732
apl>+.(X/(1 2 3) (4 5 6) (7 8 9))
+.(X/(1 2 3) (4 5 6) (7 8 9))
^ 63 - missing operator/function during execute processing.
apl>(+.X)/(1 2 3) (4 5 6) (7 8 9)
732
apl>1++.X/(1 2 3) (4 5 6) (7 8 9)
733
apl>2 3 X 4 5 + 6 7
20 36
apl>2 3 X (4 5 + 6 7)
20 36
apl>(2 3 X 4 5) + 6 7
14 22
apl>.3 .2 .1 +[1] m # 3 4 R I 12
1.3 2.3 3.3 4.3
5.2 6.2 7.2 8.2
9.1 10.1 11.1 12.1
apl>.3 .2 .1 + m # 3 4 R I 12
.3 .2 .1 + m # 3 4 R I 12
^ 17 - dyadic function arguments are not conformable.
apl>" <----------------------------------------------------------------->
apl>a#(1 2 3) (4 5 6) (7 8 9)
apl>(Ya)#'abc'
apl>a
abc 4 5 6 7 8 9
apl>((,a)[3])#'xy'
apl>a
abc 4 5 6 7 8 9
apl>a#b#(2 3)(2 3 4 5)(10 20)
apl>3Y2`Xa
2 3 4
apl>(3Y2`Xa)#'abc'
apl>a
2 3 abc 5 10 20
apl>4Y2`Xb
2 3 4 5
apl>(4Y2`Xb)#2 3 4
apl>b
2 3 2 3 4 2 3 4 2 3 4 2 3 4 10 20
apl>a#b#c#(2 3)(4 5 6 7)(8 9)
apl>Ya
2 3
apl>1`Xb
2 3
apl>(Ya)`=1`Xb
1
apl>(Ya)#10 11 12
apl>a
10 11 12 4 5 6 7 8 9
apl>(1`Xb)#10 11 12
apl>b
10 11 12 4 5 6 7 8 9
apl>(4Y2`Xc)#10 11 12
apl>c
2 3 10 11 12 8 9
apl>a#'abcd'
apl>((I0)`Xa)#10 20 30
apl>a
10 20 30
apl>" <----------------------------------------------------------------->
apl>a#0RL#a#(2 3)(4 5 6 7)(8 9)
2 3 4 5 6 7 8 9
apl>Ya
0 0
apl>" <----------------------------------------------------------------->
apl>k#2 3R.1XI6
apl>j#2 3 4RI24
apl>j+[1 2]k
1.1 2.1 3.1 4.1
5.2 6.2 7.2 8.2
9.3 10.3 11.3 12.3
13.4 14.4 15.4 16.4
17.5 18.5 19.5 20.5
21.6 22.6 23.6 24.6
apl>(j+[1 2]k)`=j+[1 2]k
1
apl>" <----------------------------------------------------------------->
apl>Gz # m binom n
[1] a # m!n
[2] b # (!n) % (!m) X (!n_m)
[3] z # T (a = b),[1]a,[.5]b
[4] G
apl>3 binom 6
1 20 20
apl>2 3 4 2 binom 6 18 24 5
1 15 15
1 816 816
1 10626 10626
1 10 10
apl>2 3 4 2 ! 6 18 24 5
15 816 10626 10
apl>Gz # m binom n
z # m binom n
^ 115 - del editor found function name already in use.
apl>a # m!n
a # m!n
^ 59 - argument not found where expected during execute.
apl>b # (!n) % (!m) X ! n _ m
b # (!n) % (!m) X ! n _ m
^ 59 - argument not found where expected during execute.
apl>c # (!n) % (!m) X _ m
c # (!n) % (!m) X _ m
^ 70 - missing right argument during execute.
apl>z # T (a = b),[1]a,[1]b,[.5]c
z # T (a = b),[1]a,[1]b,[.5]c
^ 50 - shapes of left and right must match in laminate.
apl>G
apl>3 binom 6
1 20 20
apl>2 3 4 2 binom 6 18 24 5
1 15 15
1 816 816
1 10626 10626
1 10 10
apl>Gz # l bineg r
[1] a # l ! r
[2] b # (-1*r_l)X(_r+1)!(_l+1)
[3] z # T a,[.5]b
[4] G
apl>((4R-5),(3R-4),(2R-3),-2) bineg -4 -3 -2 -1 -3 -2 -1 -2 -1 -1
-4 -4
6 6
-4 -4
1 1
-3 -3
3 3
-1 -1
-2 -2
1 1
-1 -1
apl>((4R-5),(3R-4),(2R-3),-2) ! -4 -3 -2 -1 -3 -2 -1 -2 -1 -1
-4 6 -4 1 -3 3 -1 -2 1 -1
apl>a#-6+I11
apl>a J.! a
1 -4 6 -4 1 0 0 0 0 0 0
0 1 -3 3 -1 0 0 0 0 0 0
0 0 1 -2 1 0 0 0 0 0 0
0 0 0 1 -1 0 0 0 0 0 0
0 0 0 0 1 0 0 0 0 0 0
1 1 1 1 1 1 1 1 1 1 1
-5 -4 -3 -2 -1 0 1 2 3 4 5
15 10 6 3 1 0 0 1 3 6 10
-35 -20 -10 -4 -1 0 0 0 1 4 10
70 35 15 5 1 0 0 0 0 1 5
-126 -56 -21 -6 -1 0 0 0 0 0 1
apl>)off
