<?php

// Hier die gewünschten Analyseparameter eintragen

$pattern_search_obergrenze = 100000;
$maximale_teilbarskeits_testzahl = 1000;
$buecher_aneinanderketten = false;
$mindeste_vorkommnisse_fuer_pattern_ausgabe = 1;
$sortiere_pattern_vorkommen_nach_vorkommnisse = true;

// Daten aller Bücher

$buecher = '50843485611457278572611857643646724353452756019288952197353646724968475601996847709088952197278167051216485611451919911800364688952199118006512889523646721191180035765135347830
57278572611857643646724353452756019285611451919911800364688952199118006512889523646721191180035765135347830508434856114
21972789431519118519118018944521972
40421585765121615180094343508434856114572785726118576436467243534527560192889521973536467249684756019968477090889521972781670512164856114519199118003646889521991180065128
094343508434856118003641973536467249684756019968477090889521688952199118006512814572785726118576436467243534527560192889529727816705121648561145191991
23646721191180035765135347830464679727839673405792827585765125275705845217652197278304648765159564611414519889975159537243485612783020
57652197278943151911851911801894452197278894383435081243485
435282177830457651288952197251081658550649911800364672431
94576512889506512889500362151288952196114364585611451904509118003150362151288952196114364585611451904509118003159457
65128895236467211911800357651353478304645601996847709088952197278167051216483435084348561145727857261185764364672435345275601928867972783994689521991180067340579282758576512527570584521765219727830464876515956461141451988997514672496847952197353561145191991180036468
61143128895003624968475601996585506499670467261145800369042204648451911889521977128895219594576552364672119118003575765460036467118001401525517
34856251081146364672435345158604215857744545190450421595615135347801928895216019936467243142789431519118651281911800356114726116467136464612
18003646889521991261145145198561145190830457651228217735084348562847468898052103649915991186745194688952199153452744647261145145194856114506553452744647261145145194856114506563561145198675635611451919911800364688952199126114511991
956151353478019288952160199364672431427894315191186512819118003561147261164671364646121978585765197292197278167054671180014015255175191180189445
22953452744647261145145194856114519083045765122821773508434856284770908895243485611216480065
867563561145191991180036468895219911036512889672127788943887215128895219618003114572785726118576421970968057963661252757058452176521972783046487651595646114145198899751121615180
85765943442159560421830246465180099673405792827843508195372434856251081146364672435546003614519121128883046467972783160134515860421585774454519045042159561513534780192889521601993646724314278943151911865128191180035611472611646713646461219785857651972921972781670546711800
81953724348562510811463646724355460036145191211288830464679727831601345158604215857744545190450421595615135347801928895216019936467243142789485765943442159560421830246465180099673405792827843503151911865128191180035611472611646713646461219785857651972921972781670546711800
78167051216480065861143128895003624968475601996585506499670467261145800369042204648451911889521977128895219594576552364672119118003575765460
94576559967046726114580512164800658611431288950036249684756019032364672119178121977128895219518003575765460670965855064690422046484519118895
857744545190450421595615135347801928895216019936467243142789431519118651281911800356114726116467186418005458561197353646724348561145196726114519031180657191894343180014
0152551751911801894521765219727830464876515956461141454522953452744647261145145194856114519083045765122821773508434856236464612197858576
5197292197278167054671847709088952434856112164800658675635611451919911800364666125275705819889521991103651288967212778894388721512889521961800311457278572611857642197096805796389975112115
9746483494727830404215857659434421595604218302031180657191894345219911843508124348561145191211288830464679727831601343545219721277709096734709201285719
65128896721277889438872151288952196180031145727857261185764219709680579636612527570584521765219727830464876515956461141451988997511216151
5345274464726114514519485611451908304576512282177350843485628477090889524348561121648006586756356114519199118003646889521991
53452744619083045765122821773508434856284770908895243991180036468895219915345274464726114514519485611450658675635611451919911800364688952199126114514519485611451908304576512282177350843485628474856112164804770908895243485611216480065867563561145191
819537243485625108114636467243554600361451912112888304646797278316013451586042158577445451904504215956151353478019288952160199364672431427894
8550649967046726114580036904220464845191188952197712889521959457655236467211911800357576746483494343545217709096734709201285719727830404215857659
219727816705121648006586114312889500362496847560199658550649967046726114580036904220464845191188952197712889521959457655236467
21191180035757654600364671180014015255175191180189445229534527477090967347092012857197278304042158576594344215956042183020311806571918943434646518009
480065861143128895003624968475601996585506499670467261145800369042204648451911889521977128895219594576552364672119118003575765
460036467118001401525517519118018944522953452744647261145145194856114519083045765122821773508434856275635611451919911800364688
9521991184350812434856114519121128883046467972783160174648349434354521972127770909673470920128571972783040421585765943442159560421830203118065719189434
56114572785726118576436467243534527560192889521973536467249684756019968477090889521972781670512164856114519199118003646889521991180065128
180036468895219911800651288952364672119118003576513534783046467972783967340579282758576512527570584521765219727830464876515956461141451988997
275857651972788943887215128895219618003114572785726118576421970968057963661252757058452176521972783046487651595646114145198899751121615180059537243485625108114636467243534515860421585774454519045042159561513534780192889521601993646724314278943151911865128191180035611472611
3046484353451586042157651595646190186559537243485625108145042159561513534780192889115191414519889971463646728577511216151800672431427894314454552160199364128191180035611472611
8435345158675112167610625140815953478019288911519141451988997146364751352854215765159564619018655953724385
11857642197096805796366125275705845217652197278304648765159564611414519889975112161518005458561197353646724348561145196726114519031180657191894343
1143128895003624968475601996585506499670467261145800369042204648451911889521977128895219594576552364672119118003575767464834943435452177090967347092012
84350819215956151367972783160134515860421585774454519045045347801928895216019979282753724348562510811463646724355460036145191211288830464
5191186512819118003561147261164671364646121978036464726114514519485611451908304576512282177350843485627563561145191991180036468895219911843508124348561145191211
8550649967046726114580036904220464845191188952197712889521959457655236467211911800357576746483494343545217709096734709201285719727830404215857659
1180014015255175191180189445229534527477090967347092012857197278304042158576594344215956042183020311806571918943434646518009967340579282758576519727889438872151288952196180031145727857261185764219709680579636612527570584521765219727830464876515956461141
451988997511216151800595372434856251081146364672435345158604215857744545190450421595615135347801928895216019936467243142789431
9658550649967046726114580036904220464845191188952197712889521959457655236467211911800357576746483494343545217709096734709201285719727830404215857659434421595604218302464
7816705747709096121648006586114312889500362496847560199658550649967046726114580036904220464845191188952197712889521959457655236467211911800357576546003646711800140152551751911801894452295345273470920128571972783040421585765943442159560421830203118065719189434346465180099673
65180099673405792827843508195372434856251081146364672435546003614519121128883046467972783160134515860421585774454519045042159561513534780
19288952160199364672431427894315191186512819118003561147261164671364646121978585765197292197278167054671180014015255175191180189445229
9521961800311457278572611857642197096805796366125275705845217652197278304648765159564611414519889975112161518005458561197353646724348561145196726114519031180657191894343
042159561513534780192889521601993646724314278943151911865128191180035611472611646713646461219785857651972921972781670546711800140152551751911801894452295345274464726114514519485611451908304576512282177350843485
62847709088952434856112164800658675635611451919911800364688952199110365128896721277889438872151288
978585765197292197278167054671180014015255175191180350843485628477090889524348561121648006586
756356114519199118003646889521991103345274464726114514519485611451908304576512282177451904504215956151353478019288952160199364672
467252197752364672119118003575765460036467118001401525522012889521959175191180189445229534526114580036904457654648451911889
6797577144583160132745193515860421585774458316013451586042150860421584515860421585774451601345154504838577445860134
46472611451451948561145190830457651228217735084348562756356114519199118003646889521991184350812434856114519121128883046467972783160174648349434354521972127
585765197278894388721512889521961800311457278572611857642197096805796366125275705845217652197278304648765159564611414519889975112161518005953724348562510811463646724353451586042158577445451904504215956151353478019288952160199364672431427894315191186512819118003561147261164671364646121978036512
219605796366125275889031176515956461141451988997511216151808675635611451919911800364688952199113887215127788945036457512889672127058452176521972783046481802785726118576421970968
4519045042159561513534780192889521601993646724314278943151911865128191180035611472611646713646461219785857651972921972781670546711800140152551751911801894452295345274464726114514519485611451908304576512282177350843485628477090889524348561121648006586756356114519199118003646889521991103
04215956151353478019288952160199364672431427894315191186512819118003561147261164671364646121978585765197292197278167054671180014015255175191180189445229534527446472611451451948561145190830457651228217735084348562847709088952434856112164800658675635611451919911800364688952199110365
79282784350819537243485625108114636467243554600361451912112888304646797278316013451586042158577445451904504215956151353478019288952160199
800595372434856251081146364672435345158604215857744545190450421595615135347801928895216019936467243142789431519118651281911800356114726116467
89521972781670512164800658611431288950036249684756019965855064996704672611458003690422046484519118895219771288952195945765523646721191180
1801894452295345274770909673470920128571972783040421585765943442159560421830203118065719189434346465180099673405792827585765197278894388721512889521961800311457278572611857642197096805796366125275705845217652197278304648765159564611414519889975112161518005953724348562510';

