1つの要素ですべてのボックスを削除する

Question

1つの要素ですべてのボックスを削除するにはどうすればよいですか？例えば。この中に、

┌─────┬───┬─┬─────┐ 
│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 

e length> 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を置くために必要とするフックがまったく同じものですので、私たちも、することができますもう1つステップを簡略化してください。

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

Answer 2

@ダニエルの答えの別の見方。リストをフィルタリング

は非常に一般的であり、通常のイディオムは次のとおりです。

filterを廃棄するものを保持して 0される要素のための 1を返す動詞である

(#~ filter) 

。この場合、あなたのフィルターは、フィルターが

(1 < #) &> 

ので、

remsingles =: #~ (1 < #) &> 
remsingles a 
┌─────┬───┬─────┐ 
│1 1 1│2 2│2 2 2│ 
└─────┴───┴─────┘