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


apl>men#45 75 15


apl>women#35 75 15 45 95


apl>children#35 0 55 15


apl>stock # men women children


apl>" <- Each and a scalar argument ------------------------------------>


apl>R`1 1

  

apl>" <- Reduce of nested variables ------------------------------------>


apl>S/(1 2) (3 4) (5 6)

 5 6 

apl>" <- Disclose------------------------------------------------------->


apl>`X[1]stock

45 35 35
75 75  0
15 15 55
 0 45 15
 0 95  0

apl>styles#'oxfords' 'loafers' 'sneakers'


apl>L#styles#styles,'sandals' 'pumps'

 oxfords loafers sneakers sandals pumps 


apl>groups#'mens' 'womens' 'childrens'


apl>(' ',groups),[1]styles,`X[1]stock

          mens womens childrens 
 oxfords    45     35        35 
 loafers    75     75         0 
 sneakers   15     15        55 
 sandals     0     45        15 
 pumps       0     95         0 

apl>)off