ล้มกำแพงในเขาวงกต

กฎ:

ในเกมนี้คุณเริ่มต้นที่ด้านบนของตารางสี่เหลี่ยมที่มีขนาด N x M ประกอบด้วยผนังและพื้นที่เปิดโล่ง อินพุตคือ N บรรทัดของอักขระ M โดยที่ a .ระบุพื้นที่เปิดโล่งและ a xระบุกำแพง โปรแกรมของคุณควรส่งออกจำนวน K ที่น้อยที่สุดซึ่งมีเส้นทางจากมุมบนซ้ายไปยังมุมขวาล่าง (ไม่มีเส้นทแยงมุม) ที่ข้ามกำแพง K

ตัวอย่างเช่นกำหนดอินพุต:

..x..
..x..
xxxxx
..x..
..x..

2โปรแกรมของคุณควรเอาท์พุท

ตัวอย่างอื่น ๆ :

ผลลัพธ์4:

xxxxx
x.x.x
x.x.x
x..xx

ผลลัพธ์0:

.xxxxxxxx
.x...x...
.x.x.x.x.
.x.x...x.
...xxxxx.

ผลลัพธ์6:

xx
xx
xx
xx
xx

เกร็ดความรู้เพิ่มเติม:

ถ้ามันทำให้ชีวิตของคุณง่ายขึ้นคุณสามารถระบุ N และ M เป็นพารามิเตอร์บรรทัดคำสั่ง

เครดิตพิเศษหากคุณสามารถให้โปรแกรมของคุณพิมพ์เส้นทางในบางรูปแบบหรืออื่น ๆ

ทับทิม 1.9 (235) (225) (222) (214)

ฉันไม่รู้ว่านี่สั้นกว่าโปรแกรมที่ใช้ Dijkstra หรือไม่ แต่ฉันคิดว่าฉันจะลองใช้วิธีอื่น สิ่งนี้ใช้ regex ในการวนรอบเพื่อทำเครื่องหมายแต่ละช่องว่างด้วยจำนวนกำแพงน้อยที่สุดที่ต้องใช้ในการเข้าถึง

