Ваш виклик дає вклад у тюремну розкладку, щоб визначити, чи може хтось із в'язнів врятуватися.

Вхідні дані

Вхідні дані можуть бути в будь-якому зручному форматі , такі як рядок, масив, масив масивів і т.д. Вхідний буде складатися з трьох символів, в даному випадку #, Pі в просторі. Вхід не обов'язково містить усі три символи.

• #: Стіна
• P: В’язень
• простір: порожній простір

Приклад введення виглядатиме так:

#####
#   #
# P #
#   #
#####

Вихід

Достовірне значення / фальси, незалежно від того, захищена в'язниця чи ні. В'язниця безпечна лише в тому випадку, якщо в ній можуть утримуватися всі в’язні. Якщо будь-який в'язень може втекти, це не безпечно.

В'язень може втекти, якщо їх повністю не закрити стіною. Діагональне з'єднання повністю укладено.

Тестові кейси

############# Truthy
# P #  P#   #
#   #   # P #
#############

############# Truthy
# P    P    #
#   #   # P #
#############

############# Falsey
# P #  P#   #
#   #   # P #
########## ##

####          Truthy
#   #
 #   #
  # P ####
  ####

P             Falsey

###           Falsey
# #
# #
### P

Равлики , 13 байт

!(t\P(o\ ),o~

Спробуйте в Інтернеті!

Відбитки 0для небезпечних в'язниць та розмір обмежувальної коробки для вхідних в'язниць.

Ідея полягає у тому, щоб ми не змогли знайти шлях від Pклітини a до поза межами ( ~), що рухається лише ортогонально ( o) через пробіли. Це tтелепорт, так що незалежно від того, де ми намагаємося відповідати, він намагається знайти всі можливі стартові позиції P.

C # (.NET Core) , 485 480 474 470 421 408 байт

Абсолютно неправильний інструмент та підхід, але тим не менше ...

• 7 байт (і більше) збережені корисними порадами від TheLethalCoder.
• 4 байти збережено, повернувши ціле число.
• Ще 4 байта врятовані завдяки (ще раз) , щоб TheLethalCoder шляхом заміни ' 'з 32в порівняннях.
• Багато байтів, збережених шляхом рефакторингу коду.
• Ще 13 байт завдяки (вгадайте, хто?) TheLethalCoder. :) Я постійно забуваю його поради, і він продовжує нагадувати мені про них.

m=>{var p='P';int a=m.Length,b=m[0].Length,i=0,j,x,y;var c=new System.Collections.Stack();for(;i<a;i++)for(j=0;j<b;j++)if(m[i][j]==p)c.Push(new[]{i,j});while(c.Count>0){var t=(int[])c.Pop();x=t[0];y=t[1];if(x<1|x>a-2|y<1|y>b-2)return 0;foreach(var v in new[]{-1,1}){var z=x>0&x<a-1&y>0&y<b-1;if(z&m[x+v][y]==32){m[x][y]=p;c.Push(new[]{x+v,y});}if(z&m[x][y+v]==32){m[x][y]=p;c.Push(new[]{x,y+v});}}}return 1;}

Спробуйте в Інтернеті!

В основному я розширюю позиції P, коли є пробіл навколо, поки він не досягне (або не буде) межі макета.

Деякі ліцензії:

• Я використовую a char[][]як вхід для макета.
• Повертається 0як незахищений та 1безпечний.

Perl 5 , 69 байт

-10 байт завдяки @Grimy .

-2 байти завдяки @Neil .

77 байт коду + -p0прапори.

/
/;$_=s/(P| )(.{@{-}})?(?!\1)(?1)/P$2P/s?redo:!/\A.*P|P.*\Z|^P|P$/m

Спробуйте в Інтернеті!

Деякі короткі пояснення:
Ідея полягає у тому, щоб розмістити Pвсюди, куди в'язні можуть їхати. Якщо хтось Pзнаходиться на першому / останньому рядку або першому / останньому стовпчику, то ув'язнені можуть туди й туди втекти, що означає, що в'язниця не захищена.
s/(P| )(.{@{-}})?(?!\1)(?1)/P$2P/sзамінює пробіл праворуч або внизу a Pз a Pабо пробіл зліва або вгорі а P.
Нарешті, /\A.*P|P.*\Z|^P|P$/mперевіряє, чи починається чи закінчується рядок з a P, чи є Pна першому чи останньому рядку.

JavaScript (ES6), 134 133 байт

Вводить введення як масив масивів символів. Повертається 0(небезпечно) або 1(безпечно).

