Ребус ТУЧА+ТУЧА=ДОЖДЬ(8 решений)

@Doppelganker · Регистрация: 27.04.2020

Студворк — интернет-сервис помощи студентам

Подскажите пожалуйста как написать код решения ребуса ТУЧА+ТУЧА=ДОЖДЬ(8 решений)?
Есть теория:
Математический ребус – логическая задача, где в арифметическом примере цифры заменены буквами (одинаковым цифрам соответствуют одинаковые буквы, разным – разные). Например, 123+456=579 можно закодировать как сом + лук = уха.

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

Числа нарезаются на цифры, которые помещаются в множество. Если мощность множества не равна 3 (цифры разные!), то число не подходит в качестве решения задачи и надо проверять следующее число.
И пример:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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;
                    }
                }
            }
        }
    }

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

@XLAT · 01.08.2020, 17:23

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

(8 решений)?

у мя чето 32 решения получается:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#include <iostream>
#include <iomanip>
#include <set>
 
bool what(int n, int size)
{   int m[10] = {0};
    for(int i = 0; i <  size; i++, n /= 10)    m[n%10]++;
    for(int i = 0; i <    10; i++         ) if(m[i   ] > 1) return false;
    return true;
}
 
int main()
{   setlocale(0, "");
    std::cout << "ТУЧА + ТУЧА = ДОЖДЬ\n\n";
 
    std::set<int> m;
    for(int i = 5012; i <= 9876; i++)
    {   if(what(i, 4)) m.insert(i);
    }
    
    int z   = 0;
    int cnt = 0;
    for(const auto i : m)
    {   int s = i + i;
        if(what(s*10000+i, 9))
        {   std::cout << i << " + " << i << " = " << s << "\n";
            cnt++;
        }
    }
    
    std::cout << "\nвсего: " << cnt << "\n";
}

где ошибка?

кстати std::set тут для солидности, т.е. он не нужен, т.к. два цикла легко можно свести в один.

@zayats80888 · 01.08.2020, 17:27

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

у мя чето 32 решения получается

и ни одного верного, первая и четвертая цифра суммы должны совпадать

@XLAT · 01.08.2020, 18:21

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

первая и четвертая цифра суммы должны совпадать

ага, тогда для этого подойдёт:
ТУЧА + ТУЧА = ОСЕНЬ;

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

и ни одного верного

изначально и не предполагалось что там будут похожие буквы

@Doppelganker · 01.08.2020, 18:32 **[ТС]**

У меня получилось сделать одно решение на бумаге. Вышло так 5239+5239=14618. Но как сделать программу, да и чтобы она находила все решения, пока без понятия.

@XLAT · 01.08.2020, 18:50

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

пока без понятия.

а я чуть моск не сломал пока искал подходящее слово к своей ошибке:
я про "ОСЕНЬ"

ФедосеевПавел · 01.08.2020, 20:04

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

5239+5239=14618

а это точно вычислено?

При помощи чужой Pascal-программы получил ответы (ещё перед компиляцией привёл кодировку к консольной CP866)

Code
1
2
3
4
5
6
7
8
9
10
11
Введите формулировку ребуса: туча+туча=дождь
В выражении содержится 8 различных букв
6359+6359=12718
6709+6709=13418
6907+6907=13814
7309+7309=14618
7609+7609=15218
7906+7906=15812
9307+9307=18614
9356+9356=18712
found 8 solutions

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Введите формулировку ребуса: туча+туча=осень
В выражении содержится 9 различных букв
5238+5238=10476
5239+5239=10478
5364+5364=10728
5382+5382=10764
5392+5392=10784
5436+5436=10872
5486+5486=10972
6354+6354=12708
6435+6435=12870
6485+6485=12970
6729+6729=13458
6792+6792=13584
6852+6852=13704
6927+6927=13854
7269+7269=14538
7293+7293=14586
7329+7329=14658
7692+7692=15384
7923+7923=15846
7932+7932=15864
8235+8235=16470
8352+8352=16704
8523+8523=17046
8532+8532=17064
8546+8546=17092
8645+8645=17290
8652+8652=17304
9235+9235=18470
9267+9267=18534
9273+9273=18546
9327+9327=18654
9352+9352=18704
found 32 solutions

Как понимаю
https://www.cyberforum.ru/post6392407.html
алгоритм следующий:
1. составляется строка T - алфавит ребуса - в которой все буквы ребуса перечислены по одному разу.
2. вызывается рекурсивная функция - эквивалент вложенных циклов for - в которой два этапа:
- заполняется строка s символами цифр. На мой взгляд применение строки - лишнее - можно было массив чисел.
- по сформированному распределению цифр по алфавиту ребуса, вычисляется выражение ребуса и при равенстве - вывод результата.

Как понимаю, set of byte - примерный аналог std::set - для проверки "занятости" цифры при очередном распределении по символам алфавита.

@alexu_007 · 01.08.2020, 20:14

А я при помощи своей:

@alexu_007 · 01.08.2020, 20:25

C++ (Qt)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
void Widget::press_pbtn_01()
{
    int i;
    QString str;
 
    for(i = 5000; i < 9999; i++)
    {
        if(fn_test_number(i))
        {
            str += QString::number(i) + " + " +
                    QString::number(i) + " = " +
                     QString::number(i+i) + "\n";
        }
    }
 
    ui->label_01->setText(str);
}

@XLAT · 01.08.2020, 20:32

ну раз такая жара

чуть поправил фильтр:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#include <iostream>
#include <iomanip>
#include <set>
 
bool what(int n, int size)
{   int m[10] = {0};
    for(int i = 0; i <  size; i++, n /= 10)    m[n%10]++;
    for(int i = 0; i <    10; i++         ) if(m[i   ] > 1) return false;
    return true;
}
 
int main()
{   setlocale(0, "");
    std::cout << "ТУЧА + ТУЧА = ДОЖДЬ\n\n";
 
    std::set<int> m;
    for(int i = 5012; i <= 9876; i++)
    {   if(what(i, 4)) m.insert(i);
    }
    
    int z   = 0;
    int cnt = 0;
    for(const auto i : m)
    {   int s = i + i;
    
        if(what(s%10000*10000+i, 8) && s/10%10 == 1)
        {   std::cout << i << " + " << i << " = " << s << "\n";
            cnt++;
        }
    }
    
    std::cout << "\nвсего: " << cnt << "\n";
}

Название: 2.jpg
Просмотров: 177

Размер: 27.2 Кб

осталось автоматизировать настройку фильтра на любую строку.

@Doppelganker · 01.08.2020, 20:46 **[ТС]**

Всем большое спасибо, что уделили время и помогли. Сам бы врятли сделал

@alexu_007 · 01.08.2020, 20:52

Опередили, хотел первым результат выложить... счёт шел на минуты!

@XLAT · 01.08.2020, 20:56

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

результат выложить

а где код?

@Doppelganker · 01.08.2020, 21:03 **[ТС]**

XLAT, Если не сложно, подскажи, что переделать под ребус КОНЬ+КОНЬ=ТАБУН

@XLAT · 01.08.2020, 21:17

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

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

ок,
мой алгоритм есть ручной, увы и это ПРАВИЛЬНО:
никогда не автоматизируйте полностью свои программы!
иначе останетесь без работы

КОНЬ+КОНЬ=ТАБУН

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
#include <iostream>
#include <iomanip>
#include <set>
 
bool what(int n, int size)
{   int m[10] = {0};
    for(int i = 0; i <  size; i++, n /= 10)    m[n%10]++;
    for(int i = 0; i <    10; i++         ) if(m[i   ] > 1) return false;
    return true;
}
 
int main()
{   setlocale(0, "");
    std::cout << "КОНЬ + КОНЬ = ТАБУН \n\n";
 
    std::set<int> m;
    for(int i = 5012; i <= 9876; i++)
    {   if(what(i, 4)) m.insert(i);
    }
    
    int z   = 0;
    int cnt = 0;
    for(const auto i : m)
    {   int s = i + i;
    
        if(what(s*10000/10+i, 8) && s%10 == i%100/10)
        {   std::cout << i << " + " << i << " = " << s << "\n";
            cnt++;
        }
    }
    
    std::cout << "\nвсего: " << cnt << "\n";
}

@Doppelganker · 01.08.2020, 21:19 **[ТС]**

XLAT, Спасибо большое

@XLAT · 01.08.2020, 21:38

Doppelganker, хотите универсальности, тогда вот
Ребус ТУЧА+ТУЧА=ДОЖДЬ(8 решений)
просто перетранслируйте из паскаля в си

Добавлено через 9 минут
вот здесь вроде без ошибок:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
#include <iostream>
#include <iomanip>
#include <set>
 
bool what(int n, int size)
{   int m[10] = {0};
    for(int i = 0; i <  size; i++, n /= 10)    m[n%10]++;
    for(int i = 0; i <    10; i++         ) if(m[i   ] > 1) return false;
    return true;
}
 
int main()
{   setlocale(0, "");
    std::cout << "КОНЬ + КОНЬ = ТАБУН \n\n";
 
    int cnt = 0;
    for(int i = 5012; i <= 9876; i++)
    {   int s = i + i;
    
        if(what((s/10)*10000+i, 8) && s%10 == i%100/10)
        {   std::cout << i << " + " << i << " = " << s << "\n";
            cnt++;
        }
    }
    
    std::cout << "\nвсего: " << cnt << "\n";
}

@alexu_007 · 01.08.2020, 21:41

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

а где код?

C++ (Qt)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
//ТУЧА + ТУЧА = ДОЖДЬ
bool fn_test_number(int x)
{
    quint8 mas[10] = {0,0,0,0,0,0,0,0,0,0};
 
    int y;
    int sum = x + x;
 
    while(x)
    {
        y = x % 10;
        x /= 10;
 
        if(mas[y]) return false;
        else mas[y] = 1;
    }
 
 
    for(int i = 0; i < 4; i++)
    {
        y = sum % 10;
        sum /= 10;
 
        if(mas[y]) return false;
        else
        {
            if(i == 1)mas[y] = 2;
            else mas[y] = 1;
        }
    }
 
    y = sum % 10;
    if(mas[y] != 2) return false;
 
    return true;
}
 
 
 
 
void Widget::press_pbtn_01()
{
    int i;
    QString str;
 
    for(i = 5000; i < 9999; i++)
    {
        if(fn_test_number(i))
        {
            str += QString::number(i) + " + " +
                    QString::number(i) + " = " +
                     QString::number(i+i) + "\n";
        }
    }
 
    ui->label_01->setText(str);
}

ФедосеевПавел · 01.08.2020, 22:41

Почти универсально, по мотивам решения volvo, но не на C++, а на простом C
Прошу не пинать - C/C++ очень неродной мне язык.
Нужно как-то переделать под тип string и работу с индексами.
И не понимаю, как спрятать "потроха" - всякие служебные для решения переменные - сейчас они глобальные.
Проверял в gcc.

Кликните здесь для просмотра всего текста

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
#include <iostream>
#include <cstring>
#include <locale.h>
 
using namespace std;
 
char Abc[256];   //алфавит ребуса
int AbcLength;   //длина алфавита ребуса
int Comb[10];    //комбинация, соответствующая алфавиту ребуса
int used[10];    //признак занятости цифры
int iAmount;     //количество найденных решений
char azFirst[]="конь";//"туча";
char azSecond[]="конь";//"туча";
char azResult[]="табун";//"дождь";
 
//вычисление операнда по
// str - его строковому представлению
// abc - алфавиту ребуса
// comb - сопоставлению каждой буквы алфавита ребуса - уникальной цифре
int Calc(char* str, char* abc, int* comb)
{
    int result=0;
    while(*str)
    {
        int iIndex=strchr(abc,*str)-abc;
        result=result*10+(*(comb+iIndex));
        str++;
    };
    return result;
}
 
