Re[2]: ФП: вводная статья - Декларативное программирование

Здравствуйте, prVovik, Вы писали:

V>Из изменения массива появляется ВОЗМОЖНОСТЬ побочного эффекта. А функциональный стиль требует ГАРАНТИИ их отсутствия. Я понимаю, что в простейших случаях может сработать оптимизатор, но всеже...

Ничего он не требует, особенно в строгих языках. В ленивых просто физически невозможно написать программу со сторонним эффектом (исключая ввод-вывод).

V>Дак это и есть итеративная программа! То есть ты подтверждаешь мои слова!

И что? Итеративность или цикл — основа программирования. Я сомневаюсь, что есть языки общего назначения, которые обходятся без нее.

V>Опять таки, я с тобой абсолютно согласен, действительно, часть программы можно написать в функциональном стиле, но от императивного не избавиться. Об этом я писал еще в том посте, за который вы мне понаставили минусов (я, кстати, так и не погял: с чем именно вы не согласны?

).
V>Вот скажи, если бы тебе пришлось профессионально заняться фотографией, ты бы использовал для телефон со встроенным фотоаппаратом, или отдельный профессиональный фотоаппарат? Есть большое количество классов программ, а именно: программы, ориентированные на конечного пользователя (текстовые редакторы, например), всевозможные АСУ (бухгалтерские программы, документооборот и пр.), компьютерные игры (реальные, а не "академические") в которых будет доминировать именно итеративная составляющая. Дак может быть стоит все-таки использовать для таких задач языки, которые ИЗНАЧАЛЬНО приспособлены для программирования в итеративном стиле, а не "костыли", предоставляемые функциональными языками (это как телефон со встроенным фотоаппаратом

). Читая эту, и некоторые другие ветки, у меня сложилось впечатление, что вы все утверждаете обратное!

Ты все время повторяешь слово итеративный. Причем тут это? В ФЯ есть итеративность, реализуется рекурсией.

Здравствуйте, prVovik, Вы писали:

V>Человек, ты вообще читал эту ветку?

Да, читал. И твой бред мне не понятен. Особенно филосовствования про предприятие.

Здравствуйте, FR, Вы писали:

FR>пока вы меряли (на эротосфене) только скорость работы озу

Логично. А ведь тесты валяются на сайте уже сто лет. Для С++, Шарпа, Явы и т.п. они уже сделны.

Берем рассчет Пи (чисто вычислительный):

        public static string pi(int digits)
        {
            if (digits > 54900)
                throw new System.Exception("n must be <= 54900");

            RStringBuilder pi = new RStringBuilder(digits);
            string[] zero = { "0", "00", "000" };
            int d = 0, e, b, g, r;
            int c = (digits / 4 + 1) * 14;
            int[] a = new int[c];
            int f = 10000;

            for (int i = 0; i < a.Length; i++)
                a[i] = 20000000;

            while ((b = c -= 14) > 0)
            {
                d = e = d % f;

                while (--b > 0)
                {
                    d = d * b + a[b];
                    g = (b << 1) - 1;
                    a[b] = (d % g) * f;
                    d /= g;
                }

                r = e + d / f;

                if (r < 1000)
                    pi.Append(zero[r > 99 ? 0 : r > 9 ? 1 : 2]);
                pi.Append(r.ToString());
            }
            return pi.ToString();
        }

Берем ту же быструю сортировку (работа со списками/массивами):

public  static void QuickSortInt(int[] item, int left, int right)
{
    int i = left;
    int j = right;
    int center = item[(left + right) / 2];

    while (i <= j)
    {
        while (item[i] < center)
            i++;
        while (item[j] > center)
            j--;

        if (i <= j)
        {
            int x = item[i];
            item[i] = item[j];
            item[j] = x;
            i++;
            j--;
        }
    }

    if (left < j)
        QuickSortInt(item, left, j);
    if (right > i)
        QuickSortInt(item, i, right);
}

Берем StrangeAttractr (тоже рассчетный но с плавающей точкой):

private void StrangeAttractr(long iInitVal)
{
    _timer.Start();

    // Опорные точки.
    double x1 = -1, y1 = -1, z1 = 0;
    double x2 = -1, y2 = 1,  z2 = 0;
    double x3 = 1,  y3 = -1, z3 = 0;
    double x4 = 1,  y4 = 1,  z4 = 0;

    // Промежуточные переменные
    double px1 = 0, py1 = 0, pz1 = 0;
    double px2 = 0, py2 = 0, pz2 = 0;
    double px3 = 0, py3 = 0, pz3 = 0;
    double px4 = 0, py4 = 0, pz4 = 0;

    double ansx = 0;
    double ansy = 0;
    double ansz = 0;

    long iOptnum = iInitVal; //количество точек, которыми мы приближаем нашу кривую
    double t = 0;
    double dt = (double)1 / (double)iOptnum; // инкремент параметра t на каждой итерации
    double n0 = 0, n1 = 0, n2 = 0, n3 = 0;   // Коэффиц. сплайна

    for (long i = 0; i < iOptnum; i++)
    {

        n0 = (-t * ((1 - t) * (1 - t))) / 2;
        n1 = (2 - 5 * t * t + 3 * t * t * t) / 2;
        n2 = (t / 2) * (1 + 4 * t - 3 * t * t);
        n3 = -((t * t) / 2) * (1 - t);


        px1 = x1 * n0;
        py1 = y1 * n0;
        pz1 = z1 * n0;

        px2 = x2 * n1;
        py2 = y2 * n1;
        pz2 = z2 * n1;


        px3 = x3 * n2;
        py3 = y3 * n2;
        pz3 = z3 * n2;

        px4 = x4 * n3;
        py4 = y4 * n3;
        pz4 = z4 * n3;

        ansx = px1 + px2 + px3 + px4;
        ansy = py1 + py2 + py3 + py4;
        ansz = pz1 + pz2 + pz3 + pz4;
        t += dt;
    }

    Log(_timer.Finish());

    MessageBox.Show(string.Format(
        "Result is x:{0}, y:{1}, z:{2}", ansx, ansy, ansz));
}

Подставляем те же входные данные что в тесте и мереем...