function dueling_idiots_test ( )

%*****************************************************************************80
%
%% DUELING_IDIOTS_TEST tests the DUELING_IDIOTS programs.
%
%  Modified:
%
%    07 May 2019
%
%  Author:
%
%    Paul Nahin,
%    some modifications by John Burkardt.
%
%  Reference:
%
%    Paul Nahin,
%    Dueling Idiots and Other Probability Puzzlers,
%    Princeton, 2012,
%    ISBN: 978-0691155005.
% 
  addpath ( '../dueling_idiots' );


  timestamp ( );
  fprintf ( 1, '\n' );
  fprintf ( 1, 'DUELING_IDIOTS_TEST\n' );
  fprintf ( 1, '  Test the DUELING_IDIOTS programs.\n' );

  ash ( 100 );
  balls ( 10 );
  balls ( 100 );
  balls ( 1000 );
  balls ( 10000 );
  balls ( 100000 );
  baseball ( );
  biased ( 3, 0.0 );
  biased ( 3, 0.3 );
  biased ( 3, 0.9 );
  biased ( 4, 0.0 );
  biased ( 4, 0.3 );
  biased ( 4, 0.9 );
  biased ( 5, 0.0 );
  biased ( 5, 0.3 );
  biased ( 5, 0.9 );
  biased ( 6, 0.0 );
  biased ( 6, 0.3 );
  biased ( 6, 0.9 );
  fprintf ( 1, '\n' );
  fprintf ( 1, 'BINOMIAL: 6-Choose-0 = %d\n', binomial ( 6, 0 ) );
  fprintf ( 1, 'BINOMIAL: 6-Choose-1 = %d\n', binomial ( 6, 1 ) );
  fprintf ( 1, 'BINOMIAL: 6-Choose-2 = %d\n', binomial ( 6, 2 ) );
  fprintf ( 1, 'BINOMIAL: 6-Choose-3 = %d\n', binomial ( 6, 3 ) );
  brownian ( 200 );
  bulb ( 5 );
  bulb ( 10 );
  casino ( );
  cc ( );
  chess ( 6, 0.1 );
  chess ( 6, 0.0 );
  correlation ( 5 );
  cpm ( );
  esim ( 1000 );
  esim ( 10000 );
  flycircle ( );
  flysquare ( );
  gas ( );
  generator ( );
  idiots1 ( );
  idiots2 ( );
  kids ( 0.40 );
  markov ( );
  match ( 10, 2 );
  match ( 10, 3 );
  match ( 10, 4 );
  match ( 50, 2 );
  monty ( )
  needle ( );
  normal ( )
  odd ( 2 );
  odd ( 3 );
  odd ( 4 );
  onedwalk ( )
  onewaytodoit ( );
  onion ( );
  paradox ( 100 );
  paths ( );
  pert ( 50 );
  pisim ( );
  radar ( 100, 0.1, 0.1, 0.15 );
  randomsum ( );
  spider ( );
  stirling1 ( );
  stirling2 ( );
  stirling3 ( );
  theory ( );
  thief ( );
  tub ( 0.2, 13 );
  tub ( 0.2, 40 );
  tub ( 0.05, 40 );
  underdog1 ( );
  underdog2 ( );
  xplusy ( 2 );
  xplusy ( 6 );
  xpowery ( );
  xyhisto ( );
  z ( );
%
%  Terminate.
%
  fprintf ( 1, '\n' );
  fprintf ( 1, 'DUELING_IDIOTS_TEST\n' );
  fprintf ( 1, '  Normal end of execution.\n' );
  fprintf ( 1, '\n' );

  rmpath ( '../dueling_idiots' );

  return
end
