У меня получилось следующая структура: 2 таблицы.
Одна содержит слово, координаты начала и направление:
| Код | create table WORDS
(
ID raw(16) default sys_guid(),
X number(5) not null,
Y number(5) not null,
DIRECTION number(1) not null,
WORD varchar2(25) not null
);
alter table WORDS
add constraint WORDS_PK primary key (ID);
alter table WORDS
add constraint WORDS_UNIC unique (X, Y, DIRECTION); |
Другая содержит букву, ссылку на слово к которому она принадлежит, координаты:
| Код | create table LETTERS_GRID
(
ID raw(16) default sys_guid(),
WORD raw(16) not null,
X number(5) not null,
Y number(5) not null,
LETTER char(1) not null
);
alter table LETTERS_GRID
add constraint LETTERS_GRID_PK primary key (ID);
alter table LETTERS_GRID
add constraint LETTERS_GRID_FK foreign key (WORD)
references WORDS (ID) on delete cascade;
create index LETTERS_GRID_IDX on LETTERS_GRID (X, Y, LETTER); |
(при удалении слова все связанные с ним буквы удаляются)
Процедура которая для заданного слова заполняет таблицу с буквами:
| Код | create or replace procedure FILL_LETTERS_GRID(WORD_ID in raw) is
WORD varchar2(25);
LEN number;
LETTER char(1);
X number;
Y number;
CUR_X number;
CUR_Y number;
DIRECTION number;
I number;
J number;
begin
select W.X, W.Y, W.DIRECTION, UPPER(W.WORD)
into X, Y, DIRECTION, WORD
from WORDS W
where W.ID = WORD_ID;
LEN := LENGTH(WORD);
CUR_X := X;
CUR_Y := Y;
for I in 1 .. LEN loop
if DIRECTION = 0 then
CUR_Y := Y + I - 1;
else
CUR_X := X + I - 1;
end if;
LETTER := SUBSTR(WORD, I, 1);
select count(*)
into J
from LETTERS_GRID L
where L.X = CUR_X
and L.Y = CUR_Y
and L.LETTER <> LETTER;
if J = 0 then
insert into LETTERS_GRID (WORD, X, Y, LETTER) values (WORD_ID, CUR_X, CUR_Y, LETTER);
else
RAISE_APPLICATION_ERROR(-20101, 'Invalid invalid letter at [' || TO_CHAR(CUR_X) || ',' || TO_CHAR(CUR_Y) || ']');
end if;
end loop;
end FILL_LETTERS_GRID; |
Триггер на табличку со словами, который при вставке очередного слова будет заполнять таблицу с буквами:
| Код | create or replace trigger FILL_LETTERS_GRID_TRG
after insert on WORDS
for each row
begin
FILL_LETTERS_GRID(:new.ID);
end FILL_LETTERS_GRID_TRG; |
Пользователю на таблицу LETTERS_GRID дать только select, а в таблице WORDS запретить изметять столбец WORD или дописать логику по обработке такой ситуации. |
Плиз! 
а как с ними?
