Как ускорить алгоритм шинглов?

<?
//очистка текста от незначащих частей
function canonize($text){
//стоп-символы
$stop_symbols = array (
"1", "2", "3", "4", "5", "6", "7", "8", "9", "0",
"~", "`", "!", "@", "\"", "#", "№", "$", ";", "%",
"^", ":", "&", "?", "*", "(", ")", "-", "_", "+",
"=", "\t", "{", "[", "]", "}", "\r", "\n", "\\", "/",
"|", ",", ".");
//убираем стоп-символы
$text = str_replace($stop_symbols, '', $text);
//убираем дублирование пробели
while (strpos($text, '  ')!=false)
    {
    $text = str_replace('  ', ' ', $text);
    }
//приводим все символы к нижнему регистру
$text=strtolower($text);
//разбиваем на слова
$words = split(' ', $text);
return $words;
}
 
//получение набора шинглов из массива слов
function get_shingles($word_arr){
//количество слов в шингле
$shingleLen = 3;
for ($i=0;$i<(count($word_arr)-$shingleLen+1);$i++)
    {
    $shingle='';
    for ($j=0;$j<$shingleLen;$j++)
        {
        $shingle.=$word_arr[$i+$j];
        }
    $shingles[] = md5($shingle);
    }
return $shingles;
}
 
//возвращает процент схожести текста
function compare_shingles($shingle1, $shingle2){
//лучше если первым будет идти больший массив шинглов
if (count($shingle2)>count($shingle1))
    {
    $shingle_tmp=$shingle1;
    $shingle1=$shingle2;
    $shingle2=$shingle_tmp;
    }
$diff=array_diff($shingle1, $shingle2);
$count_shingle_diff=count($diff);
$count_shingle=count($shingle1);
return ($count_shingle-$count_shingle_diff)/$count_shingle*100;
}
 
//сравнение двух текстов на схожесть
function compare_text($text1, $text2){
    $shingle1=get_shingles(canonize($text1));
    $shingle2=get_shingles(canonize($text2));
    return compare_shingles($shingle1, $shingle2);
}
?>

$str1= 'ООО "БИгМол+Л"';
$str2 = 'Белгородский молочный комбинат ';
echo "<pre>"; print_r(compare_text($str1,$str2)); echo "</pre>";