w=".{#{/\s/=~s=$<.read}}?"
j="([.x])"
s[0]=v=s[0]<?x??0:?1
(d=v[-1];n=v.succ![-1]
0while(s.sub!(/#{j}(#{w+d})/m){($1<?x?d: n)+$2}||s.sub!(/(#{d+w})#{j}/m){$1+($2<?x?d: n)}))while/#{j}/=~q=s[-2]
p v.to_i-(q==n ?0:1)

อินพุตถูกระบุเป็นไฟล์บนบรรทัดคำสั่งเช่น

> ruby1.9.1 golf.rb maze.txt

Ungolfed:

# read in the file
maze = $<.read

# find the first newline (the width of the maze)
width = /\s/ =~ maze

# construct part of the regex (the part between the current cell and the target cell)
spaces = ".{#{width}}?"

# construct another part of the regex (the target cell)
target = "([.x])"

# set the value of the first cell, and store that in the current wall count
maze[0] = walls = (maze[0] == "x" ? "1" : "0")

# loop until the goal cell is not "." or "x"
while /#{target}/ =~ (goal = s[-2])

  # store the current wall count digit and the next wall count digit, while incrementing the wall count
  current = walls[-1]; next = walls.succ![-1]

  # loop to set all the reachable cells for the current wall count
  begin

    # first regex handles all cells above or to the left of cells with the current wall count
    result = s.sub!(/#{target}(#{spaces + current})/m) {
      ($1 == 'x' ? next : current) + $2
    }

    # second regex handles all cells below or to the right of cells with the current wall count
    result = result || s.sub!(/(#{current + spaces})#{target}/m) {
      $1 + ($2 == 'x' ? next : current)
    }
  end while result != nil
end

# we reached the goal, so output the wall count if the goal was a wall, or subtract 1 if it wasn't
puts walls.to_i - (goal == next ? 0 : 1)

Perl 5.10 (164)

undef$/;$_=<>;/\n/;$s="(.{$-[0]})?";substr$_,0,1,($n=/^x/||0);
until(/\d$/){1while s/([.x])($s$n)/$n+($1eq x).$2/se
+s/$n$s\K[.x]/$n+($&eq x)/se;$n++}
/.$/;print"$&\n"

ตามแนวเดียวกับโซลูชันของ migimaru มากด้วยการสัมผัส Perl พิเศษเท่านั้น 5.10 เป็นสิ่งจำเป็นสำหรับใน\Ks///

Python 406 378 360 348 418 ตัวอักษร

import sys
d={}
n=0
for l in open(sys.argv[1]):
 i=0
 for c in l.strip():m=n,i;d[m]=c;i+=1
 n+=1
v=d[0,0]=int(d[0,0]=='x')
X=lambda *x:type(d.get(x,'.'))!=str and x
N=lambda x,y:X(x+1,y)or X(x-1,y)or X(x,y+1)or X(x,y-1)
def T(f):s=[(x,(v,N(*x))) for x in d if d[x]==f and N(*x)];d.update(s);return s
while 1:
 while T('.'):pass
 v+=1
 if not T('x'):break
P=[m]
s,p=d[m]
while p!=(0,0):P.insert(0,p);x,p=d[p]
print s, P

ประยุกต์ Dijkstra เนื่องจากการเคลื่อนไหวที่มีน้ำหนักอยู่บนxสนาม มันทำใน "คลื่น" วงแรกที่มีการค้นหา.เขตข้อมูลที่สัมผัสด้านหน้าและตั้งพวกเขาในน้ำหนักเดียวกันกว่าหนึ่งครั้งพบว่าxทุ่งสัมผัสด้านหน้าและตั้งพวกเขาใน+1น้ำหนัก ทำซ้ำในขณะที่ไม่มีฟิลด์ที่ไม่ได้เข้าชมอีกต่อไป

ในตอนท้ายเรารู้น้ำหนักของทุกสนาม

อินพุตถูกระบุเป็นไฟล์บนบรรทัดรับคำสั่ง:

python m.py m1.txt

อัพเดท:พิมพ์เส้นทาง

รุ่น C ++ (610 607 606 584)

#include<queue>
#include<set>
#include<string>
#include<iostream>
#include<memory>
#define S second
#define X s.S.first
#define Y s.S.S
#define A(x,y) f.push(make_pair(s.first-c,make_pair(X+x,Y+y)));
#define T typedef pair<int
using namespace std;T,int>P;T,P>Q;string l;vector<string>b;priority_queue<Q>f;set<P>g;Q s;int m,n,c=0;int main(){cin>>m>>n;getline(cin,l);while(getline(cin,l))b.push_back(l);A(0,0)while(!f.empty()){s=f.top();f.pop();if(X>=0&&X<=m&&Y>=0&&Y<=n&&g.find(s.S)==g.end()){g.insert(s.S);c=b[X][Y]=='x';if(X==m&&Y==n)cout<<-(s.first-c);A(1,0)A(-1,0)A(0,1)A(0,-1)}}}

ใช้อัลกอริทึมของ Dijkstra

ยกเลิกแข็งแรงเล่นกอล์ฟ:

#include<queue>
#include<set>
#include<string>
#include<iostream>
#include<memory>

using namespace std;
typedef pair<int,int>P;
typedef pair<int,P>Q;

int main()
{
    int             m,n;
    string          line;
    vector<string>  board;

    cin >> m >> n;getline(cin,l);
    while(getline(cin,line))
    {
        board.push_back(line);
    }

    priority_queue<Q>   frontList;
    set<P>              found;
    frontList.push(make_pair(0,make_pair(0,0)));
    while(!frontList.empty())
    {
        Q s=frontList.top();
        frontList.pop();
        if(   s.second.first>=0
           && s.second.first<=m
           && s.second.second>=0
           && s.second.second<=n
           && found.find(s.second)==found.end()
        )
        {
            found.insert(s.second);
            int c=board[s.second.first][s.second.second]=='x';
            if(  s.second.first==m
              && s.second.second==n
            )
            {   cout<<-(s.first-c);
            }
            frontList.push(make_pair(s.first-c,make_pair(s.second.first+1,s.second.second)));
            frontList.push(make_pair(s.first-c,make_pair(s.second.first-1,s.second.second)));
            frontList.push(make_pair(s.first-c,make_pair(s.second.first,s.second.second+1)));
            frontList.push(make_pair(s.first-c,make_pair(s.second.first,s.second.second-1)));
        }
    }
}