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

[Lucky13]

Quote:

Originally Posted by mazzy

Чистый Пролог никогда не умел работать с БД. Особенно с реляционными. В реляционных БД очень тяжело реализуется концепция отката, которая используется для перебора вариантов.

Пролог - сугубо спискоориентированный язык.

Чистый не умел, но это и не важно. Важно то, что функциональное программирование отличает не то, как хранятся данные, а то, как происходят вычисления.

[Андре]

http://www.gprolog.org/

Quote:

# MySQL/Prolog - an interface to MySQL database
# ODBC/Prolog - a small ODBC interface module for gprolog

Хотя тут можно поспорить о "чистоте" реализации

[belugin]

я бы попробовал еще этот способ

[Андре]

Quote:

я бы попробовал еще этот способ

ты это серьезно ?

[belugin]

Ага. Мне кажется, эти мепы и редюсы внутри x++ не стоит того.

А вот написать что-нибудь интеллектуальное на Haskell (всякие там трасформации исходников, например), а потом поиспользовать...

[Андре]

Quote:

А вот написать что-нибудь интеллектуальное на Haskell (всякие там трасформации исходников, например), а потом поиспользовать...

Проблема деплоймента dll-ок.

[Ilia#]

Quote:

Originally Posted by mazzy

Чистый Пролог никогда не умел работать с БД. Особенно с реляционными. В реляционных БД очень тяжело реализуется концепция отката, которая используется для перебора вариантов.

Пролог - сугубо спискоориентированный язык.

Пролог (Турбо, Visual) включает в себя собственную СУБД (External Database System).
А работа с цепочками записей (db_chains) в чем-то сходна с работой в СУБД ADABAS.

[belugin]

Quote:

Originally Posted by Андре

Проблема деплоймента dll-ок.

Ну, я планирую для инструментальных вещей поиспользовать (хочется встоить простенький sql profiler)

[Андре]

Quote:

Ну, я планирую для инструментальных вещей поиспользовать (хочется встоить простенький sql profiler)

Круто...... Если получится, расскажешь?

p.s. И мне еще говорят "что у меня много свободного времени"......

[belugin]

Quote:

Originally Posted by Андре

Круто...... Если получится, расскажешь?

Знакомый делает для BAAN. Я немного перетачиваю под MS SQL - но там еще долгий путь.

[mazzy]

Quote:

Originally Posted by Ilia#

Пролог (Турбо, Visual) включает в себя собственную СУБД (External Database System).

только не надо приводить turbo prolog в качестве примера.
в нем и типы были.

это не наш пролог. В нем рыбу заворачивали

[belugin]

кстати, py3к dct бутед работать с итераторами а не списками, может и тут так сделать?

типа

select EmplTable;
xml = '<records>' + join(map(new CursorEnumerator(EmplTable), 'x.xml()')) + '</records>';

[kashperuk]

На досуге (сижу в субботу на работе) решил добить до конца тестирование скорости выполнения различных операций вставки значений в контейнер.

Вот Job, с помощью которого замерялась скорость выполнения.

#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 tutorial_SpeedTestContainerOperations(Args _args)
{
    container   con;
    int         i;
    int         len = 1;
    int         timeBefore;
    int         timeAfter;
    ;
    #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
}

P.S. Допустил ошибочку
Сейчас код уже подправил. Спасибо glibs за наводку и продолжение тестирования.
Итак, как видно из обновленных результатов - предложенный мной выше вариант намного лучше всех остальных.
Исходя также из результатов, полученных glibs, использования Foundation Classes дает очень неплохие результаты.

Вот результаты, которые я получил на своей системе:

[glibs]

В 4.0 выбрасывает трассировку стека в начале третьего цикла при попытке вставить в контейнер элемент на нулевую позицию.

3.0 на эту ошибку не реагирует.

Что-то полезное таки делают. Приятно. Жаль, что мало.

[glibs]

Слегка подправил код.

Info Сообщение (11:48:54) 0,3440
Info Сообщение (11:48:54) 9,8120
Info Сообщение (11:48:54) 10,0160
Info Сообщение (11:48:54) 9,9220
Info Сообщение (11:48:54) 10,1560
Info Сообщение (11:48:54) 10,0150

Это 4.0

Info Сообщение (11:50:12) 0,1880
Info Сообщение (11:50:12) 14,1090
Info Сообщение (11:50:12) 14,1100
Info Сообщение (11:50:12) 14,1720
Info Сообщение (11:50:12) 14,3590
Info Сообщение (11:50:12) 14,2500

А это 3.0

Ух ты... в 4.0 перед копированием русского текста мне не пришлось переключаться на русский. Интересно, это у всех так (а то у меня 2003-й английский Windows просто)?

[glibs]

Попробовал List.

Вставка в 3.0 в конец 0,1880

В 4.0

Info Сообщение (12:08:24) 0,3280

А что за задача? Ставить нужно в конец или куда ни попади (надеюсь, вы не с ветряными мельницами боролись)?

[kashperuk]

Quote:

Originally Posted by glibs

Слегка подправил код.

Info Сообщение (11:48:54) 0,3440
Info Сообщение (11:48:54) 9,8120
Info Сообщение (11:48:54) 10,0160
Info Сообщение (11:48:54) 9,9220
Info Сообщение (11:48:54) 10,1560
Info Сообщение (11:48:54) 10,0150

Это 4.0

Info Сообщение (11:50:12) 0,1880
Info Сообщение (11:50:12) 14,1090
Info Сообщение (11:50:12) 14,1100
Info Сообщение (11:50:12) 14,1720
Info Сообщение (11:50:12) 14,3590
Info Сообщение (11:50:12) 14,2500

А это 3.0

Ух ты... в 4.0 перед копированием русского текста мне не пришлось переключаться на русский. Интересно, это у всех так (а то у меня 2003-й английский Windows просто)?

А можно посмотреть код? А то что-то уж больно результаты разные.
Копируется верно, потому что используется UniCode насколько я понимаю.
А задачи конкретной нет, это так, для общего развития себя и других

[kashperuk]

Quote:

Originally Posted by glibs

А что за задача? Ставить нужно в конец или куда ни попади (надеюсь, вы не с ветряными мельницами боролись)?

А задача описана выше, у Андре.
Метод add, который я ему посоветовал подоптимизировать, не проверив прежде, действительно ли это оптимизация.

[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
*/


}