Как с помощью программирования в 1С найти все решения числового ребуса X+Y=Z с уникальными цифрами?

← На главную

В этой статье мы подробно разберем, как решить классическую логическую задачу, используя инструменты 1С:Предприятие. Суть задачи заключается в том, чтобы найти все возможные равенства вида X + Y = Z, в которых участвуют все цифры от 0 до 9 по одному разу, причем ни одно из чисел не может начинаться на ноль.

Этап 1: Аналитика и математическая подготовка

Прежде чем приступать к написанию кода, важно понять ограничения. Так как мы используем все 10 цифр (0-9) без повторений, общая длина строки выражения (включая знаки «+» и «=») должна составлять 12 символов, либо, если учитывать только цифры, их ровно 10. Участники форума вывели важную закономерность: сумма таких чисел всегда кратна 9, так как сумма всех десяти цифр (0+1+2+3+4+5+6+7+8+9) равна 45, что делится на 9.

Этап 2: Простой перебор (Brute Force)

Самый очевидный, хоть и ресурсоемкий способ — это перебор всех возможных значений. Давайте рассмотрим структуру кода, который проверяет каждое число на уникальность цифр. Для этого нам потребуется вспомогательная функция, которая определяет, есть ли в строковом представлении числа повторяющиеся символы.

Рассмотрим вариант реализации функции проверки повторов:


Функция ЕстьПовторыЦифр(стр)
    Результат = Ложь;
    Для н = 1 По СтрДлина(стр)-1 Цикл
        Если СтрНайти(стр, Сред(стр,н,1), , 1, 2) > 0 Тогда
            Результат = Истина;
            Прервать;
        КонецЕсли;
    КонецЦикла;
    Возврат Результат;
КонецФункции

Используя эту функцию, мы можем организовать цикл перебора, который будет проверять каждое слагаемое X и Y, а затем вычислять Z. Если общая длина строки и уникальность всех цифр соблюдены, мы сохраняем решение.

Этап 3: Оптимизированный подход

Поскольку полный перебор может занимать много времени (десятки минут на слабом железе), профессиональный подход предполагает сокращение пространства поиска. Мы можем задать границы циклов, исходя из математических ограничений задачи.

Рассмотрим пример алгоритма, который использует предварительные интервалы для Z (суммы), основываясь на признаке делимости на 9:


Функция Перебор()
    словарь = СтрРазделить("0,1,2,3,4,5,6,7,8,9",",");
    счетчик = 0;
    // Диапазон для Z определен математически для случая 3-х значных слагаемых
    Для Z = 1026 По 1620 Цикл
        Если СтрНайти(Строка(Z), "0") Тогда
            Для X = 234 По 987 Цикл
                Y = Z - X;
                Если Y < X Тогда Прервать; КонецЕсли;
                // Проверяем, что все цифры в выражении уникальны
                Если ПроверкаПеребора(X, Y, Z, словарь) Тогда
                    счетчик = счетчик + 1;
                    Сообщить("" + X + "+" + Y + "=" + Z);
                КонецЕсли;
            КонецЦикла;
        КонецЕсли;
        Z = Z + 8; // Z должно делиться на 9
    КонецЦикла;
    Возврат счетчик;
КонецФункции

Этап 4: Почему это работает эффективно

Математическое отсечение: Мы не перебираем все возможные комбинации, а используем признаки делимости (сумма цифр кратна 9), что позволяет пропускать заведомо неверные варианты.
Проверка уникальности: Вместо поиска в подстроках мы можем использовать массивы или Соответствие для быстрого контроля наличия цифр.
Анализ разрядности: Мы ограничиваем переменные X и Y так, чтобы их сумма Z всегда попадала в нужный диапазон разрядности, исключая ведущие нули.

При использовании таких методов время выполнения алгоритма на платформе 1С сокращается до нескольких секунд. Главное, что стоит помнить при решении подобных задач: алгоритмическая оптимизация всегда важнее «грубой силы».

Таким образом, мы выяснили, что задача успешно решается полным перебором, но при использовании логики делимости на 9 и грамотном ограничении диапазонов циклов, решение становится не только элегантным, но и высокопроизводительным.