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
