замерял только переворачивание

mashi 08.12.2005 15:37

Подготовил табличку на N строк с одной колонкой со случайными числами ^math:random(1000000).

Изменяю N: [10..100, шаг:10] и [200..1000000, шаг: 200]

Таким образом тестировал на 15 таблицах.

Для каждой таблицы замерял сколько тратится времени и памяти на ее "переворачивание" одним и другим способом. Сравнивал полученные результаты.

Во время замеров переворачивания методом "....$.revers(1)" для повышения точности приходилось делать большое количество переворачиваний и замерять общее время.

P.S.
Вспомнил студенческие годы и по результатам измерений построил графики. Красиво!


Кстати, после этого тестирования пришла идея написать метод.
Вот он (есче не пробовал):

@compare_processes[process_1;process_2][tm_1;tm_2]
^raun_time{$process_1}[tm_1]
^raun_time{$process_2}[tm_2]

^throw[debug;Результаты сравнения;t1 = $tm_1.utime, t2 = $tm_2.utime, dt = ^math:abs($tm_1.utime - $tm_2.utime)
m1 = $tm_1.memory_kb, m2 = $tm_2.memory_kb, dm = ^math:abs($tm_1.memory_kb - $tm_2.memory_kb)]

Что скажете? Нужен он в lib.p ?

---