Перебор всех строковых комбинаций "0" и "1" в порядке возрастания числа единиц

FastCode 29 4

Очень полезная функция для организации перебора комбинаций. Без циклов!

Автор: ildarovich

Функция СледующийКод(Код)
    Возврат Прав(СтрЗаменить(Код, "1", "0") + Лев("1" + Код, Найти(Код, "0")) 
    + ?(Найти(Код, "01"), "0", "") + Сред(Код, Найти(Код + "01", "01") + 2), СтрДлина(Код))
КонецФункции
FastCode Professional - быстрый поиск кода 1С

Похожие публикации

Сортировка слиянием

Модератору