Exterieur Calculator

<?php

/*
$vorlage = [

    0 => '',
    1 => '',
    2 => '',
    3 => '',
    4 => '',
    5 => '',
    6 => '',

    7 => '',
    8 => '',
    9 => '',
    10 => '',
    11 => '',
    12 => '',
    13 => ''

];
*/

$kupfergold = [

    0 => 'hh hH hH hH hh hh hH Hh',
    1 => 'hH Hh Hh hh Hh hH hh Hh',
    2 => 'hH hH Hh hh hH hh Hh Hh',
    3 => 'Hh hh Hh hh hh hH hh hH',
    4 => 'hh hh hh Hh hH hh Hh Hh',
    5 => 'hH Hh hH hH Hh hh Hh hH',
    6 => 'Hh Hh hH Hh hH hH Hh hH',

    7 => 'Hh hH Hh Hh hh hh Hh hh',
    8 => 'hH hH hh Hh Hh Hh hH hh',
    9 => 'hH hh hH Hh hH hH Hh hh',
    10 => 'hh Hh hH hh hh hh Hh hH',
    11 => 'Hh Hh hH hh hh hH Hh hH',
    12 => 'Hh hH hh hH Hh Hh hh Hh',
    13 => 'hH Hh Hh Hh Hh hh Hh hh'

];

$fliederbluete = [

    0 => 'hh Hh hh Hh Hh hH hh hh',
    1 => 'hh hH Hh Hh hh hH hh hH',
    2 => 'hH hH hh hh Hh hh Hh hH',
    3 => 'hh hh Hh hH hh hh Hh hH',
    4 => 'Hh hh hh hh Hh Hh hh hh',
    5 => 'Hh Hh Hh hH hH hH hh Hh',
    6 => 'hH hh hh hH hH hH hh hH',

    7 => 'Hh hh hh hH Hh hh hH hH',
    8 => 'hh hH hh Hh hh hh hH hh',
    9 => 'hh Hh hH hh Hh hh hh hh',
    10 => 'Hh hH Hh hh hh Hh hh Hh',
    11 => 'hH Hh Hh hH hh Hh hH H',
    12 => 'hH hh Hh hH Hh hH hH Hh',
    13 => 'Hh hh hh hh hh hH hh Hh'

];

$schneesturm = [

    0 => 'hH hh hh Hh hH hh hh Hh',
    1 => 'Hh hh hh Hh hH hh hH hh',
    2 => 'hh hh hH Hh hh Hh hh hH',
    3 => 'hH Hh Hh hh hh hH hH hh',
    4 => 'hh hh hH Hh hH hH hh Hh',
    5 => 'hh hH hH Hh hH hH Hh hH',
    6 => 'Hh hH hh hH Hh hh hh H',

    7 => 'hH hh Hh hH Hh hH hh hH',
    8 => 'Hh hH hH hH hh hh Hh hh',
    9 => 'Hh Hh hh hH hH Hh hh hH',
    10 => 'Hh Hh hh hh hH hH hH hH',
    11 => 'hH hh hh hH Hh Hh hh hH',
    12 => 'Hh hh hh hh hh hH Hh hH',
    13 => 'hH Hh Hh Hh Hh hH hh hh'

];

$kaiserflieder = [

    0 => 'hh hH hh HH hh hH hh Hh',
    1 => 'hH Hh HH Hh hH hh Hh hh',
    2 => 'hh HH Hh hh hh hh hH HH',
    3 => 'hh hh HH hH hh hh hH Hh',
    4 => 'hH hh hh Hh hH hH hh hh',
    5 => 'HH hH hh hH HH hH hh Hh',
    6 => 'HH Hh Hh hH hH HH Hh hh',

    7 => 'HH Hh Hh hh hH hh hH hh',
    8 => 'Hh hh hh hH Hh Hh Hh hh',
    9 => 'Hh hh HH Hh hH Hh hh hh',
    10 => 'hh hH hh hh hh hh hh hh',
    11 => 'HH HH Hh hH hh HH hh hh',
    12 => 'HH Hh hH hh Hh HH hh Hh',
    13 => 'Hh hh hh Hh Hh hH Hh hh'

];

