anchor.diff:  -export([interval_int/1, interval_float/1, seed/1,
            api_eq/1, reference/1,
   	 basic_stats_uniform_1/1, basic_stats_uniform_2/1,
  +	 basic_stats_standard_normal/1,
   	 basic_stats_normal/1,
   	 plugin/1, measure/1,
   	 reference_jump_state/1, reference_jump_procdict/1]).
  
positive.code:     basic_uniform_1(N-1, S, Sum+X, A);
  basic_uniform_1(0, {#{type:=Alg}, _}, Sum, A) ->
      AverN = Sum / ?LOOP,
      io:format("~.10w: Average: ~.4f~n", [Alg, AverN]),
      Counters = array:to_list(A),
      Min = lists:min(Counters),
      Max = lists:max(Counters),
      io:format("~.10w: Min: ~p Max: ~p~n", [Alg, Min, Max]),
  
      %% Verify that the basic statistics are ok
      %% be gentle we don't want to see to many failing tests
  
negative.code: 
  gen_jump_0(Algo) ->
      Seed = case Algo of
  	       exs64 -> %% Test exception of not_implemented notice
                     try
                         _ = rand:seed(exs64),
                         rand:jump()
                     catch
                         error:not_implemented -> not_implemented
                     end;
  	       _ when Algo =:= exsplus; Algo =:= exsp; Algo =:= exrop ->
                     %% Printed with orig 'C' code and this seed
  		   rand:seed({Algo, [12345678|12345678]});
  	       _ when Algo =:= exs1024; Algo =:= exs1024s ->
                     %% Printed with orig 'C' code and this seed
  		   rand:seed({Algo, {lists:duplicate(16, 12345678), []}});
  	       _ -> % unimplemented
  		   not_implemented
  	   end,
      case Seed of
          not_implemented -> [not_implemented];
          _ ->
              Max = range(Seed),
              gen_jump_0(?LOOP_JUMP, Max, [])
      end.
  
  