module Density:sig
..end
exception Zero
val number_of : 'a list -> 'a array -> int
number_of states configuration
gives
the number of cells in configuration
which are in one of the states states
.
Optimized in case the list states
contains one or two elements.