// park-miller-test.cc   File to demonstrate to test random number generator
//                       is Park-Miller
// W. Langdon cs.ucl.ac.uk
#define version "11 May 1994 Lib"

// Includes main function

#include <iostream.h>
#include <time.h>
#include "park-miller.h"

///////////////////////////////  MAIN

int main(int, char **)

{
        int u, seed;
        seed = 1;

	cout<<"\nProgram to test Park-Miller Random number generator\n";
        cout<<"Version "<<version<<endl;
	cout<<"Genenerating 10,000 random numbers with an initial seed of 1\n";
//	rndomize(1);
	for (int i=1; i<=10000; i++) u = intrnd (seed); 

	cout<<"10,000th random number is "<<u<<" it should be 1043618065\n";

	if ( u == 1043618065 )
	   {
	       time_t now;

	       cout<<endl<<"SUCCESS!"<<endl<<endl;

               cout << "Doing speed trial, 10 Million random numbers ";
               time (&now);
               cout <<ctime(&now) <<endl;

               for (i=1;i<10*1000*1000;i++) intrnd(seed);
               time (&now);
               cout << "Done at                                      ";
               cout <<ctime(&now)<<endl;
               return 0;
           }

        return 1;

}