apl>" <-APL2-------------------- sam232.txt ----------------------------> apl>" <- catenate (,) --------------------------------------------------> apl>L#z#2 4 6,1 3 5 2 4 6 1 3 5 apl>Rz 6 apl>L#z#'abc',1 2 3 4 abc 1 2 3 4 apl>Rz 7 apl>L#k#2 3RI6 1 2 3 4 5 6 apl>L#q#2 2R7 8 9 10 7 8 9 10 apl>L#h#k,q 1 2 3 7 8 4 5 6 9 10 apl>" <- catenate and vector notation ----------------------------------> apl>L#m#2,3 2 3 apl>L#n#2 3 2 3 apl>m `= n 1 apl>L#x#9 8 7,6 5 4 9 8 7 6 5 4 apl>L#q#9 8 7 6 5 4 9 8 7 6 5 4 apl>x `= q 1 apl>L#e#'to', 'ken' token apl>Re 5 apl>`=e 1 apl>L#f#'to' 'ken' to ken apl>Rf 2 apl>`=f 2 apl>" <- arguments have the same rank ----------------------------------> apl>L#a#3 4R'blueshoefoot' blue shoe foot apl>L#b#3 5R'berrylacesstool' berry laces stool apl>L#z#a,b blueberry shoelaces footstool apl>Rz 3 9 apl>L#c#2 1R'thomas' 'william' thomas william apl>`=c 2 apl>L#d#2 1R('aquinas' 'more')('ockham' 'shakespeare') aquinas more ockham shakespeare apl>`=d 3 apl>c,d thomas aquinas more william ockham shakespeare apl>`=c,d 3 apl>Yj#'',I0 0 apl>' ' = Yk#(I0),'' 1 apl>'s',2 4R'prigtray' sprig stray apl>(2 2 3RI12),'*' 1 2 3 * 4 5 6 * 7 8 9 * 10 11 12 * apl>L#u#'sat' sat apl>L#v#'teammazerail' teammazerail apl>u,v satteammazerail apl>L#w#'1: ' '2: ' 1: 2: apl>L#y#,[I0]'log on' 'log off' log on log off apl>L#g#w,y 1: log on 2: log off apl>Rg 2 2 apl>`=g 2 apl>)off