j - 删除所有包含一个元素的框

Question

如何删除包含一个元素的所有框？例如。我想转这个:

┌─────┬───┬─┬─────┐
│1 1 1│2 2│3│2 2 2│
└─────┴───┴─┴─────┘

进入这个:

┌─────┬───┬─────┐
│1 1 1│2 2│2 2 2│
└─────┴───┴─────┘

Answer 1

假设您的值在 a 中:

   ]a =. 1 1 1; 2 2; 3; 2 2 2
┌─────┬───┬─┬─────┐
│1 1 1│2 2│3│2 2 2│
└─────┴───┴─┴─────┘

这里的诀窍是获取每个框的长度:

   #@> a
3 2 1 3

如果长度 > 1，你会得到一个“掩码”，你可以传递给 copy .

   1 < #@> a
1 1 0 1

   a #~ 1 < #@> a
┌─────┬───┬─────┐
│1 1 1│2 2│2 2 2│
└─────┴───┴─────┘

13:将告诉我们如何使这种默契:

   13 : 'y #~ 1<#@>y'
] #~ 1 < #@>

碰巧，需要将 id 放在 fork 的最后一个位置正是 hook 所做的，所以我们甚至可以再简化一步:

   remsingles =. #~ 1 < #@>
   remsingles a
┌─────┬───┬─────┐
│1 1 1│2 2│2 2 2│
└─────┴───┴─────┘