// Intern

$version = '1040';

// Analyseteil

header('Content-Type: text/plain');

echo "~ Analyse $version Start\n";

echo "\n~ Prozentuale Anteile aller Elemente\n\n";

$insgesamte_elementanzahl = 0;

for ($i=0; $i<=9; $i++)
{
	$insgesamte_elementanzahl += substr_count($buecher, $i);
	$tmp = 'element'.$i;
	$$tmp = substr_count($buecher, $i);
}

for ($i=0; $i<=9; $i++)
{
	$tmp = 'element'.$i;
	$prozent = $$tmp / $insgesamte_elementanzahl * 100;
	echo "Element\t$i\tVorkommen:\t$prozent%\n";
}

# Das \r stört uns im weiteren Scriptverlauf...
$buecher = str_replace("\r", '', $buecher);
$ary = explode("\n", $buecher);

echo "\n~ Buchlängenstatistik\n\n";

$max = 0;
$min = -1;
$complete_count = 0;
foreach ($ary as $key => $value)
{
	$count = strlen($value);
	if ($count > $max) $max = $count;
	if (($count < $min) || ($min == -1)) $min = $count;
	$complete_count += $count;
}

$c_buecher = count($ary);
$mean = $complete_count / $c_buecher;

echo "Buecher:\t$c_buecher\n";
echo "Max:\t$max\n";
echo "Min:\t$min\n";
echo "Mean:\t$mean\n";

