apl>" <-APL2-------------------- sam267.txt ---------------------------->


apl>" <- Outer Product pp 185-186 -------------------------------------->


apl>z # '-',[1](10 1RI10),' ',' ','|',' ',z # F(I10) J.X I 10


apl>((1,-1YRz)R' X  |',((18R3 0),4 0)FI10),[1]z

    X  |  1  2  3  4  5  6  7  8  9  1 
  - ---------------------------------- 
  1   |  1  2  3  4  5  6  7  8  9  10 
  2   |  2  4  6  8 10 12 14 16 18  20 
  3   |  3  6  9 12 15 18 21 24 27  30 
  4   |  4  8 12 16 20 24 28 32 36  40 
  5   |  5 10 15 20 25 30 35 40 45  50 
  6   |  6 12 18 24 30 36 42 48 54  60 
  7   |  7 14 21 28 35 42 49 56 63  70 
  8   |  8 16 24 32 40 48 56 64 72  80 
  9   |  9 18 27 36 45 54 63 72 81  90 
 10   | 10 20 30 40 50 60 70 80 90 100 

apl>(I4)J.+I5

2 3 4 5 6
3 4 5 6 7
4 5 6 7 8
5 6 7 8 9

apl>10 20 J., 1 2 3

 10 1  10 2  10 3 
 20 1  20 2  20 3 

apl>(I4)J.=I4

1 0 0 0
0 1 0 0
0 0 1 0
0 0 0 1

apl>L # z # 3 4 J.Y 'LLLL' 'HHHHH'

 LLL  HHH  
 LLLL HHHH 


apl>Rz

2 2

apl>`=z

2

apl>s#3 4R'theywanttrain'


apl>'at'J.=s

0 0 0 0
0 1 0 0
0 0 1 0

1 0 0 0
0 0 0 1
1 0 0 0

apl>)off