Элементы функционального программирования в Axapta

[glibs]

Последняя версия вот. Остальные я уже стер. Цифры по List я приводил, пока там еще был тип Integer.

#define.LoopCount(50000)
#LocalMacro.Start
timeBefore = WinApi::getTickCount();
#EndMacro
#LocalMacro.Reset
timeAfter = WinApi::getTickCount();
info(num2str((timeAfter - timeBefore) /1000, 0, 4, 2, 0));
con = conNull();
len = 1;
#EndMacro

static void glibs()
{
List list = new List(Types::Container);
ListIterator listIterator;
container con;
int i;
int len = 1;
int timeBefore;
int timeAfter;
;



#Start
for (i = 1; i < #LoopCount; i++)
list.addEnd([i]);
#Reset

/*
#Start
for (i = 1; i < #LoopCount; i++)
con += i;
#Reset

#Start
for (i = 1; i < #LoopCount; i++)
con = con + i;
#Reset

#Start
for (i = 1; i < #LoopCount; i++)
con = conIns(con, conLen(con) + 1, i);
#Reset

#Start
for (i = 1; i < #LoopCount; i++)
{
con = conIns(con, len, i);
len++;
}
#Reset

#Start
for (i = 1; i < #LoopCount; i++)
con = conPoke(con, conLen(con) + 1, i);
#Reset

#Start
for (i = 1; i < #LoopCount; i++)
{
con = conPoke(con, len, i);
len++;
}
#Reset
*/


}