Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Алгоритм решения японского кроссворда

Клочко Андрей © (2002-08-10 13:44:00)

Помогите кто может!!! Пришлите пожалуста алгоритм (быстрый) решения японских кроссвордов (двух цветов), то что я написал и что нашёл в Нете работает очень медленно. Буду рад любой информации. Язык написания алгоритма значения не имеет.

clover (2003-08-22 18:06:00) [1]

http://len.narod.ru/japan/solve.html

Читай по-русски... по-простому... ;)

ламер (2003-04-23 19:01:00) [2]

действительно

gingerbread (2003-03-13 19:05:00) [3]

chto-to ya nifiga ne ponyala. Vas zhe sprosili po russki i po prostomu - kaka? A vy tutu vse tol"ko pereputali i uslozhnili. O bo0zhe moy! Esli do etogo ya ix (krossvordy yaponskie ) ne ponimala, to teper" mne voobsch eneponyatno kak na nix smotret" i chto dellat"

Mac'kenzy (2002-11-02 01:16:00) [4]
вот тебе, пожалуйста:

Зацените сабж!
Максимальный pазмеp поля кpоссвоpда 100*100.
Пpога читает данные из файла и выводит pешение на экpан.
Беpебоp я оптимизиpовал (на AMD K6-II 400 кpоссвоpд 25*20 pешается за 0) and M[X,i] do
begin
dec(i);
inc(Cnt);
end;
if Cnt>0 then
if BVer[X,Num]=Cnt then begin MustOff:=True;inc(Num);end
else MustOn:=True;
{смотpим вниз}
Cnt:=-Cnt;
for i:=Num to BVer[X,0] do inc(Cnt,BVer[X,i]+1);
if Cnt-1>=SizeY-Y+1 then MustOn:=True;
if Num>BVer[X,0] then MustOff:=True;
{смотpим влево}
Num:=1;
for i:=1 to X-2 do
if M[i,Y] and not M[i+1,Y] then inc(Num);
Cnt:=0;
i:=X-1;
while (i>0) and M[i,Y] do
begin
dec(i);
inc(Cnt);
end;
if Cnt>0 then
if BHor[Y,Num]=Cnt then begin MustOff:=True;inc(Num);end
else MustOn:=True;
{смотpим впpаво}
Cnt:=-Cnt;
for i:=Num to BHor[Y,0] do inc(Cnt,BHor[Y,i]+1);
if Cnt-1>=SizeX-X+1 then MustOn:=True;
if Num>BHor[Y,0] then MustOff:=True;
{вызов последyющих ypовней}
if MustOn and MustOff then Exit;
if MustOn then
begin
M[X,Y]:=True;
Pass(X,Y);
Exit;
end;
if MustOff then
begin
M[X,Y]:=False;
Pass(X,Y);
Exit;
end;
M[X,Y]:=False;
Pass(X,Y);
M[X,Y]:=True;
Pass(X,Y);
end;

begin
{читаем данные}
Assign(InF,"input.txt");
Reset(InF);
ReadLn(InF,SizeX,SizeY); {pазмеpы поля}
for i:=1 to SizeY do {числа пpи стpоках}
begin
j:=1;
while not Eoln(InF) do
begin
Read(InF,BHor[i,j]);
inc(j);
end;
ReadLn(InF);
BHor[i,0]:=j-1;
end;
for i:=1 to SizeX do {числа пpи столбцах}
begin
j:=1;
while not Eoln(InF) do
begin
Read(InF,BVer[i,j]);
inc(j);
end;
ReadLn(InF);
( InF) [2]
вот тебе, пожалуйста:

Зацените сабж!
Максимальный pазмеp поля кpоссвоpда 100*100.
Пpога читает данные из файла и выводит pешение на экpан.
Беpебоp я оптимизиpовал (на AMD K6-II 400 кpоссвоpд 25*20 pешается за 0) and M[X,i] do
begin
dec(i);
inc(Cnt);
end;
if Cnt>0 then
if BVer[X,Num]=Cnt then begin MustOff:=True;inc(Num);end
else MustOn:=True;
{смотpим вниз}
Cnt:=-Cnt;
for i:=Num to BVer[X,0] do inc(Cnt,BVer[X,i]+1);
if Cnt-1>=SizeY-Y+1 then MustOn:=True;
if Num>BVer[X,0] then MustOff:=True;
{смотpим влево}
Num:=1;
for i:=1 to X-2 do
if M[i,Y] and not M[i+1,Y] then inc(Num);
Cnt:=0;
i:=X-1;
while (i>0) and M[i,Y] do
begin
dec(i);
inc(Cnt);
end;
if Cnt>0 then
if BHor[Y,Num]=Cnt then begin MustOff:=True;inc(Num);end
else MustOn:=True;
{смотpим впpаво}
Cnt:=-Cnt;
for i:=Num to BHor[Y,0] do inc(Cnt,BHor[Y,i]+1);
if Cnt-1>=SizeX-X+1 then MustOn:=True;
if Num>BHor[Y,0] then MustOff:=True;
{вызов последyющих ypовней}
if MustOn and MustOff then Exit;
if MustOn then
begin
M[X,Y]:=True;
Pass(X,Y);
Exit;
end;
if MustOff then
begin
M[X,Y]:=False;
Pass(X,Y);
Exit;
end;
M[X,Y]:=False;
Pass(X,Y);
M[X,Y]:=True;
Pass(X,Y);
end;

begin
{читаем данные}
Assign(InF,"input.txt");
Reset(InF);
ReadLn(InF,SizeX,SizeY); {pазмеpы поля}
for i:=1 to SizeY do {числа пpи стpоках}
begin
j:=1;
while not Eoln(InF) do
begin
Read(InF,BHor[i,j]);
inc(j);
end;
ReadLn(InF);
BHor[i,0]:=j-1;
end;
for i:=1 to SizeX do {числа пpи столбцах}
begin
j:=1;
while not Eoln(InF) do
begin
Read(InF,BVer[i,j]);
inc(j);
end;
ReadLn(InF);
BVer[i,0]:=j-1;
end;
Close(InF);
Assign(OutF,"con");
Rewrite(OutF);
for i:=1 to 30 do WriteLn(OutF);
{вычисления}
Pass(1,0);
{заканчиваем вывод}
Close(OutF);
end.
=== end ===

CocoJumbo (2002-10-31 15:00:00) [5]

http://cocojumbo.narod.ru/programs/JapaneseCrossword/JapaneseCrossword2.0Demo.rar

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »