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