apl>" <-APL2-------------------- sam253.txt ---------------------------->
apl>" <- Selective specification (Er)#n -------------------------------->
apl>v#1 2 3 4
apl>(2Yv)#100 200
apl>v
100 200 3 4
apl>a#(10 20 30) 'ab'
apl>(Ea)#I5
apl>a
1 2 3 4 5
apl>Ra
2
apl>(Ea)#'abcd'
apl>a
abcd abcd abcd abcd abcd
apl>Ra
2
apl>(Ea)#1
apl>a
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
apl>Ra
2
apl>(Ea)#I20
apl>a
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
apl>Ra
2
apl>(Ea)#'x'
apl>a
x x x x x x x x x x x x x x x x x x x x
apl>Ra
2
apl>b#'p' 'pi' ('pie' 'pier')
apl>(2`Xb)#'my'
apl>b
p my pie pier
apl>(2 1 `X b) # 'tr'
apl>b
p tr y pie pier
apl>(3 2 1 `X b) # 't'
apl>b
p tr y pie tier
apl>(a)#3
apl>a`=3
1
apl>(a b c)#2 3 4
apl>a
2
apl>b
3
apl>c
4
apl>v # 10 20 30 40
apl>(2Yv)#100 200
apl>v
100 200 30 40
apl>a#'abcd'
apl>(a)#10 20 30
apl>a
10 20 30
apl>a#'abcd'
apl>(Ya)#10 20 30
apl>a
10 20 30 bcd
apl>a#'abcd'
apl>(2`Xa)#10 20 30
apl>a
a 10 20 30 cd
apl>a#(12 13)(22 23 24 25)(310 320)
apl>(3Y2`Xa)#'abc'
apl>a
12 13 abc 25 310 320
apl>L#a#b#(2 3)(2 3 4 5)(10 20)
2 3 2 3 4 5 10 20
apl>(3Y2`Xa)#'abc'
apl>a
2 3 abc 5 10 20
apl>(Eb)#0
apl>b
0 0 0 0 0 0 0 0
apl>L#x#3 4R'abcdefghijkl'
abcd
efgh
ijkl
apl>" ---------------
apl>m#x
apl>m[2;3]#'L'
apl>m
abcd
efLh
ijkl
apl>" ---------------
apl>m#x
apl>(2 1Ym)#'OM'
apl>m
Obcd
Mfgh
ijkl
apl>" ---------------
apl>m#x
apl>(4Y,Tm)#'J*%L'
apl>m
JLcd
*fgh
%jkl
apl>" ---------------
apl>m#x
apl>m[1;2 4]#'GJ'
apl>m
aGcJ
efgh
ijkl
apl>" ---------------
apl>m#x
apl>(,m)#I12
apl>m
1 2 3 4
5 6 7 8
9 10 11 12
apl>" ---------------
apl>m#x
apl>m[1 3;1 4]#'*'
apl>m
*bc*
efgh
*jk*
apl>L#m#3 2RI6
1 2
3 4
5 6
apl>(1 0 / m)#'abc'
apl>m
a 2
b 4
c 6
apl>L#m#3 2RI6
1 2
3 4
5 6
apl>L#t#2 2R'abcd'
ab
cd
apl>(1 0 1/[1]m)#t
apl>m
a b
3 4
c d
apl>L#u#'abcde'
abcde
apl>(2Uu)#I3
apl>u
ab 1 2 3
apl>L#v#3 4R'abcdefghijkl'
abcd
efgh
ijkl
apl>(1 -1 U v)#2 3RI6
apl>v
a b c d
1 2 3 h
4 5 6 l
apl>L#v#3 4R'abcdefghijkl'
abcd
efgh
ijkl
apl>(1U[1]v)#2 4RI8
apl>v
a b c d
1 2 3 4
5 6 7 8
apl>m#'abc'
apl>(1 0 1 0 1 \ m)#I5
apl>m
1 3 5
apl>L#n#2 3RI6
1 2 3
4 5 6
apl>L#t#2 4R'abcdefgh'
abcd
efgh
apl>(1 0 1 1\n)#t
apl>n
acd
egh
apl>L#r#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>((,r)[1 3 14 16])#'acde'
apl>r
a 2 c 4
5 6 7 8
9 10 11 12
13 d 15 e
17 18 19 20
21 22 23 24
apl>L#m#3 2RI6
1 2
3 4
5 6
apl>(1 1 0 0 1\[1]m)#5 2R_I10
apl>m
-1 -2
-3 -4
-9 -10
apl>L#k#'red' 'white' 'blue'
red white blue
apl>(Yk)#'yellow'
apl>k
yellow white blue
apl>)off
