anchor.diff:  
     case AvgLoad of
       0 ->
  -      {ok, lists:map(
  +      Res = make_ans_random(lists:map(
           fun({Node, _}) ->
             Node
  -        end, NodesList)};
  +        end, NodesList)),
  +      {ok, Res};
       _ ->
         {S1,S2,S3} = now(),
         random:seed(S1,S2,S3),
  
positive.code:             [Node | TmpAns]
          end
        end,
        {ok, lists:foldl(ChooseNodes, [], NodesList)}
    end;
  
  handle(ProtocolVersion, Msg) ->
  
negative.code:   end,
      "Error stopping dns tcp listener, status ~p"),
    ok.
  
  create_ans(Result, NodesList) ->
    case (length(Result) > 1) or (length(NodesList) =< 1)  of
      true -> {ok, Result};
      false ->
        NodeNum = random:uniform(length(NodesList)),
        {NewNode, _} = lists:nth(NodeNum, NodesList),
        case Result =:= [NewNode] of
          true ->
            {NewNode2, _} = lists:nth((NodeNum rem length(NodesList) + 1) , NodesList),
            {ok, Result ++ [NewNode2]};
          false ->
            {ok, Result ++ [NewNode]}
        end
    end.
  
  make_ans_random(Result) ->
    Len = length(Result),
    case Len of
      0 -> [];
      1 -> Result;
      _ ->
        NodeNum = random:uniform(),
        NewRes = lists:sublist(Result, 1, NodeNum) ++ lists:sublist(Result, NodeNum + 1, Len),
        [lists:nth(NodeNum, Result) | NewRes]
    end.