RosettaCodeData/Task/Percolation-Mean-cluster-density/J/percolation-mean-cluster-density-3.j
2015-02-20 09:02:09 -05:00

1 line
57 B
Text

idclust=: $ $ [: (~. i.])&.(0&,)@,@congeal ] * 1 + i.@$