matrix - APL:如何从矩阵中删除仅包含 0 的行和列？

Question

在矩阵中

0 1 0 0
1 0 1 0
1 1 0 0
0 0 0 0

我想通过将第 4 列和第 4 行剥离成

0 1 0
1 0 1
1 1 0

执行此操作的明智方法是什么？

Answer 1

给定一个矩阵，例如:

A←0 1 1 0 1⍀1 0 0 1 1\3 3⍴⍳9

这是:

0 0 0 0 0
1 0 0 2 3
4 0 0 5 6
0 0 0 0 0
7 0 0 8 9  

可以删除空行和空列:

(0∨.≠B)/B←(A∨.≠0)⌿A

输出:

1 2 3
4 5 6
7 8 9

仅修剪外部:

修剪前导列和尾随列:

(∨\0∨.≠B)/B←(⌽∨\⌽0∨.≠A)/A

修剪前导行和尾随行:

(-2↑+/^\⌽B^.=0)↓B←(∨\A∨.≠0)⌿A

一起:

(-2↑+/^\⌽D^.=0)↓D←(∨\C∨.≠0)⌿C←(∨\0∨.≠B)/B←(⌽∨\⌽0∨.≠A)/A