apl>" <-APL2-------------------- sam270.txt ----------------------------> apl>" <- Pi times (O) --------------------------------------------------> apl>O1 -2 (2.75*2) 3.141593 -6.283185 23.75829 apl>O3j2 9.424778j6.283185 apl>" <- Pick (`X) -----------------------------------------------------> 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>L#r#'four' 'to' 'go' four to go apl>`=r 2 apl>L#z#2 `X r to apl>(Rz),`=z 2 1 apl>Lio # 0 apl>1 `X r to apl>Lio # 1 apl>L#a#'s' 'si' ('sir' 'sire') s si sir sire apl>`=a 3 apl>L#w#2 `X a si apl>(Rw),`=w 2 1 apl>L#x#3 `X a sir sire apl>(Rx),`=x 2 2 apl>L#c#2 2R'one' 'two' 'buckle' ('my' 'shoe') one two buckle my shoe apl>display c +$-------------------------+ U +$--+ +$--+ | | |one| |two| | | +---+ +---+ | | +$-----+ +$------------+ | | |buckle| | +$-+ +$---+ | | | +------+ | |my| |shoe| | | | | +--+ +----+ | | | +E------------+ | +E-------------------------+ apl>(Rc),`=c 2 2 3 apl>L#y#(`Z 2 2) `X c my shoe apl>(Ry),`=y 2 2 apl>L#d#c,[.5]2 2 R 'three' 'four' 'shut' ('the' 'door') one two buckle my shoe three four shut the door apl>display d ++$--------------------------+ UU +$--+ +$--+ | || |one| |two| | || +---+ +---+ | || +$-----+ +$------------+ | || |buckle| | +$-+ +$---+ | | || +------+ | |my| |shoe| | | || | +--+ +----+ | | || +E------------+ | || | || +$----+ +$---+ | || |three| |four| | || +-----+ +----+ | || +$---+ +$-------------+ | || |shut| | +$--+ +$---+ | | || +----+ | |the| |door| | | || | +---+ +----+ | | || +E-------------+ | ++E--------------------------+ apl>(Rd),`=d 2 2 2 3 apl>L#q#(`Z 2 1 2) `X d four apl>(Rq),`=q 4 1 apl>L#q#'fly' 'paper' fly paper apl>2 4 `X q e apl>L#s#2 3 R 'ab' 'cd' 'ef' 'gh' 'ij' 'kl' ab cd ef gh ij kl apl>(1 3) 2 `X s f apl>L#m#'b' 'ba' ('bat' 'bath') b ba bat bath apl>`=m 3 apl>L#n#(I0) `X m b ba bat bath apl>`=n 3 apl>L#a#(I0) `X 0 2 R 0 . apl>`=a 1 apl>L#h#2 2 R 'bucks' 'twang' 'lymph' 'froze' bucks twang lymph froze apl>display h +$----------------+ U +$----+ +$----+ | | |bucks| |twang| | | +-----+ +-----+ | | +$----+ +$----+ | | |lymph| |froze| | | +-----+ +-----+ | +E----------------+ apl>`=h 2 apl>L#s#(2 1) 4 `X h p apl>`=s 0 apl>L#g#'i' 'am' ('for' 'apl2') i am for apl2 apl>display g +$------------------------+ | +$-+ +$-------------+ | | i |am| | +$--+ +$---+ | | | - +--+ | |for| |apl2| | | | | +---+ +----+ | | | +E-------------+ | +E------------------------+ apl>`=g 3 apl>L#t#3 2 `X g apl2 apl>(Rt),`=t 4 1 apl>3 2 1 `X g a apl>L#e#2 3R'cry' 'vox' 'kid' 'jab' (2 3 R I6) ('leg' 'nth') cry vox kid jab 1 2 3 leg nth 4 5 6 apl>display e +$------------------------------+ U +$--+ +$--+ +$--+ | | |cry| |vox| |kid| | | +---+ +---+ +---+ | | +$--+ +$----+ +$------------+ | | |jab| U1 2 3| | +$--+ +$--+ | | | +---+ |4 5 6| | |leg| |nth| | | | +~----+ | +---+ +---+ | | | +E------------+ | +E------------------------------+ apl>(Re),`=e 2 3 3 apl>(2 2) (2 3) `X e 6 apl>L#u#(2 3) 2 `X e nth apl>`=u 1 apl>L#j#(2 3) 2 3 `X e h apl>`=j 0 apl>k#'elm' 'tax' 'spy' 'job' 'win' apl>L#k#2 3Rk, `Z (2 2 R 'que' 'zig' 'had' 'for') elm tax spy job win que zig had for apl>display k +$----------------------------+ U +$--+ +$--+ +$--+ | | |elm| |tax| |spy| | | +---+ +---+ +---+ | | +$--+ +$--+ +$------------+ | | |job| |win| U +$--+ +$--+ | | | +---+ +---+ | |que| |zig| | | | | +---+ +---+ | | | | +$--+ +$--+ | | | | |had| |for| | | | | +---+ +---+ | | | +E------------+ | +E----------------------------+ apl>(Rk),`=k 2 3 3 apl>L#p#(2 3)(1 2) `X k zig apl>(Rp),`=p 3 1 apl>L#i#(2 3)(1 2) 3 `X k g apl>(Ri),`=i 0 apl>)off