Показать сообщение отдельно
Старый 11.02.2017, 23:59   #72  
Андре is offline
Андре
Moderator
Сотрудники компании GMCS
 
2,374 / 454 (20) +++++++
Регистрация: 03.12.2001
Цитата:
Как и предвидел Маззи, вычисление первых 10 тысяч элементов ряда фибоначчи должно занимать в Аксапте меньше одной минуты. У меня получился результат 18 секунд без вывода в окно инфолога, и 57 секунд - с выводом результата в инфолог (еще секунд 15 сам инфолог перерисовывается - я это в расчет не беру).
Я понимаю, что c Ax сравнивать не очень честно, но:

X++:
> let fibonacci = Seq.unfold (fun (x, y) -> Some(x, (y, x + y))) (0I,1I);;
val fibonacci : seq<System.Numerics.BigInteger>

> #time;;
--> Timing now on

> fibonacci |> Seq.take 10000 |> Seq.iteri (printf "%3i - %A");;

// тут я не стал копировать набор чисел
Real: 00:00:03.454, CPU: 00:00:02.265, GC gen0: 27, gen1: 27, gen2: 0
За это сообщение автора поблагодарили: mazzy (2), Ace of Database (5).