Retrouvez le Père Noël et ses rennes dans une scène bondée.

Contribution

L'entrée se fera sur STDIN et sera un nombre variable de lignes de caractères de longueur égale mais variable. Si le Père Noël (représenté par le personnage S) est dans la scène, son sac de cadeaux (représenté par le personnage P) sera dans l'une des positions adjacentes à lui (horizontalement, verticalement ou en diagonale). Ses rennes (chacun représenté par le personnage R) seront tous dans le carré 5x5 qui l'entoure. Si un Sapparaît dans la scène qui n'a pas de sac de cadeaux ou n'est pas accompagné d'au moins 4 rennes, alors ce n'est pas le Père Noël.

Production

La scène a été débarrassée de tout obscurcissement (tous les personnages non-Père Noël, non-présents, non-rennes remplacés par un espace), montrant le Père Noël, son sac de cadeaux et son renne - tous les autres personnages doivent être remplacés par des espaces. Si le Père Noël et ses rennes ne sont pas dans la scène, sortez-les inchangés. Il est garanti qu'il n'y aura qu'une seule solution, il n'y aura donc jamais plus d'un Père Noël valide et il ne transportera jamais plus d'un sac de cadeaux.

Exemples

Dans ces exemples , je suis juste en utilisant le *caractère pour le rendre facile de voir les S, Pet les Rcaractères, mais votre programme devrait être capable de gérer tous les caractères ascii de !à `(33 à 96). J'ai omis les caractères minuscules et supérieurs pour éviter toute confusion.

Contribution:

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

Sortie: (ignorer les points, ils doivent forcer la page à afficher les lignes vides)

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

Entrée: (pas assez de rennes)

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

Production:

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

Entrée: (pas de sac de cadeaux)

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

Production:

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

Entrée: (présente pas assez proche)

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

Production:

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

Entrée: (l'un des rennes n'est pas dans le carré 5x5 autour du Père Noël)

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

Production:

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

Scripts de test

Comme dans certaines de mes questions précédentes, j'ai une fois de plus massacré des scripts de test créés à l'origine par Joey et Ventero pour fournir des cas de test pour cette question:

• frapper
• Powershell

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

Version en texte brut des tests pour référence: texte en clair

Récompenses

Chaque entrée dont je peux vérifier qu'elle répond aux spécifications, réussit les tests et a évidemment eu une tentative de golf recevra un vote positif de ma part (veuillez donc fournir des instructions d'utilisation avec votre réponse). La solution la plus courte d'ici la fin du 31/12/2013 sera acceptée comme gagnante.

MATLAB: 110 , 95 caractères

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

Je ne suis pas sûr de la façon dont l'entrée est censée être traitée, mais le reste est assez simple.

Version normalement formatée:

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

Exemple d'entrée:

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]

Première tentative d'écriture de code aussi compact que possible. Python n'est pas vraiment le langage pour cela, car l'indentation et les nouvelles lignes sont simplement requis par la conception. J'ai principalement choisi d'utiliser cette langue, en raison de la façon dont vous pouvez jouer avec des listes et des chaînes sous forme de listes. Un langage avec une manipulation aisée de la matrice serait idéal pour cette tâche, mais malheureusement je n'en connais aucun.

Pour tester quelque chose, quelque chose doit être assigné à un, par exemple

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

La principale chose intéressante dans ce code est probablement:

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

qui est une façon d'écrire de fantaisie: "b devient une liste d'une représentation (chaîne de 25 caractères) de chaque carré 5x5 dans la représentation originale".

Il ne devrait y avoir qu'un seul Père Noël dans le fichier (si plus de 2 "S", j'ai besoin de mettre à jour le code).

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

Exécutez la commande awk comme ci-dessous

awk -f santa.awk file

Résultat

found Santa



     R
    R R
    PS
    RR
    R  R