void TestNextComb(int Pos)
{
    if(Pos==AbcLength)
    {
        //если комбинация для алфавита ребуса создана, то
        //получить значения операндов, вычислить значение выражения,
        //и проверить равенство суммы операндов и результата
        int iFirst=Calc(azFirst, Abc, Comb);
        int iSecond=Calc(azSecond, Abc, Comb);
        int iResult=Calc(azResult, Abc, Comb);
        if(iFirst+iSecond==iResult)
        {
            cout << iFirst << " + " << iSecond << " = " << iResult << endl;
            iAmount++;
        }
    }
    else
    {
        //перебор всех цифр для буквы алфавита в позиции Pos
        for(int i=0; i<10; i++)
        {
            //сразу исключаем первую цифру операнда, равную 0
            if(i==0)
            {
                if(Abc[Pos]==azFirst[0])
                    continue;
                if(Abc[Pos]==azSecond[0])
                    continue;
                if(Abc[Pos]==azResult[0])
                    continue;
            }
            if(!used[i])
            {
                used[i]=1;
                Comb[Pos]=i;
                TestNextComb(i+1);
                used[i]=0;
            }
        }
    }
    return;
}
 
void AddCharsToAbc(char * str)
{
    //если символ из слова str уникален - не встречался раньше
    //и отсутствует в алфавите ребуса Abc - добавить его к алфавиту
    while(*str)
    {
        if(!strchr(Abc, *str))
            Abc[AbcLength++]=*str;
        str++;
    }
    return;
}
 
void InitRebus()
{
    //инициализация переменных
    iAmount=0;
    AbcLength=0;
    for(int i=0; i<256; i++)
        Abc[i]=0;
    for(int i=0; i<10; i++)
        used[i]=0;
    //заполнение алфавита ребуса - списка уникальных букв
    AddCharsToAbc(azFirst);
    AddCharsToAbc(azSecond);
    AddCharsToAbc(azResult);
}
int main()
{
    setlocale(LC_ALL,"Rus");
 
    InitRebus();
    cout << azFirst << " + " << azSecond << " = " << azResult << endl;
    cout << "contains " << AbcLength << " different chars" << endl;
 
    if((AbcLength<=10) && (AbcLength))
        TestNextComb(0);
    if(iAmount)
        cout << "Number of solutions: " << iAmount << endl;
    else
        cout << "No solution" << endl;
    return 0;
}

@Kuzia domovenok · 01.08.2020, 23:13

ФедосеевПавел, именно, я удивлён, что приводятся какие-то решения с линейным циклом по самим числам до 100500.
Я ожидал увидеть решение хотя бы в духе

C++
1
2
3
4
for (t=0; t<10; ++t)
  for (u=0; u<10; ++u)
    for (ch=0; ch<10; ++ch)
      for (a=0; a<10; ++a)

и т д с проверкой на повторения только
метод простой но не такой продвинутый как рекурсивно генерировать эти циклы.
Но в цикле разбивать число на цифры типа s/10 s%10 это полный неэффективность.

Новые блоги и статьи Все статьи Все блоги /
Перемещение выделенных строк ТЧ из одного документа в другой Maks 30.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .

@Doppelganker 1 / 1 / 0 Регистрация: 27.04.2020 Сообщений: 59
	01.08.2020, 18:32 [ТС]
	У меня получилось сделать одно решение на бумаге. Вышло так 5239+5239=14618. Но как сделать программу, да и чтобы она находила все решения, пока без понятия. 0

@alexu_007 736 / 700 / 110 Регистрация: 29.05.2015 Сообщений: 4,282
	01.08.2020, 20:14
	А я при помощи своей: Миниатюры 1

@Doppelganker 1 / 1 / 0 Регистрация: 27.04.2020 Сообщений: 59
	01.08.2020, 20:46 [ТС]
	Всем большое спасибо, что уделили время и помогли. Сам бы врятли сделал 0

@alexu_007 736 / 700 / 110 Регистрация: 29.05.2015 Сообщений: 4,282
	01.08.2020, 20:52
	Опередили, хотел первым результат выложить... счёт шел на минуты! 1

@Doppelganker 1 / 1 / 0 Регистрация: 27.04.2020 Сообщений: 59
	01.08.2020, 21:03 [ТС]
	XLAT, Если не сложно, подскажи, что переделать под ребус КОНЬ+КОНЬ=ТАБУН 0

@Doppelganker 1 / 1 / 0 Регистрация: 27.04.2020 Сообщений: 59
	01.08.2020, 21:19 [ТС]
	XLAT, Спасибо большое 1

Ребус ТУЧА+ТУЧА=ДОЖДЬ(8 решений)

Решение

Решение