<?php

// include functions
include ('functions.php');
// Define parameters

    $continue = true;
    $g = 0;  //generation counter
    $a = 15; //generation counter
    
	$maxRuns = 500;
	
	$initial = 8;

    $goal = "1111" . "1111" . "0000" . "0000" . "0000" . "0000";

    $mMin = 1; // min number of mutants
    $mMax = 6; // max number of mutants
    $mTot = 0; // total number of mutation
	$mGen = 0;
	
    $i=0;
	
	$testFile = "testFile.txt";
	
	//$fh = fopen($testFile, 'w') or die("can't open file");
    
//step 00: generate entities
	while ($i <= $initial ) {
		$key = (string)$i;
        
		$key = "sub" . $key;
				
        $subject[$key] = creator(24);
        $fitness[$key] =  99 ;
		//[DEBUG]echo "i = $i subject($key) = $subject \n";
		$i++;
	}//end of while
	
	
    // use this section to print headers and intial dataset
    //=-=-=-=-=-=-=-=-=-=-=-=-//

	//print "before first printer \n";
    
    printer($subject,"start",$mgen, $mTot);
	//print "after first printer \n";
	//[debug]echo "before main while \n";
//    While($continue != 0 ){
	for ($i = 1; $i <= $maxRuns; $i++){ 
        //step 01: select the top 2 fittest ones
       //[debug] echo "before first foreach cont. = $continue genr = $g ation = $a\n";
		foreach ($subject as $key => $value) {
            $fitness[$key] = fitter($value, $goal);
            if ($fitness[$key] == 0) {
                $continue = 0;
            }//end if
            
        } //end for each
          
		
	//[debug]	echo "fitness before sort \n";
	//[debug]	print_r(array_keys($fitness));
	 	asort($fitness);
	//[debug]	echo "fitness after sort \n";
	//[debug]	print_r(array_keys($fitness));
		 	
            
            $b1 = current(array_keys($fitness));
            $b2 = next(array_keys($fitness));
            $mCount = rand($mMin,$mMax);
			$mTot = $mTot + $mCount;
			$mGen = $mCount;
        //step 02: breed more
        //step 03:	mutate 
		//[debug]echo "b1 = $b1 \n";
		//[debug]echo "b2 = $b2 \n";
		
		$b1 = $subject[$b1];
		$b2 = $subject[$b2];
		
        foreach ($subject as $key => $value) {

        $subject[$key] = breeder($b1, $b2);
         //[debug]echo "subject($key) is $value \n";   
		 //[debug]echo "mutants = $mCount \n";
            if ($mCount >= 0){
                $subject[$key] = mutator($value,$mCount);
                $mCount--;
            }//end if
            
        } // end mutate for each

        //step 04:	print
        printer($subject, $g, $mGen, $mTot);
        
		$mGen = 0;
	    $g++; //looping stuff
	 if ($continue == 0){
	 	$i = 5000;
		}

	 } // end main loop
   
    //step 06:	end

?>