Раз уж пошла такая кухня, тоже выложу одну задачку

Имеем офигенно польшую строку (например, миллион символов), которая содержит ТОЛЬКО числа и знак резделителя (пусть это будет пробел).

Нужно максимально оптимально рассчитать сумму всех этих чисел!

Ваши предложения :)

Дать задачку на собеседовании. От тебя минимум трудозатрат )))

в 1С?

Сколько денег?

(2) ну разумеется. Мы же все еще на "желтом" форуме

(3) денег не сколько. Самоудовлетворения кучка.

(0) Идешь по строке, суммируешь. Какие варианты?

Сохраняешь в файл с разделителями, открываешь в Excel, ставишь автосумму.

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

(0) Условие изложено с недостатками.

Не раскрыт критерий оптимальности: число строк кода (число операторов), время выполнения задачи, быстрота создания кода или что-то иное.

разобрать в масси
массив в колонку тз
итог по колонке

это самое очевидное, но не факт что самое медленное

Функция РазложитьСтрокуВМассивПодстрок(Знач Строка, Знач Разделитель = ",", Знач ПропускатьПустыеСтроки = Неопределено, СокращатьНепечатаемыеСимволы = Ложь) Экспорт


функция в общем модуле

а если будет жутко тормозить - значит "г .вно эта ваша 1С!"

(10) +1

(8) ДА. Формат:

"123 2 567898 324 43434 2 0 43 323"

И так далее. Только много-много-много больше

(10) Пока разбираешь в массив, можно уже посчитать.

Сумма = Вычислить(СтрЗаменить(Источник, Разделитель, " + "))

(15) + зачет

(9) оптимальность не измеряется в количестве строк кода. Тк любой код можно записать в одну строку.

Оптимальность - максимальное быстродействие с минимальными награзками на сервер.

(15) прикольно)) если только ++ не получить

(15) красавчег!

(15) 1 место

(15) а ведь взлетит

(11) Слабак. Запусти на строке с 10 миллионами символов.

Задаче не сводится к тому, как это сделать в принципе. Нужно сделать максимально быстро.

(17) минимальная нагрузка на сервер = максимальная нагрузка на клиента.
(15) не уверен что взлетит на строке в миллион символов

(23) Коме не лень сгенерить и потестить?

В общем нужно собрать варианты, потом реально собрать и потестить.

(15) тоже хотел написать!)) первое что в голову пришло, пробел на плюс и вычислить)

(23) v8: Максимальная длина строки

(24) щас сделаем

Расскажу как я предлагал:

1) Делим строку на несколько равных частей (последний разумеется будет меньше), допустим на 10.

2) Запускаем 10 фоновых заданий и передаем в каждый свой кусок строки

3) В процедуре фонового задания отщепляем первое число в строке, преобразуем в число и суммируем с общим счетчиком суммы текущего фонового задания. Затем отрезаем от строки это первое числои повторяем процедуру, пока не опустошим всю строку.

4) Получаем общие счетчики сумм из фоновых заданий и складываем в общий счетчик.

(15) респект и уважуха!!!

(29) лошара учись у (15)

+(15) на строке 3 808 281 символов - менее 1сек

(32) Круто

+(32) 39 598 341 символов - 12сек

(34) А сравни с (11)

http://rghost.ru/59401425

хм, а у меня вылетел с нехваткой памяти. правда я в одной обработке и генерировал и считал

Ага. А как вот что-то другое, а не сумма - приплыли.

(38) перемножить?

(38) почему? кто мешает "*" или "/"

(37) у меня генератор больше отжирает, чем сам вычислить()

Ахахах.

Ну конечно. В других языках программист даже не задумается, пробежит код - и всё.

А в 1С это - задача на СМЕКАЛКУ! O_O

Учитывая как 1С форматирует числа по-дефолту - ТвоеЧисло=число(стрЗаменить(ИсходнаяСтрока, " ",""));

(38) кстати ДА!

Если изменить условие задачи на, например, найти МАКСИМАЛЬНОЕ число в строке, то уже простым "Выполнить" не отделаетесь.

(42) И как же он пробежит код?

СуперСтрока.Split(" ").Sum()

(41)http://goo.gl/ThNsju

(44) но это будет уже другая задача

ДлинаСтроки = 0;
    СтрокаРезультат = "";
    Пока ДлинаСтроки < 1000000 Цикл
        ГСЧ = Новый ГенераторСлучайныхЧисел;
        ЧислоГСЧ = Формат(ГСЧ.СлучайноеЧисло(1, 500000), "ЧГ=0");
        ДлинаСтроки = ДлинаСтроки + СтрДлина(ЧислоГСЧ);
        СтрокаРезультат = СтрокаРезультат + ЧислоГСЧ+" ";
    КонецЦикла;
    
    СтрокаРезультат = Лев(СтрокаРезультат, СтрДлина(СтрокаРезультат)-1);
    
    Сообщить(Вычислить(СтрЗаменить(СтрокаРезультат, " ", "+")));

нормально работает

(46) И что? это тоже самое, что в (11) Или ты думаешь там какие-то нано технологии применяются.

(44) Ну типа там тоже можно вычислить применить для функции Макс(), но я думаю она подавится миллионом параметров)))

