Пример «ТестСкорости - поиск типа»

Файлы:

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

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

//Программа проверяет скорость поиска типа объектом Рефлектор

//для её работы необходимо наличие стандартной библиотеки Перфоленты

(вывод "Каталог Перфо:   " ЭтаПрограмма.Каталог пс)
(вывод "Текущий каталог: " ФС.ТекущийКаталог пс)

// простой тип

(вывод "тип: " (Рефлектор.НайтиТип "Целое") пс)

(перем т (ТекущаяУниверсальнаяДатаВМиллисекундах))

(Для (Инд 0 10000)
    (перем ф (Рефлектор.НайтиТип "Целое"))
) 

(вывод "Время, мс = " (- (ТекущаяУниверсальнаяДатаВМиллисекундах) т) пс)


// Сложный тип

(Вывод "тип: " (Рефлектор.НайтиТип "Соответствие<Целое,System.Collections.BitArray>[]") пс)

(перем т (ТекущаяУниверсальнаяДатаВМиллисекундах))

(Для (Инд 0 10000)
    (перем ф (Рефлектор.НайтиТип("Соответствие<Целое,System.Collections.BitArray>[]")))
) 

(вывод "Время, мс = " (- (ТекущаяУниверсальнаяДатаВМиллисекундах) т) пс)

//проверим передачу по ссылке
(Перем Чис 0ч)
(Вывод "Исходное значение переменной: " Чис пс)
//переменная Чис передается по ссылке
(Вывод "Число распозналось: " (ГлобальныйМодуль.РаспознатьЧисло "34,5" Чис) пс)
(Вывод "Вернулось значение по ссылке: " Чис пс)

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