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