Znajdź Świętego Mikołaja i jego renifery w zatłoczonej scenie.

Wejście

Dane wejściowe będą na STDIN i będą zmienną liczbą wierszy znaków o jednakowej, ale zmiennej długości. Jeśli Święty Mikołaj (reprezentowany przez postać S) jest na scenie, jego worek prezentów (reprezentowany przez postać P) będzie na jednej z sąsiadujących z nim pozycji (poziomo, pionowo lub po przekątnej). Jego renifery (każdy reprezentowany przez postać R) będą znajdować się wokół otaczającego go kwadratu 5x5. Jeśli Sna scenie pojawi się coś , co nie ma worka prezentów lub nie towarzyszy mu co najmniej 4 reniferów, to nie jest to Święty Mikołaj.

Wynik

Scena została oczyszczona z wszelkich zaciemnień (wszystkie postacie inne niż Święty Mikołaj, nie-prezenty, nierenifery zastąpione spacją), przedstawiające Świętego Mikołaja, jego worek prezentów i jego renifery - wszystkie inne postacie należy zastąpić spacjami. Jeśli Świętego Mikołaja i jego renifera nie ma na scenie, wyjmij go bez zmian. Gwarantujemy, że będzie tylko jedno rozwiązanie, więc nigdy nie będzie więcej niż jednego ważnego Świętego Mikołaja i nigdy nie będzie nosił więcej niż jednego worka prezentów.

Przykłady

