Тесты производительности Решето Эратосфена

eratosfenes.os

Н = 50000000;
Массив = Новый Массив();
	
Массив.Добавить(Ложь);
Массив.Добавить(Ложь);

Для индекс = 2 По Н Цикл
    Массив.Добавить(Истина);
КонецЦикла;

времяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
Для индекс = 2 По Н Цикл
    Если Массив[индекс] Тогда
        квадрат = индекс * индекс;
        Если квадрат <= Н Тогда
            м = квадрат;
            Пока м <= Н Цикл
                Массив[м] = Ложь;
                м = м + индекс;
            КонецЦикла;
        КонецЕсли;
    КонецЕсли;
КонецЦикла;

времяОкончания = ТекущаяУниверсальнаяДатаВМиллисекундах();
Сообщить("" + (времяОкончания - времяНачала)/1000);

eratosfenes.sbsl

метод Скрипт()

    знч Н = 5000000
    пер Массив = новый Массив()

    Массив.Добавить(Ложь)
    Массив.Добавить(Ложь)

    для индекс = 2 по Н
        Массив.Добавить(Истина)
    ;

    знч времяНачала = ДатаВремя.Сейчас()
    для индекс = 2 по Н
        если Массив[индекс]
            пер квадрат = индекс*индекс
            если квадрат <= Н
                пер м = квадрат
                пока м <= Н
                    Массив[м] = Ложь
                    м += индекс
                ;
            ;
        ;
    ;
    
    знч времяОкончания = ДатаВремя.Сейчас()
    знч мсЦикла = (времяОкончания - времяНачала).ВМиллисекундах()

    Консоль.Записать("" + (мсЦикла/1000))
;

Заметной разницы в скорости работы интерпретаторов 1С и Оскрипт с запрещенной отладкой или в однострочном режиме нет!

Но пишем код мы обычно не в одну строчку.