Завдання

Дано діаграму ASCII циклу

напр

....................
......@@@@@.........
......@...@.........
.....@@...@@@@@.....
....@@........@.....
....@........@@.....
....@@@@@@@@@@......
....................
....................

І розташування на циклі

напр

(7,1)

Ви повинні знайти внутрішню і зовнішню петлю

напр

00000000000000000000
00000011111000000000
00000011111000000000
00000111111111100000
00001111111111100000
00001111111111100000
00001111111111000000
00000000000000000000
00000000000000000000

Технічні умови

• Ви можете приймати дані для діаграми у вигляді рядка, розділеного новими рядками або очевидним еквівалентом

• Ви отримаєте координату на циклі (0 або 1 з індексом) як частина вашого вводу. Ви можете розмістити своє походження в будь-якому місці, де бажаєте. Ви можете взяти цю координату (<row>, <column>), (<column>, <row>)або як лінійне положення на струні. Ви можете отримати ці дані будь-яким розумним способом. Усі символи в циклі будуть такими ж, як і символи в цьому індексі.

• Бажаний вихід - це двовимірний масив правдивих і хибних значень, проте рядки 1та 0розділені новими рядками або будь-яким очевидним еквівалентом останніх двох приймаються. Всередині і зовні повинні бути різні значення істини, але не важливо, що є.

• Цикл визначається як група символів, така що вони всі однакові ( наприклад@ ), так що кожен символ у циклі має шлях до початкового символу (Символ за координатою введення), який проходить лише через той самий символ (Геометрія таксабітів Без діагоналей ).

• Всередині знаходиться сама петля та місця, які не можуть досягти краю діаграми, не перетинаючи цикл.

• Зовні є скрізь

• Це код-гольф

Випробування

PasteBin

MATLAB, 163 159 146 78 байт

function m=f(m,y,x);[~,i]=bwfill(m~=m(y,x),x,y,8);m=m*0;m(i)=1;m=bwfill(m,'h')

Дякую @ rahnema1 за -66 байт !!!

Тепер він працює на " Спробуйте в Інтернеті"! Але НЕ було потрібно декількох коригувань, оскільки MATLAB та Octave не зовсім сумісні.

Пояснення

Спочатку ми робимо бінарне зображення, яке просто маскує всі символи, рівні рівню початковому символу. Тоді ми визначаємо підключений компонент, в якому знаходиться початковий символ.

% determine the connected component that is contains initial character

[~,i]=bwfill(m~=m(y,x),x,y,8);     % i contains the indices of the connected component
m=m*0;m(i)=1;                      % create an image of the connected component

Після цього ми створюємо зображення цього підключеного компонента і застосовуємо заповнення всіх "дірок" у зображенні.

m=bwfill(m,'h')

MATLAB: 67 байт

function A=f(A,r,c),A=bwlabel(A==A(r,c),4);A=imfill(A==A(r,c),'h');

Пара застережень:

• A вважається масивом символів.
• Індекси в MATLAB базуються на 1, першими індексуються рядки. Передбачається, що ці зміни будуть внесені до вводу функції (тобто приклад питання буде називатися як output = f(A,2,8)).
• bwlabelі imfillє частиною панелі інструментів для обробки зображень.