echo "\n~ Teilbarkeit der Buchlänge\n";
echo "! Maximal eingestellte Teilbarkeits-Testzahl: $maximale_teilbarskeits_testzahl\n\n";

for ($i=2; $i<=$maximale_teilbarskeits_testzahl; $i++)
{
	#Am Anfang alle ${teiler...} auf true, um später den durchgehenden Teiler zu finden ("wer überlebt?")

	$tmp = 'teiler'.$i;
	$$tmp = true;
}

foreach ($ary as $key => $value)
{
	$count = strlen($value);
	$buchnummer = $key+1;

	echo "Buch\t$buchnummer\that die Länge\t$count\tund ist teilbar durch:";

	$was_gefunden = false;

	for ($i=2; $i<=$maximale_teilbarskeits_testzahl; $i++)
	{
		if ($count % $i == 0)
		{
			echo "\t$i";
			$was_gefunden = true;
		}
		else
		{
			$tmp = "teiler$i";
			$$tmp = false;
		}
	}

	if (!$was_gefunden) echo "KEINE";

	echo "\n";
}

echo "\n~ Analyse der Teiler, die bei JEDEM Buch existieren.\n";
echo "! Maximal eingestellte Teilbarkeits-Testzahl: $maximale_teilbarskeits_testzahl\n\n";

$was_gefunden = false;

for ($i=2; $i<=$maximale_teilbarskeits_testzahl; $i++)
{
	$tmp = 'teiler'.$i;
	if ($$tmp)
	{
		echo "Gemeinsamer durchgehender Teiler:\t$i\n";
		$was_gefunden = true;
	}
}

if (!$was_gefunden) echo "KEINE\n";

echo "\n~ Suche nach Sequenzen bis $pattern_search_obergrenze.\n";

echo "! Aneinandergehängte Bücher: ";

if ($buecher_aneinanderketten)
{
	$buecher = str_replace("\n", '', $buecher);
	echo "Ja.";
}
else
{
	echo "Nein.";
}

echo "\n";

echo "! Es werden Vorkommnisse angezeigt, sobald sie >= $mindeste_vorkommnisse_fuer_pattern_ausgabe sind.\n";

$max = 0;
$max_vorkommen = '';

for ($i=0; $i<=$pattern_search_obergrenze; $i++)
{
	$vorkommen = substr_count($buecher, $i);
	if ($vorkommen >= $mindeste_vorkommnisse_fuer_pattern_ausgabe)
	{
		$pattern_array[$i] = $vorkommen;
	}
}

# Nun zur Ausgabe

echo "! Pattern sind nach Vorkommnisse sortiert: ";

if ($sortiere_pattern_vorkommen_nach_vorkommnisse)
{
	echo "Ja";
	arsort($pattern_array);
}
else
{
	echo "Nein";
}

echo "\n\n";

foreach ($pattern_array as $key => $value)
{
	echo "Die Zeichenkette\t$key\tkommt in den Büchern\t$value\toft vor.\n";
}

echo "\n~ Analyse Ende\n";

?>