Кратчайшая цепочка домино, (и снова домино только с вариацией - максимальное число оставшихся) Опции

[volsub]

Доброе утро!

Любимая сестра попросила помочь с программами к сессии. Но вот не задача, я последние 5 лет вообще не писал ничего. Поэтому я несколько в шоке от того, что преподают на первом курсе!

===================================
Задание:
Костяшки N домино (N максимальное кол-во очков на половинке костяшки, обычно 6) по правилам этой игры выкладываются в прямую цепочку, начиная с выбранной произвольной костяшки, в оба конца до тех пор, пока это возможно.

Найти:
Найти такой вариант выкладывания заданных костяшек, при котором к моменту, когда цепочка не может быть продолжена, "на руках" останется максимальное число очков.

Результат:
Вывести вариант на экран.
===================================

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

Скопировал исходник, создал файл со своими данными. Но судя по всему, я несколько не понимаю сам принцип работы данного кода. Или данные не корректным образом отдаю программе.

Ткните носом, куда стоит копать?

Сообщение отредактировано: volsub - 22.12.2007 12:46

[Lapp]

Вот, решение с рекурсией (читай: полным перебором). Вроде, работает, но стопроцентной уверенности, если честно, нету (думал, решу за пять минут, но вышло несколько побольше, и на доводку меня не хватило)..
Смешно, но самым сложным было вывести полученную цепочку .

{ Домино, рыба с минимальной суммой очков }
{ by Lapp }
const
  n=8; {размерность домино}

var
  d,Fish: array[1..n,1..n]of integer;
  Right,Left,m,mx,xx,i,j,k,l: integer;
  s,sl,sr: string;

function Put(l,r:integer):boolean;
var
  i,j,x,R0,L0: integer;
  f: boolean;
begin
  if d[l,r]=0 then begin
    Inc(m);
    R0:=Right;
    L0:=Left;
    if r=Left then Left:=l else Right:=r;
    if Left=0 then Left:=l;
    d[l,r]:=-1;
    d[r,l]:=m;
    f:=true;
    for i:=1 to n do f:=f and Put(i,Left);
    for i:=1 to n do f:=f and Put(Right,i);
    if f then begin
      x:=0;
      for i:=1 to n do for j:=1 to n do if d[i,j]=0 then x:=x+i+j;
      if x>xx then begin
        Fish:=d;
        xx:=x;
        mx:=m
      end
    end;
    d[l,r]:=0;
    d[r,l]:=0;
    Right:=R0;
    Left:=L0;
    Dec(m);
    Put:=false
  end
  else Put:=true
end;

begin
  xx:=0;
  m:=0;
  for i:=1 to n do for j:=1 to n do d[i,j]:=0;
  Left:=0;
  Right:=0;
  Put(2,3); { <<== Здесь задается первый ход }

  for i:=1 to n do begin
    for j:=1 to n do Write(Fish[i,j]:3);
    WriteLn
  end;
  m:=1;
  s:='';
  for k:=1 to mx do
  for i:=1 to n do begin
    for j:=1 to n do if Fish[i,j]=m then begin
      Str(i,sl);
      Str(j,sr);
      if j=l then Insert(sl+':'+sr+' ',s,1) else s:=s+' '+sl+':'+sr;
      l:=i;
      Inc(m)
    end
  end;
  WriteLn(s);
  ReadLn
end.

Сообщение отредактировано: Lapp - 23.12.2007 15:22