RosettaCodeData/Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-2.j

   M=:0.4>?6 6$0
   M
1 0 0 0 0 0
0 0 0 1 0 0
0 0 0 1 0 0
1 1 0 0 0 0
0 0 0 1 0 1
1 1 0 1 1 0
   M*p:i.$M
  2   0 0   0   0   0
  0   0 0  29   0   0
  0   0 0  53   0   0
 67  71 0   0   0   0
  0   0 0 107   0 113
127 131 0 139 149   0
   congeal M*p:i.$M
  2   0 0   0   0   0
  0   0 0  53   0   0
  0   0 0  53   0   0
 71  71 0   0   0   0
  0   0 0 149   0 113
131 131 0 149 149   0