(46) отработает медленнее чем (15), потому что split() таки генерирует массив, лишняя сущность

(44) почему?

"Макс("+СтрЗаменить(Стр," ",",")+")"

Дремучий лес...

(54) Я уже думал об этом...попробуй получится?!

(52) не подавилась :)

(55) ну ты попробуй и дай нам результаты замера производительности. из 1С результат дали

(57) Прикольно.

Интересно, как платформа реализовывает "Выполнить"

+(57) и 10млн параметров не подавилась

(57) ого!

(60) 0_О. Круто!

Ну давайте так, из этой же строки - сумма чисел из каждого второго десятка.

На СМИКАЛКУ!

(29)
криво
просуммируем 123456 7
1) делим
1234
56 7
2) суммируем
1234
56+7=63
итого ошибка 1297 вместо 123463

(63) как-то так

Индекс = 1;
    ДлинаСтроки = СтрДлина(СтрокаРезультат);
    Сумма = 0;
    Пока ДлинаСтроки > 0 Цикл
        
        Разделитель = Найти(СтрокаРезультат, " ");
        
        ЗначениеРасчет = Лев(СтрокаРезультат, Разделитель);
        
        СтрокаРезультат = Прав(СтрокаРезультат, ДлинаСтроки - Разделитель);
        
        Если Индекс <= 10 Тогда
            Сумма = Сумма + Число(СтрокаРезультат);
        ИначеЕсли Индекс > 20 Тогда
            Индекс = 1;
        КонецЕсли;
        
        ДлинаСтроки = СтрДлина(СтрокаРезультат);
        
    КонецЦикла;

+(65) оу.

Сумма = Сумма + Число(ЗначениеРасчет );

(63) вот так проверим, работает


Индекс = 1;
    ДлинаСтроки = СтрДлина(СтрокаРезультат);
    Сумма = 0;
    Пока ДлинаСтроки > 0 Цикл
        
        Разделитель = Найти(СтрокаРезультат, " ");
        
        ЗначениеРасчет = Лев(СтрокаРезультат, Разделитель);
        
        СтрокаРезультат = Прав(СтрокаРезультат, ДлинаСтроки - Разделитель);
        
        Если Индекс <= 10 Тогда
            Сумма = Сумма + Число(ЗначениеРасчет);
            Индекс = Индекс + 1;
        ИначеЕсли Индекс > 10 И Индекс <= 20 Тогда
            Индекс = Индекс + 1;
        ИначеЕсли Индекс > 20 Тогда
            Индекс = 1;
        КонецЕсли;
        
        ДлинаСтроки = СтрДлина(СтрокаРезультат);
        
    КонецЦикла;

(0) у тебя фикси по верхней планке прога. полторы - нормальный ценник, франи берут чуть больше, но они дают гарантии

млять, не туда :)

(67)
Ну и сравни.
int[] sd = {12, 15, 19, 24, 25, 56, 45, 53, 90};

            var result = sd.GroupBy(p => p / 10).OrderBy(p => p.Key).Select((p, y) => new { gr = p, ord = y }).Where(p => p.ord % 2 == 0).SelectMany(p => p.gr).Sum();

(70) Сравнить что? Какие критерии?

(70) Ну читаемость ниже плинтуса. В 1С тоже можно через миллион точек с запросами работать, но обычно это оччень плохо заканчивается.

(29) если уж так заморачиваться, то быстрее будет ВК:
скомпилированный код С++ на вычислительных операциях быстрее 1С более чем на порядок и сервак грузить не придется

(72)
так может быть ты просто... Читать не умеешь? Это банальное linq-выражение в одну строчку. Но ты как бы и не должен его понимать.

(74) это даёт какой-то профит по скорости/нагрузке?
Или "нифигасе я крутой могу всё это написать, а вы даже не поймете что это"?
Тебе уже в (55) просили результат производительности, ты попытался красиво съехать на другую задачу.

(75)
ты всерьез шарп с 1с сравнивать собрался?

Это дает "профит" по скорости написания кода, его выразительности и безопасности.

А если с обратного конца идти и прибавлять
х, 10х, 100х, ... y, 10y и тд,
вопрос в скорости операции Сред(Стр, Х, 1)

(76) я? зачем? это ты тут сравниваешь
Мне что шарп, что 1С. Каждый продукт имеет своё назначение)

(79)
Я? Я лишь отвечал на (45). А вы уже потом набежали с "каждый продукт бла-бла-бла"

(80) Так то ты не понял вопроса и смысла смекалки.  Предложил "пробежать" код(т.е. смекалки не проявил), причем обгадил программистов 1С, типа они не могут "пробежать", а вынуждены применять смекалку.

(81)
Конкретно тебя - я обгадил?

(80) который был задан на пост (42).
То есть сам начал, сам ответил, а мы набежали?)

(82) Да, конкретно меня. Своим тоном и неприкрытыми намеками на ущербность всех здесь собравшихся:
>>Ахахах.
>>
>>Ну конечно.
Обсмеял, высказал свое пренебрежение
>>В других языках .. и всё
>>1С это - задача на СМЕКАЛКУ! O_O
Сравнил несравнимое, раззявленым ртом высказал, что сравнение не в пользу 1С.

(84)
ну.. Значит день прошел не зря!