Ребус

@galaid · Регистрация: 20.09.2011

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

Дан ребус: ABC+DEF=XYZ (все цифры - разные). Задача состоит в том, чтобы найти всевозможные комбинации чисел, которые будут являться решением данного ребуса.
Набросал следующий код:

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

Delphi

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
const
  f=1;
 
var
  q: set of 0..9;
  l, o, b, t, r, i, s, a, m: longint;
 
begin
  for l:=f to 9 do
    begin
      include(q,l);
      for o:=0 to 9 do
        begin
          if not (o in q) then
            begin
              include(q,o);
              for b:=0 to 9 do
                begin
                  if not (b in q) then
                    begin
                      include(q,b);
                      for t:=f to 9 do
                        begin
                          if not (t in q) then
                            begin
                              include(q,t);
                              for r:=0 to 9 do
                                begin
                                  if not (r in q) then
                                    begin
                                      include(q,r);
                                      for i:=0 to 9 do
                                        begin
                                          if not (i in q) then
                                            begin
                                              include(q,i);
                                              for s:=0 to 9 do
                                                begin
                                                  if not (s in q) then
                                                    begin
                                                      include(q,s);
                                                      for a:=0 to 9 do
                                                        begin
                                                          if not (a in q) then
                                                            begin
                                                              include(q,a);
                                                              for m:=0 to 9 do
                                                                begin
                                                                  if not (m in q) then
                                                                    begin
                                                                      include(q,m);
                                                                      if (l+t)*100+(o+r)*10+b+i=s*100+a*10+m then
                                                                        begin
                                                                          writeln(l,o,b,' + ',t,r,i,' = ',s,a,m);
                                                                        end;
                                                                      exclude(q,m);
                                                                    end;
                                                                end;
                                                              exclude(q,a);
                                                            end;
                                                        end;
                                                      exclude(q,s);
                                                    end;
                                                end;
                                              exclude(q,i);
                                            end;
                                        end;
                                      exclude(q,r);
                                    end;
                                end;
                              exclude(q,t);
                            end;
                        end;
                      exclude(q,b);
                    end;
                end;
              exclude(q,o);
            end;
        end;
      exclude(q,l);
    end;
  readln;
end.

Результаты выдает правильные, но их ОЧЕНЬ МНОГО. Начал разбираться, оказалось что в программе некоторые значения дубоируются, например выводятся значения 847+106=953 и 106+857=953. Может и еще что-то лишнее выводится, однако я пока этого не заметил.
Помогите оптимизировать данный код.

Одиночка · 06.12.2012, 07:32

Вот, можно вот такой рекурсивной функцией. Только пришлось вставить увеличение размера экранного буфера консоли, иначе можно было посмотреть только 256 последних результатов.

Delphi

program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils, Windows;
 
Var
 f : _COORD;
 a : Array[1..9] Of Integer;
 ss : Set Of 0..9 = [];
 
procedure Prs(k:Byte);
var
  i : Byte;
  arg1,arg2 : Integer;
begin
  for i:=0 to 9 do
  If Not (i In ss) Then
  begin
    a[k]:=i;
    Include(ss,i);
    if k<9 then
    Prs(k+1) else
    Begin
      arg1:=(a[1]*100)+(a[2]*10)+a[3];
      arg2:=(a[4]*100)+(a[5]*10)+a[6];
      If arg1<arg2 Then
      if (arg1+arg2-(a[7]*100)-(a[8]*10)-a[9])=0 then
      writeln(a[1],a[2],a[3],' + ',a[4],a[5],a[6],' = ',a[7],a[8],a[9]);
    End;
    Exclude(ss,i);
  end;
end;
 
begin
  f.X:=80;
  f.Y:=1000;
  //Увеличение количества строк в консоли
  SetConsoleScreenBufferSize(GetStdHandle(STD_OUTPUT_HANDLE),f);
 
  Prs(1);
 
  ReadLn;
end.

А для отсечения таких варианто, как ты описал: строка 28.

Опции темы