apl>" <-APL2-------------------- sam277.txt ---------------------------->
apl>" <- Resolved a memory bug on these statements. -------------------->
apl>-6Y'a' a 'b' 2
-6Y'a' a 'b' 2
^ 59 - argument not found where expected during execute.
apl>" <- Take (Y) pp243-239 -------------------------------------------->
apl>L#y#4 5R'triadfieldmoosediner'
triad
field
moose
diner
apl>-2 3Yy
moo
din
apl>L#w#3 3 4R'beatmythantetonemeanhereuponweekdoes'
beat
myth
ante
tone
mean
here
upon
week
does
apl>v#-1 -2 2
apl>L#z#vYw
we
do
apl>Rz
1 2 2
apl>5Y21 33 52
21 33 52 0 0
apl>-5Y21 33 52
0 0 21 33 52
apl>5Y'red'
red
apl>-5Y'red'
red
apl>L#u#2 3RI6
1 2 3
4 5 6
apl>L#h#4 4Yu
1 2 3 0
4 5 6 0
0 0 0 0
0 0 0 0
apl>Rh
4 4
apl>L#n#(1 2) (3 4)
1 2 3 4
apl>4Yn
1 2 3 4 0 0 0 0
apl>-6Y'a' 'a' 'b' 2
aab 2
apl>-6Y1 'a' 2 'b'
0 0 1 a 2 b
apl>3YI0
0 0 0
apl>2 3Y0 2R`Z0 0 0
0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0
apl>L#e#1Y2
2
apl>Re
1
apl>L#g#1 1 1Y2
2
apl>Rg
1 1 1
apl>L#f#(I0)Y2
2
apl>Rf
.
apl>2 3Y2
2 0 0
0 0 0
apl>L#t#'t' 'to' ('tot' 'tote')
t to tot tote
apl>L#j#1Yt
t
apl>`=j
1
apl>L#k#2Yt
t to
apl>`=k
2
apl>L#s#8 ((6 5) (4 3))
8 6 5 4 3
apl>`=s
3
apl>3Ys
8 6 5 4 3 0
apl>L#q#`Os
6 5 4 3 8
apl>3Yq
6 5 4 3 8 0 0 0 0
apl>L#p#'abcde'
abcde
apl>(2Yp)#1 2
apl>p
1 2 cde
apl>L#ky#3 4R'abcdefghijkl'
abcd
efgh
ijkl
apl>(-2 1Yky)#1 2
apl>ky
a bcd
1 fgh
2 jkl
apl>L#a#3 5R'giantstoretrail'
giant
store
trail
apl>" following s/b 2 5 R 'giantstore'
apl>2Y[1]a
giant
store
apl>2 5Ya
giant
store
apl>-3Y[2]a
ant
ore
ail
apl>3 -3Ya
ant
ore
ail
apl>L#b#2 3RI6
1 2 3
4 5 6
apl>3Y[1]b
1 2 3
4 5 6
0 0 0
apl>L#h#2 3R'abcdef'
abc
def
apl>L#z#-4Y[1]h
abc
def
apl>Rz
4 3
apl>L#c#2 3R1'a' 3 4 5 6
1 a 3
4 5 6
apl>4Y[1]c
1 a 3
4 5 6
0 0 0
0 0 0
apl>L#k#3 3 4R'herosheddimesodaboarpartlambtotodamp'
hero
shed
dime
soda
boar
part
lamb
toto
damp
apl>-1 3Y[1 3]k
lam
tot
dam
apl>-1 3Y[3 1]k
o
d
e
a
r
t
b
o
p
apl>L#t#'d' 'do'('don' 'done')'m' 'me'('men' 'mene')
d do don done m me men mene
apl>L#s#2 3Rt
d do don done
m me men mene
apl>`=s
3
apl>L#h#2Y[2]s
d do
m me
apl>`=h
2
apl>L#j#1Y[1]s
d do don done
apl>`=j
3
apl>L#m#2 3R1(2 3)((4 5)(6 7))8(9 1)((2 3)(4 5))
1 2 3 4 5 6 7
8 9 1 2 3 4 5
apl>Rm
2 3
apl>3Y[1]m
1 2 3 4 5 6 7
8 9 1 2 3 4 5
0 0 0
apl>L#t#1`O[2]m
2 3 4 5 6 7 1
9 1 2 3 4 5 8
apl>3Y[1]t
2 3 4 5 6 7 1
9 1 2 3 4 5 8
0 0 0 0 0 0
apl>L#u#3 4R'abcdefghijkl'
abcd
efgh
ijkl
apl>(-2Y[2]u)#3 2RI6
apl>u
ab 1 2
ef 3 4
ij 5 6
apl>L#c#2 3 4 R 1 'a' 'b'
1 a b 1
a b 1 a
b 1 a b
1 a b 1
a b 1 a
b 1 a b
apl>4 5Y[2 3]c
1 a b 1 0
a b 1 a 0
b 1 a b 0
0 0 0 0 0
1 a b 1 0
a b 1 a 0
b 1 a b 0
0 0 0 0 0
apl>L#c#2 3 R 1 'a' 3 4 5 6
1 a 3
4 5 6
apl>L#d#4Y[1]c
1 a 3
4 5 6
0 0 0
0 0 0
apl>Rd
4 3
apl>)off
