apl>" <-APL2-------------------- sam259.txt ---------------------------->
apl>" <- Grade Up (z#Ar) pp 153-159 ------------------------------------>
apl>" ------------------------------------------------------------------
apl>dcs#' ','ABCDEFGHIJKLMNOPQRSTUVWXYZ',[.5]'abcdefghijklmnopqrstuvwxyz'
apl>dcs#(dcs,[1]((8,-1YRdcs))R' '),,F10 1R-1+I10
apl>dcs
ABCDEFGHIJKLMNOPQRSTUVWXYZ0
abcdefghijklmnopqrstuvwxyz1
2
3
4
5
6
7
8
9
apl>" ------------------------------------------------------------------
apl>Lio#0
apl>A z # 23 11 13 31 12
1 4 2 0 3
apl>Lio # 1
apl>z[L # A z]
2 5 3 1 4
11 12 13 23 31
apl>A 23 14 23 12 14
4 2 5 1 3
apl>" ------------------------------------------------------------------
apl>L#b#5 3 R 4 16 37 2 9 26 5 11 63 3 18 45 5 11 54
4 16 37
2 9 26
5 11 63
3 18 45
5 11 54
apl>b[L # A b;]
2 4 1 5 3
2 9 26
3 18 45
4 16 37
5 11 54
5 11 63
apl>c#4 23 54 28 2 11 51 26
apl>c#c,4 29 17 43 3 19 32 41
apl>c#3 2 4Rc,4 23 54 28 1 25 31 16
apl>c
4 23 54 28
2 11 51 26
4 29 17 43
3 19 32 41
4 23 54 28
1 25 31 16
apl>Ac
3 1 2
apl>c[Ac;;]
4 23 54 28
1 25 31 16
4 23 54 28
2 11 51 26
4 29 17 43
3 19 32 41
apl>" ------------------------------------------------------------------
apl>Lio#0
apl>'abcde'A'bead'
2 0 3 1
apl>Lio#1
apl>'abcde'A'bead'
3 1 4 2
apl>L#a#5 4R'deadbadecedebeaddeed'
dead
bade
cede
bead
deed
apl>'abcde'Aa
2 4 3 1 5
apl>c#'face$'
apl>b#'@$&abcdef'
apl>bAc
5 2 3 4 1
apl>c[bAc]
$acef
apl>" ------------------------------------------------------------------
apl>dcs A 'AVENUE'
1 3 6 4 5 2
apl>dcs A h#'LWLOIBY'
6 5 1 3 4 2 7
apl>h[dcs A h]
BILLOWY
apl>L # m # dcs A L # k # 5 4 R 'sent zapdownalsoboa '
sent
zap
down
also
boa
2 4 5 3 1
apl>k[m;]
zap
also
boa
down
sent
apl>" ------------------------------------------------------------------
apl>L#k#5 4R'dealDealdeadDeadDEED'
deal
Deal
dead
Dead
DEED
apl>L#h#2 12R'abcdefghijklABCDEFGHIJKL'
abcdefghijkl
ABCDEFGHIJKL
apl>L#z#hAk
3 4 1 2 5
apl>k[z;]
dead
Dead
deal
Deal
DEED
apl>" ------------------------------------------------------------------
apl>L#s # `X 'X1' 'X10' 'X2' 'X21' 'X3' 'X9' 'X11' 'x3'
X1
X10
X2
X21
X3
X9
X11
x3
apl>s[L#dcsAs;]
1 3 5 8 6 2 7 4
X1
X2
X3
x3
X9
X10
X11
X21
apl>" ------------------------------------------------------------------
apl>'abcde'A'dabbed'
2 3 4 1 6 5
apl>L#w#'abcde'A'exact'
3 4 1 2 5
apl>'exact'[w]
acext
apl>)off
