Ребус ДВА * ДВА = ЧЕТЫРЕ (1 решение)

[xande.R]

Добрый день (или вечер) столкнулся со следующей задачей и не пойму логику решения такой задачи:

ДВА * ДВА = ЧЕТЫРЕ (1 решение)

Собственно есть теоретический материал:
Математический ребус – логическая задача, где в арифметическом примере цифры заменены буквами (одинаковым цифрам соответствуют одинаковые буквы, разным – разные). Например, 123+456=579 можно закодировать как сом + лук = уха.
Решить математический ребус означает найти числа, которые были закодированы. Один из способов решения – перебор возможных значений для букв. Но полный перебор занимает много времени за счёт большого числа вложенных циклов, поэтому следует отсекать заведомо неподходящие значения. Например, очевидно, что с≠9, с≠,0, у≠,0, л≠9, л≠0. Таким образом, числа, закодированные словами «сом» и «лук» меняются от 100 до 800, а число, закодированное словом «уха» - от 200 до 999.

Возможно задача простая, но самостоятельно понять тему я так и не смог. Буду очень признателен, если подскажете как написать код.

Есть также пример на C++:

set<int> M;
    set<int> N;
    for(int i=10000; i < 44000; i++)
    {
        if(i % 5 != 0)
        {
            M = Set_From_Number(i);
            if (M.size() == 5) {
                for (int j = 200; j < 1000; j++) {
                    int t1 = j / 100;
                    int t2 = (j / 10) % 10;
                    if (t1%2 == 0 && i % 10 == t2) {
                        N = Set_From_Number(j);
                        if (N.size() == 3 && i * 2 == j * 100 + 10 * t2 + t1)
                            cout << i << " + " << i << " = " << i * 2 << endl;
                    }
                }
            }
        }
    }

Заранее благодарю за любую помощь.

[сфинкс]

в слове "четыре" буквы отличаются от букв слова "два"
и буквы различаются между собой
кроме буквы "е"

[kvitaliy]

Сообщение от xande.R

ДВА * ДВА = ЧЕТЫРЕ (1 решение)

И правда всего одно решение
459 * 459 = 210681

[xande.R]

Сообщение от kvitaliy

И правда всего одно решение
459 * 459 = 210681

Угу, тоже смог прорешать, но до логистики код так и не смог довести. Пока что не придумал как решить подобный случай.

[сфинкс]

for d = 1 to 9
for v = 0 to 9
for a = 0 to 9

for c = 1 to 9
for e = 0 to 9
for t = 0 to 9
for y = 0 to 9
for r = 0 to 9

' if if if if if 

88 next r
77 next y
66 next t
55 next e
44 next c
 
33 next a
22 next v
11 next d

Программа qb64 без условий работает от 5 до 15 минут

[сфинкс]

лень было заполнять все 28 комбинаций
зато отныне есть шаблон решения подобных задач
работающий за 5 секунд

' dacetyr.bas

start = TIMER

FOR d = 1 TO 9
FOR v = 0 TO 9
FOR a = 0 TO 9

FOR c = 1 TO 9
FOR e = 0 TO 9
FOR t = 0 TO 9
FOR y = 0 TO 9
FOR r = 0 TO 9

if d = v THEN 22
if d = a THEN 33
if v = a THEN 33

if c = e THEN 55
if c = t THEN 66
if c = y THEN 77
if c = r THEN 88

if e = t THEN 66
if e = y THEN 77
if e = r THEN 88

if t = y THEN 77
if t = r THEN 88
if y = r THEN 88

dva = 100 * d + 10 * v + a
cetyre = c * 10 ^ 5 + e * 10 ^ 4 + t * 1000 + y * 100 + r * 10 + e

if dva * dva = cetyre THEN PRINT dva, cetyre

88 NEXT r
77 NEXT y
66 NEXT t
55 NEXT e
44 NEXT c

33 NEXT a
22 NEXT v
11 NEXT d

finish = TIMER

PRINT finish - start

end

? почему 28 комбинаций ?
парадоксально уже отвечал накануне:

https://www.programmersforum.ru/show...63#post1819163

https://www.programmersforum.ru/show...41#post1806541

ищем похожие задачи типа УДАР+УДАР=ДРАКА и решаем за час

[сфинкс]

УДАР+УДАР=ДРАКА

изменено за 5 минут и решено за 5 наносекунд

' daudar.bas

start = TIMER

FOR u = 1 TO 9
    FOR d = 1 TO 9
        FOR a = 0 TO 9
            FOR r = 0 TO 9
                FOR k = 0 TO 9

                    IF u = d THEN 22
                    IF u = a THEN 33
                    IF u = r THEN 44
                    IF u = k THEN 55

                    IF d = a THEN 33
                    IF d = r THEN 44
                    IF d = k THEN 55

                    IF a = r THEN 44
                    IF a = k THEN 55
                    IF r = k THEN 55

                    udar = 1000 * u + 100 * d + 10 * a + r
                    draka = d * 10000 + r * 1000 + a * 100 + k * 10 + a

                    IF udar + udar = draka THEN PRINT udar, draka

                55 NEXT k
            44 NEXT r
        33 NEXT a
    22 NEXT d
11 NEXT u

finish = TIMER

PRINT finish - start

END

На другие языки и в онлайн компиляторы
переведу когда-нибудь как пишу в моей теме

Учим C# зная Basic & Excel & qb64
https://programmersforum.ru/showthre...=327446&page=5

[xande.R]

Сообщение от сфинкс

УДАР+УДАР=ДРАКА

изменено за 5 минут и решено за 5 наносекунд

' daudar.bas

start = TIMER

FOR u = 1 TO 9
    FOR d = 1 TO 9
        FOR a = 0 TO 9
            FOR r = 0 TO 9
                FOR k = 0 TO 9

                    IF u = d THEN 22
                    IF u = a THEN 33
                    IF u = r THEN 44
                    IF u = k THEN 55

                    IF d = a THEN 33
                    IF d = r THEN 44
                    IF d = k THEN 55

                    IF a = r THEN 44
                    IF a = k THEN 55
                    IF r = k THEN 55

                    udar = 1000 * u + 100 * d + 10 * a + r
                    draka = d * 10000 + r * 1000 + a * 100 + k * 10 + a

                    IF udar + udar = draka THEN PRINT udar, draka

                55 NEXT k
            44 NEXT r
        33 NEXT a
    22 NEXT d
11 NEXT u

finish = TIMER

PRINT finish - start

END

Спасибо

[xande.R]

Сообщение от сфинкс

На другие языки и в онлайн компиляторы
переведу когда-нибудь как пишу в моей теме

Буду ждать

[сфинкс]

Ждать слишком долго:

читается: "переведу когда-нибудь" ... за год
ведь считает быстро и на медленном языке

Плюс на современном языке листинг длиннее
да и переход goto не любят

Лучше покажу иностранцам вдруг доделают

Моя тема учит переводить самостоятельно
https://programmersforum.ru/showthre...=327446&page=5
... посетили свыше 10^4 раз ...