问科学家海豹困在冰山上
EN

Code Golf用户

提问于 2015-05-11 17:28:34

回答 1查看 588关注 0票数 17

Introduction

一家海豹被困在北极圈的冰山上。冰山上有一个无线电发射机，海豹可以用它来呼救。然而，只有爸爸的海豹知道如何操作无线电发射机。更糟糕的是，一年中的这个时候，冰非常滑，所以海豹会失控地滑行，直到它们撞到另一只海豹或者从冰山边缘滑落，这使得爸爸海豹很难到达无线电发射机。幸运的是，其中一只海豹是一位计算机科学家，所以她决定编写一个程序，想出如何将爸爸的封条操纵到无线电发射机上。由于冰上没有足够的空间来编写程序，她决定让程序使用尽可能少的字节。

输入描述

海豹的程序将接受来自STDIN、命令行参数或用户输入函数(如raw_input())的输入。它不能在变量中预先初始化(例如：“此程序期望变量x中的输入”)。

输入的第一行由两个以逗号分隔的整数组成。

A,B

下面是由每个B字符组成的A行。每一行只能包含下列字符：

.：寒冷，寒冷，海洋。地图上永远都有这条边界。
#：冰山的一部分。
a.z：一只不是冰山上的爸爸印章的海豹。
D：冰山上的爸爸封印。
*：无线电发射机。

(请注意，爸爸印章总是用大写字母D标注的。小写d只是一个普通的印章。)

输出描述

根据下面关于海豹如何移动的规则，输出一份关于封条应该如何移动的指令列表，以便把爸爸的封条送到无线电发射机。

规则:所有封条都可以向上(U)、向下(D)、左(L)和右(R)移动。他们不能斜滑。
规则:一只海豹在移动时会继续向同一方向移动，直到它与另一只海豹相撞或掉进海里。
1. 如果一只海豹与另一只海豹相撞，它就会停止移动。它与之相撞的封印不会移动。
2. 如果海豹掉进海里，它就会淹死，从地图上消失。也就是说，它不是其他封条的对撞机，也不能再移动。
规则:两只海豹不能同时移动，在另一只还在移动的时候，印章也不能移动。下一个印章只能在先前的印章停止移动后才能移动。
规则:不限制多次移动海豹，也不限制溺水的海豹数量。
规则:正确的解决方案将在无线电发射机的爸爸密封端。爸爸的密封不能简单地通过发射机，同时滑动。

输出将由几行组成，每一行的形式如下：

A,B

其中A是要移动的印章(D代表爸爸印章，a.z代表其他人)，B是移动印章的方向( U、D、L或R)。请注意，您不需要找到最短的路线。任何让爸爸封印到目标的路线都是可以接受的输出。

示例输入和输出

输入：

25,5
.........................
.#######################.
.####D#############*k###.
.#######################.
.........................

输出：

D,R

输入：

9,7
.........
.a#####b.
.#####d#.
.##l*###.
.###m#p#.
.#D#.#c#.
.........

产出(多项产出中的一项)：

m,R
b,L
D,U
D,R
D,D
D,L

输入：

26,5
..........................
.###..................###.
.l*##########v#########D#.
.###..................###.
..........................

产出(多项产出中的一项)：

v,D
D,L

如果您有任何其他问题，请在评论中提出。

code-golf

回答 1

Code Golf用户

回答已采纳

发布于 2015-05-11 22:14:15

Python 3,520字节

R=range
g=[list(input())for i in R(int(input().split(',')[1]))]
f=set(sum(g,[]))-set(".#*")
L=8
def P(p,g):
 if len(p)>L:return
 for s in f:
  c=sum(y.index(s)for y in g if s in y)
  if c<1:continue
  r,=[n for n in R(len(g))if s in g[n]]
  for d in R(4):
   m=p+s+",%s\n"%"LURD"[d];G=[y[:]for y in g];o="#";i,j=I,J=r,c
   while"#"==o:G[i][j]="#";G[I][J]=s;i,j=I,J;I,J=i+d%2*(d-2),j+(~d%-2&d-1);o=G[I][J]
   if"."==o:G[i][j]="#"
   if"D"==s:
    if"."==o:continue
    if"*"==o:print(m);1/0
   P(m,G)
while 1:P("",g);L+=4