Tìm ông già Noel và chú tuần lộc của mình trong một khung cảnh đông đúc.

Đầu vào

Đầu vào sẽ nằm trên STDIN và sẽ là một số lượng các dòng ký tự có độ dài bằng nhau, nhưng thay đổi. Nếu ông già Noel (được đại diện bởi nhân vật S) có mặt trong cảnh đó, bao tải quà của ông (được đại diện bởi nhân vật P) sẽ ở một trong những vị trí liền kề với ông (theo chiều ngang, chiều dọc hoặc đường chéo). Tuần lộc của anh ấy (mỗi người được đại diện bởi nhân vật R) tất cả sẽ ở trong quảng trường 5x5 bao quanh anh ấy. Nếu Sxuất hiện trong cảnh không có bao tải quà tặng, hoặc không có ít nhất 4 con tuần lộc, thì đó không phải là ông già Noel.

Đầu ra

Khung cảnh xóa sạch mọi sự xáo trộn (tất cả các nhân vật không phải ông già Noel, không phải quà tặng, không tuần lộc được thay thế bằng một khoảng trống), cho thấy ông già Noel, bao tải quà và tuần lộc của ông - tất cả các nhân vật khác nên được thay thế bằng không gian. Nếu ông già Noel và tuần lộc không có mặt, hãy xuất ra nó không thay đổi. Nó được đảm bảo rằng sẽ chỉ có một giải pháp, vì vậy sẽ không bao giờ có nhiều hơn một ông già Noel hợp lệ và ông sẽ không bao giờ mang nhiều hơn một bao quà.

Ví dụ

Trong những ví dụ tôi chỉ sử dụng các *nhân vật để làm cho nó dễ dàng để xem S, Pvà Rký tự, nhưng chương trình của bạn sẽ có thể xử lý bất kỳ ký tự ascii từ !đến `(33-96). Tôi đã bỏ các ký tự chữ thường trở lên để tránh nhầm lẫn.

Đầu vào:

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

Đầu ra: (bỏ qua các dấu chấm, chúng buộc trang hiển thị các dòng trống)

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

Đầu vào: (không đủ tuần lộc)

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

Đầu ra:

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

Đầu vào: (không có bao quà)

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

Đầu ra:

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

Đầu vào: (quà không đủ gần)

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

Đầu ra:

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

Đầu vào: (một trong những con tuần lộc không nằm trong quảng trường 5x5 quanh Santa)

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

Đầu ra:

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

Kiểm tra tập lệnh

Như trong một số câu hỏi trước đây của tôi, một lần nữa tôi đã tìm hiểu một số tập lệnh kiểm tra do Joey và Ventero tạo ra để cung cấp một số trường hợp kiểm tra cho câu hỏi này:

• bash
• Quyền hạn

Sử dụng: ./test [your program and its arguments]

Phiên bản văn bản thuần túy của các bài kiểm tra để tham khảo: Văn bản thuần túy

Phần thưởng

Mỗi mục mà tôi có thể xác minh đáp ứng thông số kỹ thuật, vượt qua các bài kiểm tra và rõ ràng đã có một số nỗ lực chơi gôn sẽ nhận được một upvote từ tôi (vì vậy vui lòng cung cấp hướng dẫn sử dụng với câu trả lời của bạn). Giải pháp ngắn nhất vào cuối ngày 31/12/2013 sẽ được chấp nhận là người chiến thắng.

MATLAB: 110 , 95 ký tự

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

Không chắc chắn về cách xử lý đầu vào, nhưng phần còn lại khá đơn giản.

Phiên bản thường được định dạng:

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

Ví dụ đầu vào:

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

Con trăn 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]

Lần đầu tiên cố gắng viết mã càng nhỏ gọn càng tốt. Python không thực sự là ngôn ngữ cho điều đó, vì thụt lề và dòng mới chỉ đơn giản là yêu cầu thiết kế. Tôi chủ yếu chọn sử dụng ngôn ngữ này, vì cách bạn có thể chơi với danh sách và chuỗi dưới dạng danh sách. Một ngôn ngữ với thao tác ma trận dễ dàng sẽ là lý tưởng cho nhiệm vụ này, nhưng thật đáng buồn là tôi không biết bất kỳ ngôn ngữ nào trong số đó.

Để kiểm tra điều, một cái gì đó cần phải được gán cho một, ví dụ

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

Điều thú vị chính trong mã này có lẽ là:

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

đó là một cách viết lạ mắt: "b trở thành một danh sách đại diện (chuỗi 25 ký tự) của mỗi ô vuông 5x5 trong biểu diễn ban đầu".

Chỉ nên có một ông già Noel trong tệp (nếu có nhiều hơn 2 "S", tôi cần cập nhật mã).

Sử dụng 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
                }
           }
    }

Chạy lệnh awk như dưới đây

awk -f santa.awk file

Kết quả

found Santa



     R
    R R
    PS
    RR
    R  R