apl - 配列内の孤立した正方形セグメントを数える方法は?

Question

ブール値の配列で分離された正方形セグメントの合計量をカウントできる APL プログラム (ClosedSeg) を実装しようとしています。例えば：

arr1
1 1 1 0 0 0 0
1 0 1 0 0 1 1
1 1 1 0 0 1 1
0 0 0 0 0 0 0
0 0 0 1 1 1 1

ClosedSeg arr1 ⍝ Four 1's border (non-linear) are minimum to be considered a segment.
2

arr2
1 1 1 1 0 0 0 0 0
1 0 0 1 0 1 1 1 0
1 1 1 1 0 1 0 1 0
1 1 0 0 0 1 1 1 1
0 0 0 0 0 0 1 0 1
0 0 0 0 0 0 1 1 1

ClosedSeg arr2 ⍝ Adjacent isolated segments counts.
4

arr3
1 1 1 1 0 0 0 0 0
1 0 0 1 0 1 1 1 0
1 0 1 1 0 1 0 1 1
1 1 1 0 0 1 1 0 1
0 0 0 0 0 0 1 0 1
0 0 1 0 0 0 1 1 1
0 1 0 1 0 0 0 0 0
0 0 1 0 0 0 0 0 0

ClosedSeg arr3 ⍝ Any segment shapes are acceptable, note that diagonal 1's is not a segment border.
2

私はこれで立ち往生しています。