Чтобы найти иголку в стоге сена, нужно найти самый большой непрерывный стог сена, содержащий ровно одну иголку . Обратите внимание, что вы не можете соединить ячейки по диагонали, только влево / вправо / вверх / вниз.

вход

Массив (или количество пользовательских строк ввода, ваш выбор) из 'N'(иглы) и '#'(сено) символов. Входные данные содержат только эти два символа и должны содержать хотя бы один из них. Например:

N#N#N
#NN##
###N#
N##N#

Выход

Размер максимально возможного допустимого стога сена. Для нашего примера мы вывели бы 11 (есть 11 кусочков сена и одна игла).

   # 
#  ##
###N#
 ## #

Это код-гольф , поэтому выигрывает самый короткий код. Стандартные ограничения лазейки применяются.

Тестовые случаи

Ввод слева, возможный максимальный стог сена справа

Дело 1: 4

N##    ##
NN#     #
#NN     N
#N#     #

Случай 2: 7

###   ###
N#N    # 
NNN    N 
###   ###

Дело 3: 10

N###N    ### 
#N#N#   #N#  
#N#N#   # #  
N###N    ###

Дело 4: 10

N#N#N        
#N#N#   # # #
##N##   ##N##
#N#N#   # # #
N#N#N        

Дело 5: 1

NN#NN        
NNNNN         
#NNN#   #N    
NN#NN        

JavaScript (ES6), 152 байта

s=>[...s].map((n,i)=>n>'M'&&(a=[...s],a[i]=r=1,a.map(_=>a.map((c,j)=>c=='#'&&a[j+1]|a[j-1]|a[j+l]|a[j-l]?a[j]=++r:0)),o=r>o?r:o),o=0,l=~s.search`
`)|o-1

объяснение

Для каждой иглы на входе устанавливает иглу в часть стога сена (представленная установкой ненулевого числа) и постоянно проверяет ячейки сена. Если сено содержит смежную часть стога сена, также устанавливает его в стог сена и увеличивает размер стога сена. Выводит наибольший результат.

var solution =

s=>
  [...s].map((n,i)=>n>'M'&&(          // for each needle in s at index i
      a=[...s],                       // a = array of each character in s
      a[i]=1,                         // set the starting needle to 1 (haystack)
      r=0,                            // r = haystack size starting from this needle
      a.map(_=>                       // loop to ensure the complete haystack is found
        a.map((c,j)=>                 // for each cell c at index j
          c=='#'&&                    // if the current cell is hay
          a[j+1]|a[j-1]|a[j+l]|a[j-l] // and any adjacent cells are part of the haystack
          ?a[j]=++r:0                 // add the current cell to the haystack, increment r
        )
      ),
      o=r>o?r:o                       // o = max of o and r
    ),
    o=0,                              // o = final output, initialise to 0
    l=~s.search`
`                                     // l = line length of s
  )
  |o                                  // return o

<textarea id="input" rows="6" cols="40">N#N#N
#N#N#
##N##
#N#N#
N#N#N</textarea><br />
<button onclick="result.textContent=solution(input.value)">Go</button>
<pre id="result"></pre>

Рубин, 207

->a{d=->b{0...b.size}
f=c=s=->y,x{(d[a]===y&&d[a[0]]===x&&!f[y][x]&&a[y][x]==c)?(c,f[y][x]=?#,1
1+s[y,x-1]+s[y,x+1]+s[y-1,x]+s[y+1,x]):0}
d[a].map{|y|d[y].map{|x|f,c=a.map{|b|b.map{p}},?N
s[y,x]}.max}.max-1}

Это анонимная функция, которая принимает входные данные в виде массива массивов. Использование:

f=->a{......}

f["
N##
NN#
#NN
#N#
".strip.split.map(&:chars)] # => 4

Рек, названный proc, sрекурсивно находит размер стога сена с иглой в определенных координатах и ​​вызывается на каждой игле в стоге сена.