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


declare
type t is table of binary_integer index by binary_integer;
type tt is table of t index by binary_integer;
desk tt;
ii binary_integer := 1;--по высоте
jj binary_integer := 1;--по ширине
ind binary_integer := 10;
rpt binary_integer := 1;
v varchar2(25);
function cnt_unvisited(x in binary_integer, y in binary_integer)
return binary_integer as
result binary_integer := 0;
begin
for i in (select x + dx x, y + dy y
from
— NoFormat Start
(select 2 dx, -1 dy from dual
union all select 2 dx, 1 dy from dual
union all select 1 dx, 2 dy from dual
union all select -1 dx, 2 dy from dual
union all select -2 dx, +1 dy from dual
union all select -2 dx, -1 dy from dual
union all select -1 dx, -2 dy from dual
union all select 1 dx, -2 dy from dual)
— NoFormat End
where x + dx >= 1
and x + dx <= 8
and y + dy >= 1
and y + dy <= 8) loop
result := result + (1 - sign(desk(i.x) (i.y)));
end loop;
return result;
end;
procedure find_next(x in out binary_integer, y in out binary_integer) as
tmp sys.odcivarchar2list := sys.odcivarchar2list();
begin
if ind = 64 then
for i in 1 .. 8 loop
for j in 1 .. 8 loop
if desk(i) (j) = 0 then
desk(i)(j) := 64;
end if;
end loop;
end loop;
else
for i in (select x + dx x, y + dy y
from
— NoFormat Start
(select 2 dx, -1 dy from dual
union all select 2 dx, 1 dy from dual
union all select 1 dx, 2 dy from dual
union all select -1 dx, 2 dy from dual
union all select -2 dx, +1 dy from dual
union all select -2 dx, -1 dy from dual
union all select -1 dx, -2 dy from dual
union all select 1 dx, -2 dy from dual)
— NoFormat End
where x + dx >= 1
and x + dx <= 8
and y + dy >= 1
and y + dy <= 8) loop
if desk(i.x) (i.y) = 0 then
tmp.extend;
tmp(tmp.count) := to_char(cnt_unvisited(i.x, i.y), 'fm00') ||
to_char(i.x, 'fm00') || to_char(i.y, 'fm00');
end if;
end loop;
if tmp.count = 0 then
raise_application_error(-20000, 'It''s a dead end!');
end if;
select t.x, t.y
into find_next.x, find_next.y
from (select substr(column_value, 3, 2) x,
substr(column_value, 5, 2) y
from table(tmp)
order by substr(column_value, 1, 2), dbms_random.value) t
where rownum = 1;
end if;
end;
begin
loop
ii := 1;
jj := 1;
ind := 1;
— initializing
for i in 1 .. 8 loop
for j in 1 .. 8 loop
desk(i)(j) := 0;
end loop;
end loop;
— finding solution
begin
for i in 1 .. 8 loop
for j in 1 .. 8 loop
desk(ii)(jj) := ind;
find_next(ii, jj);
ind := ind + 1;
end loop;
end loop;
exception
when others then
if sqlcode = -20000 then
null;
else
raise;
end if;
end;
exit when 64 in (desk(2)(3),desk(3)(2)) or rpt>10000;
rpt := rpt+1;
end loop;
— printing result
dbms_output.put_line('rpt='||rpt);
dbms_output.put_line(lpad('-', 25, '-'));
for i in 1 .. 8 loop
v := '|';
for j in 1 .. 8 loop
v := v || to_char(desk(i) (j), 'fm00') || '|';
end loop;
dbms_output.put_line(v);
end loop;
dbms_output.put_line(lpad('-', 25, '-'));
end;

Stax,
спасибо! Но в итоге все равно не в каждой строке понимаю что происходит