ускороить сотрировку

Есть функция сотрировки, и так как записай более 500 она работает очень медленноКак можно ускорить этот процесс или что я делаю не так?