<?
//////////// thfanx.php - thales functions ////////
// Functions needed by Thales                    //
// by Nikos Delis, Last mod.: 2/8/06             //
///////////////////////////////////////////////////

// seed with microseconds
function make_seed() {
    list($usec, $sec) = explode(' ', microtime());
    return (float) $sec + ((float) $usec * 100000);
}

function pshfia($num){
	$npshfia = 0;
	do {
		$npshfia+=1;
		$num=$num/10;
	} while ($num>=1);
	return($npshfia);
}

function msd($num){	// Most Segnificant Digit
	while ($num>=10){
		$num=$num/10;
	}
	return($num);
}

function lsd($num){
	$l=$num%10;
	return($l);
}

function exeikratoumeno($n1,$n2){
	// Bres poios einai mikroteros ari8mos kai posa pshfia exei
	$ek = false; // Exei Kratoumenno
	$tempn1 = $n1;
	$tempn2 = $n2;
	// An einai ISOI den exei shmasia...
	while (($ek==false)&&($tempn1>0)&&($tempn2>0)) {
		if ((lsd($tempn1)+lsd($tempn2))>=10) {
			// YPARXEIKRATOUMENO
			$ek = true;
		}
		$tempn1 = intval($tempn1/10);
		$tempn2 = intval($tempn2/10);
	}
	// CROP ta MSD tou megalyterou
	///while (pshfia($max)>pshfia($min)){
	///	$r = $max - (msd($max))*(pow(10,(pshfia($max))));
	///	$max = $r;

	///$t=intval($max);
	return($ek);
}
function exeidaneiko($n1,$n2){
	// 
	$ed = false; // Exei Daneiko
	$tempn1 = $n1;
	$tempn2 = $n2;
	// 
	while (($ed==false)&&($tempn1>0)&&($tempn2>0)) {
		if ((lsd($tempn1)-lsd($tempn2))<0) {
			// YPARXEI DANEIKO
			$ed = true;
		}
		$tempn1 = intval($tempn1/10); // Apokoph tou LSB
		$tempn2 = intval($tempn2/10);
	}
	return($ed);
}
function exeidaneikoekmo($n1,$n2){
	// n1 - n2 exei daneiko stis ekatontades MONO
	$ed = false; // Exei Daneiko
	$tempn1 = $n1;
	$tempn2 = $n2;
	// Apokleismos daneismou apo to LSB
	if ((lsd($tempn1)-lsd($tempn2))<=0) {
		// YPARXEI DANEIKO sto LSB. Apokleismos.
		return(false);
		exit("Test");
	}
	
	$tempn1 = intval($tempn1/10); // Apokoph tou LSB wste
	$tempn2 = intval($tempn2/10); // na ftasoume sto proteleytaio pshfio
	if ((lsd($tempn1)-lsd($tempn2))<0) {
		// YPARXEI DANEIKO
		$ed = true;
	}
	return($ed);
}
function exeimhden($n){
	// 
	$em = false; // Den Exei Mhdeniko
	$tempn = $n;
	// 
	while (($em==false)&&($tempn>0)) {
		if (lsd($tempn)==0) {
			// YPARXEI MHDENIKO
			$em = true;
		}
		$tempn = intval($tempn/10); // Apokoph tou LSB
	}
	return($em);
}

function isunique($numbs,$n1,$n2){
//$numbs[0][0] = 3;
//echo(empty($numbs));
//exit("XX");
	$isu = true; // ESTW oti EINAI monadiko to zeygari
	if (!empty($numbs)) { // An o pinakas DEN einai kenos
		reset($numbs);
		for ($i = 0; $i < 18; $i++) {  // tote sarwsh
			if (! empty($numbs[$i][0])) {
				if (($numbs[$i][0] == $n1) && ($numbs[$i][1] == $n2)) { // YPARXEI to zeygari
					$isu = false;
					echo("YPARXEI ");
					break;
				}
			} else { // ELSE not set - ara einai monadiko
				break;  // Break FOR
			}
		}
		reset($numbs);
		
	}
	//echo("($isu) $n1 $n2 --- ");
	//var_dump($numbs);
	//echo($numbs[0][0]);
	//echo(!$isu);
	//exit("AAAAAAAAAA");
	return($isu);
}

function isunique2($numb1,$numb2,$n1,$n2){
//$numbs[0][0] = 3;
//echo(empty($numbs));
//exit("XX");
	$isu = true; // ESTW oti EINAI monadiko to zeygari
	
	foreach($numb1 as $key => $value){
		if (($numb1[$key] == $n1) && ($numb2[$key] == $n2)){
			$isu = false;
		}
	}
	
/*	if (!empty($numbs)) { // An o pinakas DEN einai kenos
		reset($numbs);
		for ($i = 0; $i < 18; $i++) {  // tote sarwsh
			if (! empty($numbs[$i][0])) {
				if (($numbs[$i][0] == $n1) && ($numbs[$i][1] == $n2)) { // YPARXEI to zeygari
					$isu = false;
					echo("YPARXEI ");
					break;
				}
			} else { // ELSE not set - ara einai monadiko
				break;  // Break FOR
			}
		}
		reset($numbs);
		
	} */
	//echo("($isu) $n1 $n2 --- ");
	//var_dump($numbs);
	//echo($numbs[0][0]);
	//echo(!$isu);
	//exit("AAAAAAAAAA");
	return($isu);
}

function fill_numbers_of_three($numbs) {
	$numbs[0][0] = 0;
	$numbs[0][1] = 0;
	$numbs[0][2] = 0;
	$numbs[1][0] = 0;
	$numbs[1][1] = 1;
	$numbs[1][2] = 1;
	$numbs[2][0] = 0;
	$numbs[2][1] = 2;
	$numbs[2][2] = 2;
	$numbs[3][0] = 0;
	$numbs[3][1] = 3;
	$numbs[3][2] = 3;

	$numbs[4][0] = 1;
	$numbs[4][1] = 0;
	$numbs[4][2] = 1;
	$numbs[5][0] = 1;
	$numbs[5][1] = 1;
	$numbs[5][2] = 2;
	$numbs[6][0] = 1;
	$numbs[6][1] = 2;
	$numbs[6][2] = 3;
	$numbs[7][0] = 1;
	$numbs[7][1] = 3;
	$numbs[7][2] = 4;

	$numbs[8][0] = 2;
	$numbs[8][1] = 0;
	$numbs[8][2] = 2;
	$numbs[9][0] = 2;
	$numbs[9][1] = 1;
	$numbs[9][2] = 3;
	$numbs[10][0] = 2;
	$numbs[10][1] = 2;
	$numbs[10][2] = 4;
	$numbs[11][0] = 2;
	$numbs[11][1] = 3;
	$numbs[11][2] = 5;

	$numbs[12][0] = 3;
	$numbs[12][1] = 0;
	$numbs[12][2] = 3;
	$numbs[13][0] = 3;
	$numbs[13][1] = 1;
	$numbs[13][2] = 4;
	$numbs[14][0] = 3;
	$numbs[14][1] = 2;
	$numbs[14][2] = 5;
	$numbs[15][0] = 3;
	$numbs[15][1] = 3;
	$numbs[15][2] = 6;

	$numbs[16][0] = 2;
	$numbs[16][1] = 1;
	$numbs[16][2] = 3;

	$numbs[17][0] = 3;
	$numbs[17][1] = 2;
	$numbs[17][2] = 5;
	
	shuffle($numbs);
}
?>