Encontre o Papai Noel e suas renas em uma cena lotada.

Entrada

A entrada estará em STDIN e será um número variável de linhas de caracteres de comprimento igual, mas variável. Se o Papai Noel (representado pelo personagem S) estiver em cena, seu saco de presentes (representado pelo personagem P) estará em uma das posições adjacentes a ele (horizontal, vertical ou diagonal). Suas renas (cada uma representada pelo personagem R) estarão todas dentro do quadrado 5x5 ao seu redor. Se um Saparece na cena que não tem um saco de presentes ou não é acompanhado por pelo menos quatro renas, então não é o Papai Noel.

Resultado

A cena limpa de toda ofuscação (todos os personagens que não são do Papai Noel, presentes ou não-renas são substituídos por um espaço), mostrando Papai Noel, seu saco de presentes e sua rena - todos os outros personagens devem ser substituídos por espaços. Se o Papai Noel e suas renas não estiverem em cena, produza-os inalterados. É garantido que haverá apenas uma solução; portanto, nunca haverá mais de um Papai Noel válido e ele nunca estará carregando mais de um saco de presentes.

Exemplos

Nestes exemplos Estou apenas usando o *personagem para torná-lo fácil de ver S, Pe Rpersonagens, mas o seu programa deve ser capaz de lidar com qualquer caracteres ASCII a partir !de `(33 a 96). Eu deixei de fora caracteres minúsculos e acima para evitar confusão.

Entrada:

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

Saída: (ignore pontos, eles devem forçar a página a mostrar as linhas em branco)

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

Entrada: (rena insuficiente)

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

Resultado:

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

Entrada: (sem saco de presentes)

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

Resultado:

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

Entrada: (apresenta não perto o suficiente)

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

Resultado:

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

Entrada: (uma das renas fora do quadrado 5x5 em torno do Papai Noel)

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

Resultado:

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

Scripts de teste

Como em algumas das minhas perguntas anteriores, mais uma vez massacrei alguns scripts de teste criados originalmente por Joey e Ventero para fornecer alguns casos de teste para esta pergunta:

• bater
• Powershell

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

Versão em texto sem formatação dos testes para referência: Texto sem formatação

Recompensas

Cada entrada que eu possa verificar que atenda às especificações, passa nos testes e obviamente teve alguma tentativa de jogar golfe receberá um voto positivo de mim (por isso, forneça instruções de uso com sua resposta). A solução mais curta até o final de 31/12/2013 será aceita como vencedora.

MATLAB: 110 , 95 caracteres

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

Não tenho certeza sobre como a entrada deve ser processada, mas o resto é bem direto.

Versão normalmente formatada:

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

Exemplo de entrada:

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]

Primeira tentativa de escrever o código o mais compacto possível. Python não é realmente a linguagem para isso, pois o recuo e as novas linhas são simplesmente exigidos pelo design. Eu escolho principalmente usar esse idioma, devido à maneira como você pode brincar com listas e cordas como listas. Uma linguagem com fácil manipulação de matriz seria ideal para esta tarefa, mas, infelizmente, não conheço nenhuma delas.

Para testar algo, algo precisa ser atribuído a um, por exemplo

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

A principal coisa interessante neste código é provavelmente:

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)]]]

que é uma maneira elegante de escrever: "b se torna uma lista de uma representação (sequência de 25 caracteres) de cada quadrado de 5x5 na representação original".

Deve haver apenas um Papai Noel no arquivo (se houver mais de 2 "S", preciso atualizar o código).

Usando 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
                }
           }
    }

Execute o comando awk como abaixo

awk -f santa.awk file

Resultado

found Santa



     R
    R R
    PS
    RR
    R  R