Finde den Weihnachtsmann und sein Rentier in einer überfüllten Szene.

Eingang

Die Eingabe erfolgt auf STDIN und ist eine variable Anzahl von Zeichenzeilen gleicher, aber variabler Länge. Wenn sich der Weihnachtsmann (dargestellt durch den Charakter S) in der Szene befindet, befindet sich sein Sack mit Geschenken (dargestellt durch den Charakter P) in einer der ihm benachbarten Positionen (horizontal, vertikal oder diagonal). Sein Rentier (jedes durch den Charakter dargestellt R) wird sich alle innerhalb des ihn umgebenden 5x5-Quadrats befinden. Wenn eine Sin der Szene erscheint, die keinen Sack Geschenke hat oder nicht von mindestens 4 Rentieren begleitet wird, dann ist es nicht der Weihnachtsmann.

Ausgabe

Die Szene wurde von jeglicher Verschleierung befreit (alle Nicht-Weihnachtsmann-, Nicht-Geschenk-, Nicht-Rentier-Charaktere, die durch ein Leerzeichen ersetzt wurden) und zeigt den Weihnachtsmann, seinen Sack mit Geschenken und sein Rentier - alle anderen Charaktere sollten durch Leerzeichen ersetzt werden. Wenn der Weihnachtsmann und sein Rentier nicht in der Szene sind, geben Sie sie unverändert aus. Es ist garantiert, dass es nur eine Lösung gibt, es wird also nie mehr als einen gültigen Weihnachtsmann geben und er wird niemals mehr als einen Sack Geschenke tragen.

Beispiele

In diesen Beispielen verwende ich nur den *Charakter , um es die leicht zu machen , zu sehen S, Pund RZeichen, aber Ihr Programm soll beliebige ASCII - Zeichen aus zu handhaben können, !zu `(33 bis 96). Ich habe Kleinbuchstaben und höher weggelassen, um Verwirrung zu vermeiden.

Eingang:

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

Ausgabe: (Punkte ignorieren, sie sollen die Seite zwingen, die leeren Zeilen anzuzeigen)

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

Input: (nicht genug Rentiere)

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

Ausgabe:

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

Input: (kein Sack mit Geschenken)

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

Ausgabe:

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

Input: (Geschenke nicht nah genug)

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

Ausgabe:

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

Eingabe: (eines der Rentiere nicht innerhalb des 5x5 Quadrats um den Weihnachtsmann)

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

Ausgabe:

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

Testskripte

Wie in einigen meiner früheren Fragen habe ich auch hier einige Testskripte geschlachtet, die ursprünglich von Joey und Ventero erstellt wurden , um einige Testfälle für diese Frage bereitzustellen:

• Bash
• Power Shell

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

Klartextversion der Tests als Referenz: Klartext

Belohnung

Jeder Beitrag, bei dem ich nachprüfen kann, ob er der Spezifikation entspricht, die Tests besteht und offensichtlich einen Golfversuch unternommen hat, wird von mir positiv bewertet (bitte geben Sie die Verwendungsanleitung mit Ihrer Antwort an). Die kürzeste Lösung bis Ende 31.12.2013 wird als Sieger anerkannt.

MATLAB: 110 , 95 Zeichen

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

Ich bin mir nicht sicher, wie die Eingabe verarbeitet werden soll, aber der Rest ist ziemlich einfach.

Normal formatierte Version:

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

Beispiel Eingabe:

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]

Erster Versuch, Code so kompakt wie möglich zu schreiben. Python ist nicht wirklich die Sprache dafür, da Einrückungen und Zeilenumbrüche einfach vom Design verlangt werden. Ich habe mich hauptsächlich für diese Sprache entschieden, da man mit Listen und Strings als Listen spielen kann. Eine Sprache mit einfacher Matrixmanipulation wäre ideal für diese Aufgabe, aber leider kenne ich keine von ihnen.

Um etwas zu testen, muss etwas einem zugewiesen werden, z

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

Die wichtigste interessante Sache in diesem Code ist wahrscheinlich:

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

Dies ist eine ausgefallene Schreibweise: "b wird eine Liste einer Darstellung (Zeichenfolge mit 25 Zeichen) von jedem 5x5-Quadrat in der ursprünglichen Darstellung".

Es sollte nur ein Weihnachtsmann in der Datei sein (wenn mehr als 2 "S" vorhanden sind, muss der Code aktualisiert werden).

Awk benutzen

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

Führen Sie den Befehl awk wie folgt aus

awk -f santa.awk file

Ergebnis

found Santa



     R
    R R
    PS
    RR
    R  R