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


apl>" <- Relational Functions p218 ------------------------------------->


apl>)load cap2/help/help

cap2/help/help.apl
^ loaded.
entering e.g.  help 'R'  tells you what the R key does.             
entering e.g.  help 'reshape'  tells you about the reshape function.

apl>'trial'='trial'

1 1 1 1 1

apl>8 -2 6 -4 0 < 0

0 1 0 1 0

apl>L#l#('in' 'out') (9 5 6) (`Z2 2RI4)

  in out   9 5 6   1 2  
                   3 4  


apl>L#r#('it' 'but') 6 (2 2R1 8 5 4)

  it but   6   1 8 
               5 4 


apl>display l=r

+$------------------------------------------+
| +$--------------+ +$----+ +$------------+ |
| | +$--+ +$----+ | |0 0 1| U +$--+ +$--+ | |
| | |1 0| |0 1 1| | +~----+ | U1 0| U0 0| | |
| | +~--+ +~----+ |         | |0 0| |0 0| | |
| +E--------------+         | +~--+ +~--+ | |
|                           | +$--+ +$--+ | |
|                           | U0 0| U0 0| | |
|                           | |0 0| |0 1| | |
|                           | +~--+ +~--+ | |
|                           +E------------+ |
+E------------------------------------------+

apl>" <- Replicate (/) ------------------------------------------------->


apl>1 2 3 4 / 'abcd'

abbcccdddd

apl>L#r#3 2R'a' 8 7 6 5 4

 a 8 
 7 6 
 5 4 


apl>2 -1 1 -2 / r

 a a   8     
 7 7 0 6 0 0 
 5 5 0 4 0 0 

apl>1 2 -1 3 -2 / 6 7 8

6 7 7 0 8 8 8 0 0

apl>0 2 0 1 / 'soap'

oop

apl>2 / 4 5

4 4 5 5

apl>L#s#,[I0]'ton'

t
o
n


apl>1 -2 2 / s

t  tt
o  oo
n  nn

apl>1 -2 3 / 6

6 0 0 6 6 6

apl>L#w#'i' 'id' ('ide' 'idea')

 i id   ide idea  


apl>`=w

3

apl>L#x#3 2 1 / w

 iii id id   ide idea  


apl>`=x

3

apl>L#p#1 2 0 / w

 i id id 


apl>`=p

2

apl>" <- Replicate with Axis (/[] `/[]) -------------------------------->


apl>L#r#3 2 4RI24

 1  2  3  4
 5  6  7  8

 9 10 11 12
13 14 15 16

17 18 19 20
21 22 23 24


apl>2 -1 1 / [2]r

 1  2  3  4
 1  2  3  4
 0  0  0  0
 5  6  7  8

 9 10 11 12
 9 10 11 12
 0  0  0  0
13 14 15 16

17 18 19 20
17 18 19 20
 0  0  0  0
21 22 23 24

apl>L#s#3 2 4 R I24

 1  2  3  4
 5  6  7  8

 9 10 11 12
13 14 15 16

17 18 19 20
21 22 23 24


apl>2/[2]s

 1  2  3  4
 1  2  3  4
 5  6  7  8
 5  6  7  8

 9 10 11 12
 9 10 11 12
13 14 15 16
13 14 15 16

17 18 19 20
17 18 19 20
21 22 23 24
21 22 23 24

apl>L#t#3 1 4R'abcdefghijkl'

abcd

efgh

ijkl


apl>Rt

3 1 4

apl>-1 1/[2]t

    
abcd

    
efgh

    
ijkl

apl>R-1 1/[2]t

3 2 4

apl>L#m#3 4RI12

1  2  3  4
5  6  7  8
9 10 11 12


apl>1 0 2 -1 `/ m

1  2  3  4
9 10 11 12
9 10 11 12
0  0  0  0

apl>1 0 2 -1 /[1] m

1  2  3  4
9 10 11 12
9 10 11 12
0  0  0  0

apl>L#d#2 2 2R'he' 'me' 'we' 'us' 'i' 'a' 'o' 'e'

 he me 
 we us 
       
 i  a  
 o  e  


apl>Rd

2 2 2

apl>`=d

2

apl>L#j#0 2/[1]d

 ia 
 oe 
    
 ia 
 oe 


apl>`=j

1

apl>L#w#2 -1 1 /[2] d

 he me 
 he me 
       
 we us 
       
 i  a  
 i  a  
       
 o  e  


apl>Rw

2 4 2

apl>`=w

2

apl>)off