apl>" <-APL2-------------------- sam268.txt ---------------------------->
apl>" <- Test of syntax error ------------------------------------------>
apl>text# 'z#test r '
apl>text#text,[ .5]'Rz(,'',''F`=z) '
apl>text#text,[1] 'L # z # 1 0 1 `Z ''abc'''
apl>Lfx text
test
apl>test 1
Rz(,','F`=z)
^ 70 - missing right argument during execute.
The error occurred in function test
test[1]
apl>)si
test[1] *
apl>" <- Partition (`Z) p 188 ------------------------------------------>
apl>)load cap2/help/help
test 1
^ 998 - end of apl processing.
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>display 1 1 2`Z'abc'
+$---------+
| +$-+ +$+ |
| |ab| |c| |
| +--+ +-+ |
+E---------+
apl>L # z # 1 1 2 `Z 'abc'
ab c
apl>(`=z),Rz
2 2
apl>L # z # 1 0 1 `Z 'abc'
a c
apl>(`=z),Rz
2 2
apl>display z
+$--------+
| +$+ +$+ |
| |a| |c| |
| +-+ +-+ |
+E--------+
apl>" <- Partition (`Z) p 188 Lengths of arguments must match ---------->
apl>L # z # 1 0 1 `Z 'abcd'
L # z # 1 0 1 `Z 'abcd'
^ 128 - length error.
apl>(`=z),Rz
2 2
apl>display z
+$--------+
| +$+ +$+ |
| |a| |c| |
| +-+ +-+ |
+E--------+
apl>" <- Partition (`Z) p 188 Partition numeric vector into pieces ----->
apl>L # z # 2 1 2 `Z 10 20 30
10 20 30
apl>(`=z),Rz
2 2
apl>display z
+$-------------+
| +$----+ +$-+ |
| |10 20| |30| |
| +~----+ +~-+ |
+E-------------+
apl>" <- Partition (`Z) p 189 Partition adds a level of nesting -------->
apl>L # z # 'one' 'two' 'buckle my shoe'
one two buckle my shoe
apl>(`=z),Rz
2 3
apl>L # z # 1 1 2 `Z z
one two buckle my shoe
apl>(`=z),Rz
3 2
apl>display z
+$-------------------------------------+
| +$------------+ +$-----------------+ |
| | +$--+ +$--+ | | +$-------------+ | |
| | |one| |two| | | |buckle my shoe| | |
| | +---+ +---+ | | +--------------+ | |
| +E------------+ +E-----------------+ |
+E-------------------------------------+
apl>" <- Partition (`Z) p 189 Examples with blank delimiters ----------->
apl>L # x # ' a stitch in time '
a stitch in time
apl>(`=x),Rx
1 22
apl>" <- Partition (`Z) p 189 Partition and discard blank delimiters --->
apl>L # z # (' ' ^= x) `Z x
a stitch in time
apl>(`=z),Rz
2 4
apl>display z
+$-------------------------+
| +$+ +$-----+ +$-+ +$---+ |
| |a| |stitch| |in| |time| |
| +-+ +------+ +--+ +----+ |
+E-------------------------+
apl>" <- Partition (`Z) p 189 Keep delimiters on the ends -------------->
apl>L # z # (1 + ' ' ^= x) `Z x
a stitch in time
apl>(`=z),Rz
2 5
apl>display z
+$-------------------------------------+
| +$-+ +$-+ +$-------+ +$--+ +$------+ |
| | | |a | |stitch | |in | |time | |
| +--+ +--+ +--------+ +---+ +-------+ |
+E-------------------------------------+
apl>" <- Partition (`Z) p 189 Keep delimiters on the beginnings -------->
apl>L # z # (1 + ~ ' ' ^= x) `Z x
a stitch in time
apl>(`=z),Rz
2 5
apl>display z
+$-------------------------------------+
| +$--+ +$------+ +$---+ +$----+ +$--+ |
| | a| | stitch| | in| | time| | | |
| +---+ +-------+ +----+ +-----+ +---+ |
+E-------------------------------------+
apl>" <- Partition (`Z) p 190 Partition a matrix at blank columns ------>
apl>L # m # 3 12 R '1 10 3.1422 100 6.2833 1000 9.425'
1 10 3.142
2 100 6.283
3 1000 9.425
apl>L # z # (~ & `/ ' ' = m) `Z m
1 10 3.142
2 100 6.283
3 1000 9.425
apl>display z
+$-------------------+
U +$+ +$---+ +$----+ |
| |1| | 10| |3.142| |
| +-+ +----+ +-----+ |
| +$+ +$---+ +$----+ |
| |2| | 100| |6.283| |
| +-+ +----+ +-----+ |
| +$+ +$---+ +$----+ |
| |3| |1000| |9.425| |
| +-+ +----+ +-----+ |
+E-------------------+
apl>" <- Partition (`Z) p 192 Partition with Axis ---------------------->
apl>display n # 4 3 R I 12
+$-------+
U 1 2 3|
| 4 5 6|
| 7 8 9|
|10 11 12|
+~-------+
apl>display 1 0 1 1 `Z[1] n
+$---------------------+
U +$+ +$+ +$+ |
| |1| |2| |3| |
| +~+ +~+ +~+ |
| +$---+ +$---+ +$---+ |
| |7 10| |8 11| |9 12| |
| +~---+ +~---+ +~---+ |
+E---------------------+
apl>)off
