apl>" <-APL2-------------------- sam242.txt ---------------------------->
apl>" <- divide (%) page 100 ------------------------------------------->
apl>3%2
1.5
apl>9 4 7 10 % .25
36 16 28 40
apl>0j12%4
0j3
apl>.3 5 1%0j1 -2 1
0j-0.3 -2.5 1
apl>0%5
0
apl>0%0
1
apl>5%0
5%0
^ 39 - real division by 0.
apl>" <- drop (U) page 101 --------------------------------------------->
apl>3U12 31 45 10 57
10 57
apl>-3U12 31 45 10 57
12 31
apl>L#a#3 5R'striperodeplant'
strip
erode
plant
apl>b#'storefirstmighthater'
apl>b#b,'sheettheremetroerase'
apl>L#b#3 4 5Rb,'breadotheranvilevade'
store
first
might
hater
sheet
there
metro
erase
bread
other
anvil
evade
apl>1 2 U a
ode
ant
apl>c#-1 2 -2
apl>cUb
mig
hat
met
era
apl>L#k#3 2 4R'ABCDEFGH',(I8),'abcdefgh'
A B C D
E F G H
1 2 3 4
5 6 7 8
a b c d
e f g h
apl>L#z#2 1 3Uk
h
apl>Rz
1 1 1
apl>0U'intact'
intact
apl>0 2 U 3 5RI15
3 4 5
8 9 10
13 14 15
apl>L#w#5 U 23 41 73 26
.
apl>Rw
0
apl>Ry#3 1Uh#2 3R'abcdef'
0 2
apl>Rm#2 3Uh
0 0
apl>L#j#0U4
4
apl>Rj
1
apl>L#k#0 0 0 U 4
4
apl>Rk
1 1 1
apl>L#d#'a' 'an'('ant' 'ante')
a an ant ante
apl>Rd
3
apl>`=d
3
apl>L#s#-1Ud
a an
apl>`=s
2
apl>L#t#-2Ud
a
apl>Rt
1
apl>`=t
1
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>)off
