apl>" <-APL2-------------------- sam269.txt ---------------------------->
apl>" <- Selective specification --------------------------------------->
apl>costs#(39 19 29) (35 15 29 18 45)
apl>costs#costs,`Z25 16 21 12.5
apl>1 2`Xcosts " s/b 19
19
apl>(1 2 `X costs) # 20
apl>costs
39 20 29 35 15 29 18 45 25 16 21 12.5
apl>(a b c)#1 2 3
apl>a,b,c
1 2 3
apl>L#r#2 2 4 R I 16
1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16
apl>((,r)[1 3 14 16])#'acde'
apl>r
a 2 c 4
5 6 7 8
9 10 11 12
13 d 15 e
apl>m#'abcde'
apl>((1 0 1 0 1) \ m) # I5 " produces 1 3 5
apl>m
1 3 5
apl>)off