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