$exemplarius = [

    0 => 'Hh Hh hH hh Hh hh Hh hh',
    1 => 'Hh hh Hh hh Hh Hh Hh hh',
    2 => 'hh Hh Hh hH hh hH hh hh',
    3 => 'hh hH hH hh Hh hh hh hH',
    4 => 'hH hH hh Hh hH hH hH hH',
    5 => 'hH hh hh hh hH hh hH hH',
    6 => 'Hh Hh hh hh Hh Hh hh Hh',

    7 => 'hh hH hh hH hH Hh Hh hH',
    8 => 'hh Hh Hh Hh hH hh Hh hH',
    9 => 'hH hh hH hH hh Hh hh hh',
    10 => 'hH hh Hh hH hh Hh hH hH',
    11 => 'hh hH hH Hh Hh Hh hH Hh',
    12 => 'hh hH hH Hh hh hh hh hH',
    13 => 'hh hh Hh hH hH Hh Hh hH'

];

$schattenfaenger = [

    0 => 'hh hH Hh hh Hh hH Hh Hh',
    1 => 'Hh Hh Hh hh hh Hh hh hH',
    2 => 'hh hH hH Hh hh Hh hh hh',
    3 => 'Hh Hh hh hh Hh hH hh hH',
    4 => 'Hh Hh Hh hh hH Hh Hh Hh',
    5 => 'hH hh hH hH Hh Hh hh hh',
    6 => 'hH hH Hh Hh Hh hH Hh Hh',

    7 => 'hH Hh hH Hh hH hh Hh hh',
    8 => 'Hh Hh Hh Hh Hh hh Hh hH',
    9 => 'Hh Hh Hh hh hH Hh hh Hh',
    10 => 'Hh hH Hh hh hh hH hH hh',
    11 => 'hH Hh hH Hh hh hh hh Hh',
    12 => 'Hh hh hH hH Hh Hh Hh hh',
    13 => 'hH hh hh Hh hh Hh hH Hh'

];

$kupferpfeil = [

    0 => 'hH hh Hh Hh hh hh HH Hh',
    1 => 'hh hh Hh hh Hh Hh hH HH',
    2 => 'Hh hh Hh hh hh hH hh Hh',
    3 => 'HH hh hH hH hh hH hh hh',
    4 => 'hh hH hH hh hH hH HH hH',
    5 => 'Hh Hh hh hh Hh hH Hh Hh',
    6 => 'HH hH hh Hh Hh hh hh hh',

    7 => 'hh hH Hh hh hH hh Hh hh',
    8 => 'Hh hh hh Hh Hh hh Hh hh',
    9 => 'hh hH hh hh Hh HH Hh hh',
    10 => 'hh HH Hh hh hh hh hh HH',
    11 => 'HH Hh HH hH hh Hh hH Hh',
    12 => 'Hh Hh hH HH hh hH hH hh',
    13 => 'Hh hh hH hh Hh hh Hh hh'

];

$donnerpfeil = [

    0 => 'Hh HH hH HH Hh hh HH Hh',
    1 => 'hh hH hh Hh hh Hh hh hH',
    2 => 'hh Hh HH hh HH hH Hh Hh',
    3 => 'HH hH HH HH Hh hh Hh hh',
    4 => 'hh hH hh hH Hh Hh HH hh',
    5 => 'hh hH hh hh HH HH Hh Hh',
    6 => 'hH hh hh hh hh hh hh hh',

    7 => 'hh hH HH hh hH hh hh hH',
    8 => 'hH Hh HH Hh hH hh Hh hh',
    9 => 'hh HH hh hh Hh HH hh Hh',
    10 => 'hh hH hH hH hh hh hh hH',
    11 => 'hh hh hH Hh hh hH hH h',
    12 => 'Hh Hh hh Hh hH hH HH hh',
    13 => 'hh Hh Hh hh hh hh hh hH'

];

$daunenflieder = [

    0 => 'Hh HH hh HH HH hh hh Hh',
    1 => 'hh hh hh hh hh Hh hh hH',
    2 => 'hh hh Hh hh HH hh Hh hH',
    3 => 'Hh hh hh hh hh hh Hh Hh',
    4 => 'hh Hh hh hh hH HH hh Hh',
    5 => 'Hh hH hh Hh HH hH Hh hH',
    6 => 'Hh Hh Hh hH hH hh hh HH',

    7 => 'HH Hh Hh Hh hh hh hH Hh',
    8 => 'hh HH Hh Hh hh hh hH hh',
    9 => 'Hh HH HH Hh Hh Hh hh hh',
    10 => 'hH hH Hh hh hh hh hh hh',
    11 => 'hH Hh hH hH hh hh HH hh',
    12 => 'HH hh hh HH Hh hH hh hH',
    13 => 'Hh hh hh hh hh hH hh hH'
];

