Конспект: Знайдіть символи, до яких додається MYPOCKET.

Приклад введення

MYPHEIF
YFOCKVH
MBNDEIF
TEUFTMY
ESNDUWP
KBOVUVO
CENWFKC
OPYMTEB

Приклад Вихід

F   
BND 
EUF   
SNDUW 
BOVUV 
ENWF  

Так? Як ми сприйняли це як результат? "Кишеню" іноді буває важко помітити. Це дозволить зрозуміти:

MYP HEIF
 У Р OCK VH
 М БНД Е ЯКЩО
 Т EUF TMY 
Е SNDUW Р 
К BOVUV Про 
З ENWF KC 
OPYMTE Б

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

Примітки:

• Буде лише один «кишеньковий».
• Дозволено відстеження нових рядків або пробілів після рядків.
• Решта сітки також може містити символи з MYPOCKET, але не таким чином, що робить форму кільця неоднозначною.
• The M не завжди в правому верхньому куті.
• "Кишеньковий" може рухатися як за годинниковою стрілкою, так і проти годинникової стрілки.
• "Кишеньковий" не рухатиметься по діагональних напрямках - тобто кожна буква підключається ліворуч, праворуч, вгору або вниз до наступної.

Ось ще один вхід, з яким можна протестувати свою програму.

Приклад введення

EKCYMOPD
KCOPHAYM
EKNDSEST
JETHACKE
KRMYPOBN

Приклад Вихід

  HA
NDSES
 HA

Перл 5, 414

map{$y=0;push@{$h{$_}},[$-,$y++]for@$_;$-++}@l=map[/./g],<>;sub n{($a,$b,$c,$d)=@_;$a==$c&&1==abs$b-$d||$b==$d&&1==abs$a-$c}sub c{my($x,$y,$n)=@_;for(grep{($f=defined$x)?n$x,$y,@$_:1}@{$h{(MYPOCKET=~/./g)[$n%8]}}){($m,$l)=@$_ if!$f;return@r=([@$_],@r)if$n>2&&n(@$_,$m,$l)||c(@$_,$n+1)}''}c;$l[$_->[0]][$_->[1]]=$" for@r;($l[$_]=join'',@{$l[$_]})=~s/^(\w+)\s|\s(\w+)$/$"x($1||$2)=~y%%%c/eg for 0..@l;print join$/,@l

Використання: збережіть як pocket.pl і запустіть з:

perl pocket.pl <<< '<grid>'

Я взяв на себе рекурсивну функцію, щоб грубо прокласти шлях, який, можливо, був не найкращим, але це був перший підхід, який я розглядав.

Хоча це працює для обох поточних тестових випадків, є деякі застереження:

• він включає провідні пробіли (про які я не бачив згаданих у правилах ...); і
• це точно не буде працювати з "кишенею", яка містить символи посередині (скажімо, у формі U або подібних).

Я хочу продовжувати роботу над цим, але хотів показати, що питання є зацікавленим! Раді задокументувати мій процес, якщо це корисно.

Python 2.7 571 542 509

import sys
o,l,v,k,w="MYPOCKET",[list(e)for e in sys.stdin],[],enumerate,len
def f(z,q,t):
 for r,c in(z,q+1),(z,q-1),(z+1,q),(z-1,q):
  if w(l)>r>=0 and 0<=c<w(l[r])and o[t]==l[r][c]:
    v.append((r,c))
    if f(r,c,(t+1)%w(o)):return 1
    else:v.pop()
 if z==1 and(0,q)in v or z==0 and(z,q+1)in v:return 1
for i,x in k(l[0]):
 v=[(0,i)]
 if x==o[0]and f(0,i,1):break
for i in range(1,w(l)-1):b=[y for x,y in sorted(v)if x==i];print"".join(["".join(e)if w(e)>0 else" "for e in[l[i][b[j-1]+1:y]for j,y in k(b)][1:]])

Працює як програма (базуючись на рекурсивній функції) і приймає вхід від stdin.
Демо тут.
Тестуючи його ( ex1.txtі ex2.txtце приклади із запитання) -

$ python pockets.py < ex1.txt
F
BND
EUF
SNDUW
BOVUV
ENWF
$ python pockets.py < ex2.txt 
  HA 
NDSES
 HA  

Невикористана версія з коментарями -

s="""
EKCYMOPD
KCOPHAYM
EKNDSEST
JETHACKE
KRMYPOBN
"""
li2=[list(e.strip()) for e in s.split("\n") if e.strip()!='']
buf=[]
def find_precious(row, col, c_ind):
    for r,c in[(row,col+1),(row,col-1),(row+1,col),(row-1,col)]:
        if len(li2)>r>=0 and 0<=c<len(li2[r]) and seq[c_ind]==li2[r][c]:
            if (r,c)in buf:return True
            buf.append((r,c))
            if find_precious(r,c,(c_ind+1)%len(seq)):return True
            else:buf.pop()
    if row==1 and (row-1,col) in buf or row==0 and (row,col+1) in buf:return True
    return False

for i,x in enumerate(li2[0]):
    if x==seq[0]:
        buf=[(0,i)]
        if find_precious(0,i,1):break
if len(buf)==1:
    exit("Failed")

#Calculate the middle men
for i in range(1,len(li2)-1):
    b=[y for x,y in sorted(buf)if x==i]
    print "".join(["".join(e)for e in [li2[i][b[j-1]+1:y]for j,y in enumerate(b)][1:]if len(e)>0])

Дайте мені знати, якщо я зробив щось дурне або щось можна зробити краще.
Я знаю, що це довго, але це найкраще, що я міг зробити: P