function [ win_total, roll_total ] = craps_stats ( n )

%*****************************************************************************80
%
%% craps_stats() returns statistics for N games of craps.
%
%  Licensing:
%
%    This code is distributed under the MIT license.
%
%  Modified:
%
%    18 July 2022
%
%  Author:
%
%    John Burkardt
%
%  Input:
%
%    integer n: the number of games played.
%
%  Output:
%
%    integer win_total: the number of wins.
%
%    integer roll_total: the number of rolls.
%
  rng ( 'shuffle' );

  bet = 1.0;
  win_total = 0;
  roll_total = 0;

  for i = 1 : n
    [ result, roll, point ] = craps_game ( bet );
    if ( 0.0 < result )
      win_total = win_total + 1;
    end
    roll_total = roll_total + roll;
  end

  return
end

