2015-12-28 14:25:15 +03:00
|
|
|
// Сравнение производительности обычного алгоритма накопления суммы
|
|
|
|
|
// и метода, использующего лямбда-выражение
|
2015-05-14 22:35:07 +03:00
|
|
|
begin
|
|
|
|
|
var n := 100000000;
|
|
|
|
|
var q := Range(1,n).Select(x->1/x).Sum();
|
|
|
|
|
Println(q,MillisecondsDelta);
|
|
|
|
|
|
|
|
|
|
var s := 0.0;
|
|
|
|
|
for var i:=1 to n do
|
|
|
|
|
s += 1.0/i;
|
|
|
|
|
|
|
|
|
|
Println(s,MillisecondsDelta);
|
|
|
|
|
end.
|
