Пример «ТестСкорости - Уст вместо Перем»

Файлы:

Пример программы на языке программирования Перфо:

//Эта программа написана на языке Перфо

//Программа проверяет использование действия Уст (Установить) 
//для объявления переменных вместо действия Перем

//Действие Перем выполняется немного быстрее, чем Уст,
//поэтому в реальных программах для объявления переменных
//лучше применять Перем, чем Уст.

//Кроме того надо учитывать, что Перем не ищет переменную, 
//а сразу объявляет её в текущем окружении, 
//перезаписывая существующее значение, если оно есть.
//Действие Перем может перекрыть переменную во внешнем окружении,
//а Уст ищет переменную во внешнем окружении и если находит,
//то использует её.

(Уст а Неопределено)
(Уст б Неопределено)
(Уст т (ТекущаяУниверсальнаяДатаВМиллисекундах))
(Сообщить "начало...")
(Уст а 5)
(Уст б Истина)
(Для (Инд 1 10000)
    (Если (б)
        (Уст б (Не б))
        (Уст б (Не б))
    )
    (Если ((> а Инд))
        (Уст а (- а 1))
        (Уст а (+ а 5))
    )
    (Уст а2 5)
    (Уст б2 Истина)
    (Для (Инд2 1 300)
        (Если (б2)
            (Уст б2 (Не б2))
            (Уст б2 (Не б2))
        )
        (Если ((> а2 Инд2))
            (Уст а2 (- а2 1))
            (Уст а2 (+ а2 5))
        )
    )
)
(Сообщить "ок...")
(Сообщить (+ "Время, сек: " (/ ((- (ТекущаяУниверсальнаяДатаВМиллисекундах) т)) 1000)) пс)

(Сообщить "а=" а пс)
(Сообщить "б=" б пс)
(Сообщить "а2=" а2 пс)
(Сообщить "б2=" б2 пс)

К началу статьи