" <-APL2-------------------- sam268.txt ---------------------------->
" <- Test of syntax error ------------------------------------------>
text#          'z#test r              '
text#text,[ .5]'Rz(,'',''F`=z)          '
text#text,[1]  'L # z # 1 0 1 `Z ''abc'''
Lfx text
test 1
)si
" <- Partition (`Z) p 188 ------------------------------------------>
)load cap2/help/help
display 1 1 2`Z'abc'
L # z # 1 1 2 `Z 'abc'
(`=z),Rz
L # z # 1 0 1 `Z 'abc'
(`=z),Rz
display z
" <- Partition (`Z) p 188 Lengths of arguments must match ---------->
L # z # 1 0 1 `Z 'abcd'
(`=z),Rz
display z
" <- Partition (`Z) p 188 Partition numeric vector into pieces ----->
L # z # 2 1 2 `Z 10 20 30
(`=z),Rz
display z
" <- Partition (`Z) p 189 Partition adds a level of nesting -------->
L # z # 'one' 'two' 'buckle my shoe'
(`=z),Rz
L # z # 1 1 2 `Z z
(`=z),Rz
display z
" <- Partition (`Z) p 189 Examples with blank delimiters ----------->
L # x # '  a stitch  in time   '
(`=x),Rx
" <- Partition (`Z) p 189 Partition and discard blank delimiters --->
L # z # (' ' ^= x) `Z x
(`=z),Rz
display z
" <- Partition (`Z) p 189 Keep delimiters on the ends -------------->
L # z # (1 + ' ' ^= x) `Z x
(`=z),Rz
display z
" <- Partition (`Z) p 189 Keep delimiters on the beginnings -------->
L # z # (1 + ~ ' ' ^= x) `Z x
(`=z),Rz
display z
" <- Partition (`Z) p 190 Partition a matrix at blank columns ------>
L # m # 3 12 R '1   10 3.1422  100 6.2833 1000 9.425'
L # z # (~ & `/ ' ' = m) `Z m
display z
" <- Partition (`Z) p 192 Partition with Axis ---------------------->
display n # 4 3 R I 12
display 1 0 1 1 `Z[1] n
)off