module Density:sig..end
exception Zero
val number_of : 'a list -> 'a array -> intnumber_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.