anchor.diff:      [migration | Env:behaviours()].
   
   
  -%% @doc Computes an average number of elements that are chosen with given probability
  --spec average_number(float(),[term()]) -> integer().
  +%% @doc Computes an average number of elements
  +%% that are chosen with given probability
  +-spec average_number(float(), [term()]) -> integer().
   average_number(Probability, List) ->
       N = Probability * length(List),
       if N == 0 -> 0;
  
positive.code:     islandEmpty;
  
  result(Agents) ->
      lists:max([ Fitness || {_ ,Fitness, _} <- Agents]).
  
  
  -spec seed_random() -> {integer(),integer(),integer()}.
  seed_random() ->
      {_, B, C} = erlang:now(),
      Hash = erlang:phash2(node()),
  
negative.code:     end.
  
  
  -spec shortest_zip(list(), list()) -> list().
  shortest_zip(L1, L2) ->
      shortest_zip(L1, L2, []).
  
  
  %% @doc Returns the index of a given element in a given list
  -spec find(term(), [term()]) -> integer() | 'notFound'.
  find(Elem, List) ->
      find(Elem, List, 1).
  
  
  %% @doc This function is use case dependent and deprecated
  