Cut0inf


v;.0
Extended
initial writing: 2002-01-29
last updated: 2004-10-26



The dyad 0-cut v;.0 is extended to accept infinite
sizes (1{x). For example:

   y=: 7 8$ '0123456789',a.{~ ,65 97+/i.26
   y
01234567
89ABCDEF
GHIJKLMN
OPQRSTUV
WXYZabcd
efghijkl
mnopqrst
   (1 2 ,: 3 999) [;.0 y
ABCDEF
IJKLMN
QRSTUV
   (1 2 ,: 3 _) [;.0 y
ABCDEF
IJKLMN
QRSTUV
   (1 2 ,: _999 3) [;.0 y
opq
ghi
YZa
QRS
IJK
ABC
   (1 2 ,: _ 3) [;.0 y
ABC
IJK
QRS
YZa
ghi
opq
   <"2 x=: 1 2 ,:"1 > ,"2 { ;~"1 ] _ __ ,. 3
+-----+----+----+---+
|1 2  |1 2 |1 2 |1 2|
|_ _  |_ 3 |3 _ |3 3|
+-----+----+----+---+
| 1  2| 1 2|1  2|1 2|
|__ __|__ 3|3 __|3 3|
+-----+----+----+---+
   x <;.0 y
+------+---+------+---+
|ABCDEF|ABC|ABCDEF|ABC|
|IJKLMN|IJK|IJKLMN|IJK|
|QRSTUV|QRS|QRSTUV|QRS|
|YZabcd|YZa|      |   |
|ghijkl|ghi|      |   |
|opqrst|opq|      |   |
+------+---+------+---+
|tsrqpo|opq|FEDCBA|ABC|
|lkjihg|ghi|NMLKJI|IJK|
|dcbaZY|YZa|VUTSRQ|QRS|
|VUTSRQ|QRS|      |   |
|NMLKJI|IJK|      |   |
|FEDCBA|ABC|      |   |
+------+---+------+---+
   <"2 x=: _1 2 ,:"1 > ,"2 { ;~"1 ] _ __ ,. 3
+-----+----+-----+----+
|_1 2 |_1 2|_1 2 |_1 2|
| _ _ | _ 3| 3 _ | 3 3|
+-----+----+-----+----+
|_1  2|_1 2|_1  2|_1 2|
|__ __|__ 3| 3 __| 3 3|
+-----+----+-----+----+
   x <;.0 y
+------+---+------+---+
|234567|234|YZabcd|YZa|
|ABCDEF|ABC|ghijkl|ghi|
|IJKLMN|IJK|opqrst|opq|
|QRSTUV|QRS|      |   |
|YZabcd|YZa|      |   |
|ghijkl|ghi|      |   |
|opqrst|opq|      |   |
+------+---+------+---+
|tsrqpo|opq|dcbaZY|YZa|
|lkjihg|ghi|lkjihg|ghi|
|dcbaZY|YZa|tsrqpo|opq|
|VUTSRQ|QRS|      |   |
|NMLKJI|IJK|      |   |
|FEDCBA|ABC|      |   |
|765432|234|      |   |
+------+---+------+---+