" <-APL2-------------------- sam326.txt ---------------------------->
" <- take revisited ------------------------------------------------>
m#2 3 4RI24
a#1 3 2Ym
b#1 2Y[1 3]m
a`=b
"
t#'d' 'do'('don' 'done')
t#t,'m' 'me'('men' 'mene')
t`='d' 'do'('don' 'done')'m' 'me'('men' 'mene')
"
" <- Transpose(T) pp 250-257 revisited ----------------------------->
L#a#(aix#2 3 4)R'bearlynxduckponybirdoxen'
Ra " 2 3 4
L#z#(zix#1 3 2)Ta
Rz " 2 4 3
L#w#(wix#2 1 3)Ta
Rw " 3 2 4
L#y#(yix#3 1 2)Ta
Ry " 3 4 2
tix#IRRa
(ix#2 1 4) `Q a
tix[zix]#ix
(2 4 1 `Q z) ix[1 3 2] tix (tix `Q z)
tix[wix]#ix
(1 2 4 `Q w) ix[2 1 3] tix (tix `Q w)
tix[yix]#ix
(1 4 2 `Q y) ix[2 3 1] tix (tix `Q y)
" <- Random Link(Lrl) p 325. --------------------------------------->
Lrl#23
a#?10R10
&/aEI10 " should always produce 1
Lrl
a#10?10
&/aEI10 " should always produce 1
a#10?10
&/aEI10 " should always produce 1
Lrl#23
a#?10R10
&/aEI10 " should always produce 1
a#10?10
&/aEI10 " should always produce 1
Lrl
" <- Examples for tutorc.tex --------------------------------------->
" a becomes the scalar 3
a # 3
"
" b becomes the vector 1 3 5
b # 1 3 5
"
" c becomes the character vector 'abc'
c # 'abc'
"
" a becomes a new vector and is displayed
L # a # 2 X a + b
"
" d becomes a nested vector and is displayed
L # d # ('apples' 'oranges' 'pears'),[.5]a
" <- Examples for axis.tex ----------------------------------------->
L#n#2 3 4RI24
n[I2;1;1]
n[1;I3;1]
n[1;1;I4]
+/[1]n
+/[2]n
+/[3]n
)off