f=a=>a.map((r,y)=>r.map((c,x)=>c>'O'&&[-1,1,0,0].map((X,i)=>(R=a[y+1-'1102'[i]])&&R[X+=x]?R[X]<'!'?R[o=2,X]=c:0:o=0)),o=1)|o&2?f(a):o

Тестові кейси

f=a=>a.map((r,y)=>r.map((c,x)=>c>'O'&&[-1,1,0,0].map((X,i)=>(R=a[y+1-'1102'[i]])&&R[X+=x]?R[X]<'!'?R[o=2,X]=c:0:o=0)),o=1)|o&2?f(a):o

console.log(f([
  [...'#############'],
  [...'# P #  P#   #'],
  [...'#   #   # P #'],
  [...'#############']
]))

console.log(f([
  [...'#############'],
  [...'# P    P    #'],
  [...'#   #   # P #'],
  [...'#############']
]))

console.log(f([
  [...'#############'],
  [...'# P #  P#   #'],
  [...'#   #   # P #'],
  [...'########## ##']
]))

console.log(f([
  [...'####'],
  [...'#   #'],
  [...' #   #'],
  [...'  # P ####'],
  [...'  ####']
]))

console.log(f([
  [...'P']
]))

console.log(f([
  [...'###'],
  [...'# #'],
  [...'# #'],
  [...'### P']
]))

JavaScript (ES6), 121 байт

f=s=>s==(s=s.replace(eval('/( |P)([^]{'+s.search`
`+'})?(?!\\1)[ P]/'),'P$2P'))?!/^.*P|P.*$/.test(s)&!/^P|P$/m.test(s):f(s)

Вводиться в якості прямокутного рядка з обмеженим рядком. Повертає 0 для небезпечних та 1 для безпечних. Виходячи з моєї відповіді на " Виявити невдалих замків" , хоча було б ефективніше перевіряти в'язня, що втік, на кожному кроці, а не після того, як вони закінчили вивчення в'язниці.

Октава, 64 55 байт

@(a,z=padarray(a,[1 1]))~nnz(bwfill(z==35,1,1,4)&z>35);

Спробуйте в Інтернеті!

або

Перевірте всі тестові випадки!

Пояснення:

z=padarray(a,[1 1])       %add a boundary(of 0s) around the scene
F = bwfill(z==35,1,1,4)   %flood fill the prison starting from the boundary
~nnz(F&z>35);             %if position of at least a prisoner  is filled then the prison is not secure 

APL (Dyalog Classic) , 40 байт

{⊃2≠(××{1⊃⌈/⍵,⍉⍵}⌺3 3)⍣≡(⌽1,⍉)⍣4⊢'# '⍳⍵}

Спробуйте в Інтернеті!

'# '⍳⍵кодувати '#', ' ', 'P'як 0 1 2

(⌽1,⍉)⍣4 оточити з 1s

(××{1⊃⌈/⍵,⍉⍵}⌺3 3)⍣≡ максимум сусідів заповнюють ненульові комірки

⊃2≠ у нас немає 2 у верхньому лівому куті?

Stax , 35 байт ^CP437

ä¬my■╡╤▲l@┤êr*⌠\¶ƒläå─▄¶√¿ [Uy⌠Só4↔

Спробуйте в Інтернеті!

Безумовно, мова про гольф без внутрішньої справи для пошуку шляху також може це зробити!

Пояснення

Використовує розпакований формат для пояснення.

zLz]Y+Mys+y+{{{" P|P ""PP"Rm}Y!My!Mgphh' =
zLz]Y+Mys+y+                                  Surround the original matrix with four borders of whitespaces
            {                      gp         Iterate until a fixed point is found, return the single fixed point
             {              }Y!               Store the block in register Y and execute it
              {" P|P ""PP"Rm                  For each row, flood every space adjacent to a P with P.
                               My!            Transpose the matrix and do the flooding again
                                     hh' =    The final matrix has a space on the upper left corner that has not been flooded by P 

SmileBASIC, 154 146 байт

Я сподівався, що відповідь із використанням заливної заливки буде коротшою за цю.

DEF S P
FOR J=0TO 1X=1Y=1FOR I=0TO LEN(P)-1GPSET X,Y,-(P[I]=="#")GPAINT X,Y,-1,-J*(P[I]>@A)X=X*(P[I]>"31")+1INC Y,X<2NEXT
NEXT?!GSPOIT(0,0)GCLS
END

Замініть 31відповідним символом ASCII.