function full_deck_stats_test ( )

%*****************************************************************************80
%
%% full_deck_stats_test() tests full_deck_stats().
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    15 November 2022
%
%  Author:
%
%    John Burkardt
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'full_deck_stats_test():\n' );
  fprintf ( 1, '  full_deck_stats() reports statistics for N instances\n' );
  fprintf ( 1, '  of the full deck process.\n' );
  fprintf ( 1, '\n' );
  fprintf ( 1, '       N  Min    Mean  Max    Var\n' );
  fprintf ( 1, '\n' );
%
%  Blasted Octave can't handle 1000 or 10000.
%
% for n = [ 10, 20, 50, 100, 1000, 10000 ]
  for n = [ 10, 20, 50, 100 ]
    [ tmin, tmean, tmax, tvar ] = full_deck_stats ( n );
    fprintf ( 1, '   %5d  %3d  %6.2f  %2d  %6.2f\n', n, tmin, tmean, tmax, tvar );
  end

  return
end