W tych przykładach Ja tylko używając *charakter sprawiają, że łatwo zobaczyć S, Pi Rznaki, ale program powinien być w stanie obsłużyć każdy znak ASCII od !do `(33 do 96). Pominąłem małe litery i powyżej, aby uniknąć nieporozumień.

Wejście:

***********
***********
***********
*****R*****
******P****
*****S*****
*****R*****
****R**R***
***********
***********
***********
***********

Dane wyjściowe: (ignoruj ​​kropki, aby zmusić stronę do wyświetlania pustych linii)

.           
.          
.           
     R     
      P    
     S     
     R     
    R  R   
.           
.           
.           
.           

Wkład: (za mało reniferów)

***********
***********
***********
***********
******P****
*****S*****
*****R*****
****R**R***
***********
***********
***********
***********

Wynik:

***********
***********
***********
***********
******P****
*****S*****
*****R*****
****R**R***
***********
***********
***********
***********

Wejście: (bez worka prezentów)

***********
***********
***********
*****R*****
***********
*****S*****
*****R*****
****R**R***
***********
***********
***********
***********

Wynik:

***********
***********
***********
*****R*****
***********
*****S*****
*****R*****
****R**R***
***********
***********
***********
***********

Dane wejściowe: (prezenty nie są wystarczająco blisko)

***********
***********
***********
*****R*****
***********
*****S*P***
*****R*****
****R**R***
***********
***********
***********
***********

Wynik:

***********
***********
***********
*****R*****
***********
*****S*P***
*****R*****
****R**R***
***********
***********
***********
***********

Wejście: (jeden z reniferów poza polem 5x5 wokół Świętego Mikołaja)

***********
***********
***********
*****R*****
******P****
*****S*****
*****R*****
****R******
*******R***
***********
***********
***********

Wynik:

***********
***********
***********
*****R*****
******P****
*****S*****
*****R*****
****R******
*******R***
***********
***********
***********

Skrypty testowe

Podobnie jak w niektórych moich poprzednich pytaniach, po raz kolejny opracowałem skrypty testowe pierwotnie stworzone przez Joeya i Ventero, aby zapewnić kilka przypadków testowych dla tego pytania:

• grzmotnąć
• PowerShell

Stosowanie: ./test [your program and its arguments]

Wersja testu z tekstem jawnym : tekst zwykły

Nagrody

Każdy wpis, który mogę zweryfikować, który spełnia specyfikację, przechodzi testy i oczywiście miał pewne próby gry w golfa, otrzyma ode mnie opinię (więc proszę o podanie instrukcji użytkowania wraz z odpowiedzią). Najkrótsze rozwiązanie do końca 31.12.2013 zostanie zaakceptowane jako zwycięzca.

MATLAB: 110 , 95 znaków

f=@(x,y) filter2(ones(x),y);a=M==83;b=M==82;c=M==80;d=f(5,a&f(5,b)>3&f(3,c))&(a|b|c);if ~d,M,else,M(~d)=32,end

Nie jestem pewien, w jaki sposób dane wejściowe powinny być przetwarzane, ale reszta jest dość prosta.

Wersja normalnie sformatowana:

f=@(x,y) filter2(ones(x),y);
a=M==83;
b=M==82;
c=M==80;
d=f(5,a&f(5,b)>3&f(3,c))&(a|b|c);
if ~d
  M
else
  M(~d)=32
end

Przykładowe dane wejściowe:

M=['***********'
'***********'
'***********'
'*****R*****'
'******P****'
'*****SQL_2*'
'*****R*****'
'****R**R***'
'***********'
'***********'
'***********'
'***********'];

Python 2 ( 353 381)

import re,sys
a=sys.stdin.readlines()
h=len(a)
w=len(a[0])
a=''.join(a)+' '*99
print a
b=[''.join(q) for x in range(0,w) for y in range(0,h) for q in [[a[(y+z)*w+x:(y+z)*w+x+5] for z in range(0,5)]]]
for c in b:
 if c[12]=='S' and 'P' in ''.join([c[1+5*z:4+5*z] for z in range(1,4)]) and c.count('R')>3:
  a=re.sub('[^RPS]','.',c)
  w=h=5
for y in range(0,h):
 print a[y*w:(y+1)*w]

Pierwsza próba napisania kodu tak kompaktowego, jak to możliwe. Python nie jest tak naprawdę językiem do tego, ponieważ wcięcia i znaki nowej linii są po prostu wymagane przez projekt. Głównie wybieram używanie tego języka, ze względu na sposób, w jaki możesz grać z listami i ciągami jako listami. Język z łatwą obsługą macierzy byłby idealny do tego zadania, ale niestety nie znam żadnego z nich.

Aby przetestować, coś należy przypisać np

a=['1**********','*2*********','**3********','***4*******','****5*P****','*****S*****','*****,*****','****R**R***','***********','***********','****R******','**RPSRRR***']

Główną interesującą rzeczą w tym kodzie jest prawdopodobnie:

b=[''.join(q) for x in range(0,w) for y in range(0,h) for q in [[a[(y+z)*w+x:(y+z)*w+x+5] for z in range(0,5)]]]

co jest fantazyjnym sposobem pisania: „b staje się listą reprezentacji (ciąg 25 znaków) każdego kwadratu 5x5 w oryginalnej reprezentacji”.

W pliku powinien znajdować się tylko jeden Święty Mikołaj (jeśli więcej niż 2 „S”, potrzebuję zaktualizować kod).

Korzystanie z awk

cat santa.awk

BEGIN{FS=""}
{ for (i=1;i<=NF;i++)
         { a[NR FS i]=$i
           if ($i=="S") {l=NR;c=i}
         }
     }
END{ if (l=="") {print "No Santa";exit}
     for (i=l-1;i<=l+1;i++)
        for (j=c-1;j<=c+1;j++)
          if (a[i FS j]=="P") p++
     if (p<1) {print "Santa has no presents";exit}
     for (i=l-2;i<=l+2;i++)
        for (j=c-2;j<=c+2;j++)
          if (a[i FS j]=="R") r++
     if (r<4) {print "Santa has no enough reindeers";exit}
     else {  print "found Santa "
             for (i=1;i<=NR;i++)
               { for (j=1;j<=NF;j++)
                   if (a[i FS j]~/[R|S|P]/) {printf a[i FS j]} else {printf " "}
                 printf RS
                }
           }
    }

Uruchom komendę awk jak poniżej

awk -f santa.awk file

Wynik

found Santa



     R
    R R
    PS
    RR
    R  R