$marron = [

    0 => 'hH hH hh Hh Hh Hh hh Hh',
    1 => 'hh hH Hh Hh Hh hH Hh Hh',
    2 => 'hH Hh hH hH hH hh Hh Hh',
    3 => 'hH hH hh Hh hh Hh hH hh',
    4 => 'Hh hH hh hh hH hH hH hh',
    5 => 'hh hh Hh hh hH hH Hh hh',
    6 => 'hH hH hH hH hH hH hh hh',

    7 => 'hh Hh Hh hh hh Hh hh hH',
    8 => 'Hh Hh Hh Hh hH Hh hH hh',
    9 => 'Hh Hh hH Hh hH hH Hh hH',
    10 => 'hh hh Hh hh hH hH hh Hh',
    11 => 'Hh Hh hh Hh hh Hh hH hH',
    12 => 'hh hh hh hh Hh Hh hh Hh',
    13 => 'Hh Hh hh hH hH hH Hh hh'

];

$kastanienbluete = [

    0 => 'hH HH Hh hH hh hH hh HH',
    1 => 'hh hh HH hh hH Hh hh Hh',
    2 => 'Hh hH hH hh hH hh Hh hH',
    3 => 'HH hH hh hh hh hH hh hh',
    4 => 'hH hH hh hh HH hH hh Hh',
    5 => 'Hh hh Hh Hh hH hH Hh hh',
    6 => 'hh hh hH hh Hh hh Hh hh',

    7 => 'hh hH hH hh hh hh hh hH',
    8 => 'Hh hH hh hH hh hH hh hh',
    9 => 'HH hh HH hH Hh hH hH hH',
    10 => 'hh Hh hh hh hh hH Hh hh',
    11 => 'hh hH hh hh hh hH HH hh',
    12 => 'Hh hh hh hh HH Hh hh hh',
    13 => 'HH hH hh hh HH hh HH hh'

];

$pair = [$schattenfaenger, $fliederbluete];

function parseExterieurString(string $exterieur)
{
    $genes = explode(' ', $exterieur);

    for ($i = 0; $i < 4; $i++) {
        $genes[$i] =  parseGeneStringLeft($genes[$i]);
    }

    for ($i = 4; $i < 8; $i++) {
        $genes[$i] =  parseGeneStringRight($genes[$i]);
    }

    return $genes;
}

function parseGeneStringLeft(string $gene)
{
    switch ($gene) {
        case 'hh' : return 0;
        case 'Hh' : return 1;
        case 'hH' : return 1;
        case 'HH' : return 2;
    }
}

function parseGeneStringRight(string $gene)
{
    switch ($gene) {
        case 'hh' : return 2;
        case 'Hh' : return 1;
        case 'hH' : return 1;
        case 'HH' : return 0;
    }
}

function parseHorseGenes(array $genes)
{
    foreach ($genes as $gene => $value) {
        $genes[$gene] = parseExterieurString($value);
    }
    return $genes;
}

function calculateFoalHs(array $father, array $mother)
{
    $foal = [];

    for ($i = 0; $i < 14; $i++) {

        $fatherGene = $father[$i];
        $motherGene = $mother[$i];

        $foalGene = [];

        for ($j = 0; $j < 8; $j++) {
            $foalGene[$j] = ($fatherGene[$j] + $motherGene[$j]) / 2;
        }

        $foal[$i] = $foalGene;
    }

    return $foal;
}

function calculateFoal(array $father, array $mother)
{
    $foal = [];

    for ($i = 0; $i < 14; $i++) {

        $fatherGene = $father[$i];
        $motherGene = $mother[$i];

        $foalGene = [];

        for ($j = 0; $j < 4; $j++) {
            $foalGenePercent = ($fatherGene[$j] + $motherGene[$j]) / 2;

            if ($foalGenePercent > 0) {
                $foalGene[$j] = 1;
            } else {
                $foalGene[$j] = 0;
            }
        }

        for ($j = 4; $j < 8; $j++) {
            $foalGenePercent = ($fatherGene[$j] + $motherGene[$j]) / 2;

            if ($foalGenePercent > 1) {
                $foalGene[$j] = 1;
            } else {
                $foalGene[$j] = 0;
            }
        }

        $foal[$i] = $foalGene;
    }

    return $foal;
}

function interpreteFoal(array $foal)
{
    for ($i = 0; $i < 14; $i++) {
        $result[$i] = array_sum($foal[$i]);
    }
    return $result;
}

$foal = calculateFoal(
    parseHorseGenes($pair[0]),
    parseHorseGenes($pair[1])
);

echo array_sum(interpreteFoal($foal)) . ' von 112';