apl>" <-APL2-------------------- sam326.txt ---------------------------->
apl>" <- take revisited ------------------------------------------------>
apl>m#2 3 4RI24
apl>a#1 3 2Ym
apl>b#1 2Y[1 3]m
apl>a`=b
1
apl>"
apl>t#'d' 'do'('don' 'done')
apl>t#t,'m' 'me'('men' 'mene')
apl>t`='d' 'do'('don' 'done')'m' 'me'('men' 'mene')
1
apl>"
apl>" <- Transpose(T) pp 250-257 revisited ----------------------------->
apl>L#a#(aix#2 3 4)R'bearlynxduckponybirdoxen'
bear
lynx
duck
pony
bird
oxen
apl>Ra " 2 3 4
2 3 4
apl>L#z#(zix#1 3 2)Ta
bld
eyu
anc
rxk
pbo
oix
nre
ydn
apl>Rz " 2 4 3
2 4 3
apl>L#w#(wix#2 1 3)Ta
bear
pony
lynx
bird
duck
oxen
apl>Rw " 3 2 4
3 2 4
apl>L#y#(yix#3 1 2)Ta
bp
eo
an
ry
lb
yi
nr
xd
do
ux
ce
kn
apl>Ry " 3 4 2
3 4 2
apl>tix#IRRa
apl>(ix#2 1 4) `Q a
y
apl>tix[zix]#ix
apl>(2 4 1 `Q z) ix[1 3 2] tix (tix `Q z)
y 2 4 1 2 4 1 y
apl>tix[wix]#ix
apl>(1 2 4 `Q w) ix[2 1 3] tix (tix `Q w)
y 1 2 4 1 2 4 y
apl>tix[yix]#ix
apl>(1 4 2 `Q y) ix[2 3 1] tix (tix `Q y)
y 1 4 2 1 4 2 y
apl>" <- Random Link(Lrl) p 325. --------------------------------------->
apl>Lrl#23
apl>a#?10R10
apl>&/aEI10 " should always produce 1
1
apl>Lrl
23
apl>a#10?10
apl>&/aEI10 " should always produce 1
1
apl>a#10?10
apl>&/aEI10 " should always produce 1
1
apl>Lrl#23
apl>a#?10R10
apl>&/aEI10 " should always produce 1
1
apl>a#10?10
apl>&/aEI10 " should always produce 1
1
apl>Lrl
23
apl>" <- Examples for tutorc.tex --------------------------------------->
apl>" a becomes the scalar 3
apl>a # 3
apl>"
apl>" b becomes the vector 1 3 5
apl>b # 1 3 5
apl>"
apl>" c becomes the character vector 'abc'
apl>c # 'abc'
apl>"
apl>" a becomes a new vector and is displayed
apl>L # a # 2 X a + b
8 12 16
apl>"
apl>" d becomes a nested vector and is displayed
apl>L # d # ('apples' 'oranges' 'pears'),[.5]a
apples oranges pears
8 12 16
apl>" <- Examples for axis.tex ----------------------------------------->
apl>L#n#2 3 4RI24
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
17 18 19 20
21 22 23 24
apl>n[I2;1;1]
1 13
apl>n[1;I3;1]
1 5 9
apl>n[1;1;I4]
1 2 3 4
apl>+/[1]n
14 16 18 20
22 24 26 28
30 32 34 36
apl>+/[2]n
15 18 21 24
51 54 57 60
apl>+/[3]n
10 26 42
58 74 90
apl>)off
