混雑したシーンでサンタと彼のトナカイを見つけてください。

入力

入力はSTDIN上にあり、長さは等しいが可変の文字の可変行数になります。サンタ（キャラクターで表されるS）がシーンにいる場合、プレゼントの袋（キャラクターで表されるP）は、彼に隣接する位置（水平、垂直、または斜め）のいずれかにあります。彼のトナカイ（キャラクターで表されるR）はすべて、彼を囲む5x5の正方形内にあります。Sプレゼントの袋がないシーン、または少なくとも4人のトナカイが同伴していないシーンに登場する場合は、サンタではありません。

出力

シーンはすべての難読化をクリアし（サンタ以外、プレゼントなし、トナカイ以外のキャラクターはすべてスペースに置き換えられます）、サンタ、プレゼントの袋、トナカイを表示します。他のすべてのキャラクターはスペースに置き換えられます。サンタとトナカイがシーンにない場合は、そのまま出力します。ソリューションは1つのみであることが保証されているため、有効なサンタが複数存在することはなく、プレゼントの袋を複数持ち歩くこともありません。

例

これらの例では、私はちょうど使用している*ことが容易に参照できるようにすること、文字をS、PとRの文字が、しかし、あなたのプログラムから任意のASCII文字を処理することができるはず!の`（96から33）。混乱を避けるため、小文字と上記の文字は省略しました。

入力：

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

出力：（ドットは無視し、ページに空白行を表示するように強制します）

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

入力：（十分なトナカイではありません）

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

出力：

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

入力：（プレゼントの袋なし）

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

出力：

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

入力：（十分近くにない）

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

出力：

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

入力：（サンタの周りの5x5の正方形内にないトナカイの1つ）

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

出力：

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

テストスクリプト

過去の質問のいくつかと同様に、JoeyとVenteroが元々作成したいくつかのテストスクリプトをもう一度処理して、この質問のテストケースを提供しました。

• バッシュ
• パワーシェル

使用法： ./test [your program and its arguments]

参照用のテストのプレーンテキストバージョン：プレーンテキスト

報酬

仕様を満たしていることを確認でき、テストに合格し、明らかにゴルフの試みを行った各エントリは、私から賛成票を受け取ります（そのため、使用方法を回答してください）。2013年12月31日の終わりまでに最短のソリューションが勝者として受け入れられます。

MATLAB：110、95文字

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

入力の処理方法については定かではありませんが、残りは非常に簡単です。

通常フォーマットされたバージョン：

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

入力例：

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]

できるだけコンパクトなコードを書く最初の試み。インデントと改行は設計上必要なだけなので、Pythonはそのための言語ではありません。リスト、および文字列をリストとして使用する方法から、主にこの言語を使用することを選択します。簡単なマトリックス操作を備えた言語はこのタスクに理想的ですが、残念ながら私はそれらのどれも知りません。

事をテストするには、何かを割り当てる必要があります。例えば

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

このコードの主な興味深い点は、おそらく次のとおりです。

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

「bは、元の表現の5x5の正方形ごとの表現（25文字の文字列）のリストになります」

ファイルにはサンタが1つしかありません（「S」が2つ以上ある場合は、コードを更新する必要があります）。

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

以下のようにawkコマンドを実行します

awk -f santa.awk file

結果

found Santa



     R
    R R
    PS
    RR
    R  R