Всем привет!
Напишите самый короткий и оптимальный способ инвертировать строку в 1С.

=> .С1 в укортс ьтаворитревни босопс йыньламитпо и йикторок йымас етишипаН

вроде только понедельник

(1) Люблю понедельники!

Для Й = 1 По СтрДлина(Стр) Цикл
    Результат = Результат + Сред(Стр, СтрДлина(Стр) - Й, 1);
КонецЦикла;

Короче у меня вроде не получается

(3)
Для Й = 1 По СтрДлина(Стр) Цикл
    Рез = Рез + Сред(Стр, СтрДлина(Стр) - Й, 1);
КонецЦикла;

(3)

Результат= "";
Для Й = 0 По СтрДлина(Пут)-1 Цикл
    Результат = Результат + Сред(Пут, СтрДлина(Пут) - Й, 1);
КонецЦикла;

Баян.
v8: Инверсия строки

(7) Есть способ лучше и быстрее)

(7) Его нет в баяне:)

(4) Есть способ в 3 раза быстрее работающий. И короче:)

Вот так нужно?
ɔ1 ʚ ʎʞоdɯɔ qɯɐʚоdиɯdǝʚни ƍоɔоuɔ n̯ıqнqvɐwиɯuо и n̯иʞɯоdоʞ n̯ıqwɐɔ ǝɯиmиuɐн

(10) взять зеркало?)

Буфер=ПолучитьБуферДвоичныхДанныхИзСтроки(Данные);
Буфер.Перевернуть();
ДанныеНовые=ПолучитьСтрокуИзБуфераДвоичныхДанных(Буфер);

ХХ:
Результат = Результат + Прав(Стр, 1);
Если СтрДлина(Стр)>1 Тогда
Стр =Лев(Стр,СтрДлина(Стр)-1)
Перейти ХХ;
КонецЕСли;

(10) Цикл из  (3)  одной строкой?)

(13) Это заявка на победу. Оформи в одну строку

(10) Поправка - в 900 раз быстрее. Мой способ инве6ртировал модуль общего назначения за 10 наносек, способ из "баяна" - за 9103

Без цикла:)

Таки мы в клюшках или в снеговике соревнуемся?

(13) ДА! Вот победитель. Только нужно вот так доделать:

    Буф = ПолучитьБуферДвоичныхДанныхИзСтроки(Пут, КодировкаТекста.ANSI).Перевернуть();
    
    
    ИмяДляХешированияИнвертированное = ПолучитьСтрокуИзБуфераДвоичныхДанных(Буф, КодировкаТекста.ANSI);

Кодировку в АНСИ, так как она 1-байтовая.

ДанныеНовые=ПолучитьСтрокуИзБуфераДвоичныхДанных(ПолучитьБуферДвоичныхДанныхИзСтроки(Данные).Перевернуть());

(16) Результат = ПолучитьСтрокуИзБуфераДвоичныхДанных(ПолучитьБуферДвоичныхДанныхИзСтроки(Данные).Перевернуть());

так что ли?

(20) А вы забавный.
Все это давно использовалось в моих внешках, пока, хвала 1С-у, она не реализовала это нативно.

Хороший способ делать демо-версии всяких отчётов.
С одной стороны, вроде бы текст есть и соответствует ожиданию, с другой стороны реально использовать невозможно.

(22) Написал выше (нужно в однобатовой кодировке). Все молодцы:) Спасибо за участие:)

(24) Почему нельзя?

(26) Эээ.. использовать отчёт, в котором текст написан задом-наперёд?

(27) Мне для обфускации нужно:)

Не, мой вариант короче

Х:Р=Р+Прав(С,1);Если СтрДлина(С)>1 Тогда С=Лев(С,СтрДлина(Стр)-1);Перейти Х;КонецЕсли;              
Р=ПолучитьСтрокуИзБуфераДвоичныхДанных(ПолучитьБуферДвоичныхДанныхИзСтроки(С).Перевернуть());

Х:Р=Р+Прав(С,1);Д=СтрДлина(С);Если Д>1 Тогда С=Лев(С,Д-1);Перейти Х;КонецЕсли;              
Р=ПолучитьСтрокуИзБуфераДвоичныхДанных(ПолучитьБуферДвоичныхДанныхИзСтроки(С).Перевернуть());

Слабо написать рекурсией без явного цикла?

(31)+ Чтоб даже в 1С77 работало

(29) для обфускации самое то

(31) Вроде длинне получается
Х:Р=Р+Прав(С,1);Д=СтрДлина(С);Если Д>1 Тогда С=Лев(С,Д-1);Перейти Х;КонецЕсли;              
Р=ПолучитьСтрокуИзБуфераДвоичныхДанных(ПолучитьБуферДвоичныхДанныхИзСтроки(С).Перевернуть());
Функция Ф(с) Если СтрДлина(С)>0 Тогда возврат прав(с,1)+Ф(с) иначе Возврат "" КонецЕсли; КонецФункции

(34) За сколько ОбщийМодуль.ОбщегоНазначения обработает?

(35) За 23 доллора СШа - легко.

(31) Прошу пардон. Через рекурсию короче

Функция Ф(с)Д=СтрДлина(С);возврат?(Д>0,прав(с,1)+Ф(Лев(с,Д-1)),"");КонецФункции
~Х:Р=Р+Прав(С,1);Если СтрДлина(С)>1 Тогда С=Лев(С,СтрДлина(С)-1);Перейти ~Х;КонецЕсли;

Функция Ф(с)Д=СтрДлина(С);возврат?(Д>0,прав(с,1)+Ф(Лев(с,Д-1)),"");КонецФункции
~Х:Р=Р+Прав(С,1);Д=СтрДлина(С);Если Д>1 Тогда С=Лев(С,Д-1);Перейти ~Х;КонецЕсли;

На 1 Символ.
Если добавить Р=Ф(С), тогда длиннее получается.

(38)
Функция Ф(с)Д=СтрДлина(С);возврат?(Д>0,прав(с,1)+Ф(Лев(с,Д-1)),"");КонецФункции
~Х:Р=Р+Прав(С,1);Д=StrLen(С);if Д>1 then С=Лев(С,Д-1);goto ~Х;endif;

Ещё короче :)
Функция Ф(С,х);Возврат Сред(С,х,1)+?(х=1,"",ф(С,х-1));КонецФункции

(40) Not hired.Next please

tnemmoc oN

(40)
Функция Ф(С,х);Возврат Сред(С,х,1)+?(х=1,"",ф(С,х-1));КонецФункции
Функция Ф(С,х);return mid(С,х,1)+?(х=1,"",ф(С,х-1));endfunction

//конкуренция хорошая штука

за "Перейти"  бить линейкой по всем торчалкам

(44) так это же обфускация

(44) не в данном случае

(45) и нахрен она тут нужна?

(40) Только вот надо где-то код "х=СтрДлина(С);"

Функция Ф(С,х);Возврат Сред(С,х,1)+?(х=1,"",ф(С,х-1));КонецФункции Р=Ф(С,СтрДлина(С));

Функция Ф(с)Д=СтрДлина(С);возврат?(Д>0,прав(с,1)+Ф(Лев(с,Д-1)),"");КонецФункции Р=Ф(С);

(48) Угу, ты прав, где-то надо. Наверное в вызове этой функции из основной программы ;)