DaveChild / Text-Statistics

        $intSyllableCount = $intWordPartCount + $intAffixCount + (2 * $intDoubleAffixCount) + (3 * $intTripleAffixCount);

        $debug['Syllables by Vowel Count'] = $intSyllableCount;

        foreach (self::$arrSubSyllables as $strSyllable) {

            $_intSyllableCount = $intSyllableCount;

            $intSyllableCount -= preg_match('`' . $strSyllable . '`', $strWord);

            if ($_intSyllableCount != $intSyllableCount) {

                $debug['Subtracting (' . $strSyllable . ')'] = $strSyllable;

            }

        }

        foreach (self::$arrAddSyllables as $strSyllable) {

            $_intSyllableCount = $intSyllableCount;

            $intSyllableCount += preg_match('`' . $strSyllable . '`', $strWord);

                $debug['Subtracting (' . $strSyllable . ')'] = $strSyllable;

            }

        }

        foreach (self::$arrAddSyllables as $strSyllable) {

            $_intSyllableCount = $intSyllableCount;

            $intSyllableCount += preg_match('`' . $strSyllable . '`', $strWord);

            if ($_intSyllableCount != $intSyllableCount) {

                $debug['Adding (' . $strSyllable . ')'] = $strSyllable;

            }

        }

        $intSyllableCount = ($intSyllableCount == 0) ? 1 : $intSyllableCount;

        $debug['Result'] = $intSyllableCount;