Câu đố

• In 0 nếu không thể giải quyết được mê cung n * m
• In 1 nếu mê cung n * m có thể được giải quyết (bằng 1 hoặc nhiều cách)

(vì vậy tôi không yêu cầu đường dẫn nhưng nếu có thể giải quyết !!!)

Mảng đầu vào (2đ):

[[0,0,0,0,0,0,1],[0,0,0,0,0,1,0],[0,0,0,0,1,0,0],[1,0,0,0,0,0,0]]

XXXXXXXXX
XS     XX
X     X X
X    X  X
XX     FX
XXXXXXXXX

0 = can pass through
1 = can not pass trough
[0][n] is the last block of the first line
[m][0] is the first block of the last line

Quy tắc Vị trí bắt đầu là 0,0 và vị trí kết thúc là n, m Bạn chỉ có thể di chuyển theo chiều ngang và chiều dọc Mã ngắn nhất sẽ thắng

CJam, 42 41 39 36 35 byte

Wq3>~_s,{{[{_2$+0<{e<_}*}*]}%z}*sW=

Dựa trên những ý tưởng trong câu trả lời này .

4 byte nhờ Trình tối ưu hóa.

Định dạng đầu vào:

[[0 0 0 0 0 0 1] [0 0 0 0 0 1 0] [0 0 0 0 1 0 0] [1 0 0 0 0 0 0]]

APL Dyalog, 27 ký tự

⊃⌽∨.∧⍨⍣≡1≥+/¨|∘.-⍨,(~×⍳∘⍴)⎕

⎕đánh giá đầu vào. APL phân biệt giữa ma trận và vectơ vectơ. Chương trình này giả định rằng đầu vào là một ma trận.

(~×⍳∘⍴)Alà một ngã ba tương đương với (~A) × ⍳⍴A. Cần tránh nhắc đến ⎕hai lần hoặc giới thiệu một biến.

⍴Alà hình dạng của A. Đối với ma trận 4 nhân 7, hình dạng là 4 7.

⍳là trình tạo chỉ số. ⍳4là 1 2 3 4. ⍳4 7là các vectơ (1 1)(1 2)...(4 7)được sắp xếp theo ma trận 4 nhân 7.

~Alật các bit của A.

×bằng cách nhân ⍳⍴Avới các bit bị lật, chúng ta bảo toàn tọa độ của tất cả các ô tự do và biến tất cả các bức tường thành 0 0.

,phá hủy ma trận của các cặp tọa độ, tức là tuyến tính hóa nó thành một vectơ. Trong trường hợp này, vectơ sẽ bao gồm các cặp.

∘.-⍨Ahoặc A∘.-Atrừ các yếu tố của Acặp đôi. Lưu ý rằng ở đây các yếu tố của Achính họ là cặp.

| giá trị tuyệt đối

+/¨tổng hợp từng cặp giá trị tuyệt đối. Điều này cho chúng ta khoảng cách lưới giữa mỗi cặp ô trong mê cung, tiết kiệm cho các bức tường.

1≥chúng tôi chỉ quan tâm đến hàng xóm ở khoảng cách không quá 1, điều này cũng không bao gồm các bức tường. Bây giờ chúng ta có một ma trận kề của đồ thị.

∨.∧⍨⍣≡ Floyd - Thuật toán đóng bắc cầu của Warshall

(f⍣n)A(không được sử dụng ở đây) trong đó nmột số nguyên là toán tử công suất. Nó áp dụng fcho A nthời gian : f f ... f A.

(f⍣g)Atrong đó glà một hàm, là toán tử điểm cố định, còn gọi là "giới hạn công suất". Nó giữ trên máy tính series A, f A, f f A, ... cho đến khi ((f⍣i)A) g ((f⍣(i+1))A)trở về đúng đối với một số i. Trong trường hợp này, chúng tôi sử dụng match ( ≡) là g.

∨.∧⍨Ahoặc A∨.∧Alà một bước trong thuật toán của Floyd. f.glà một khái quát của phép nhân ma trận ( +.×), ở đây chúng tôi sử dụng kết hợp ( ∧) và phân biệt ( ∨) thay cho +và ×.

⊃⌽ Sau khi ⍣≡đã áp dụng bước đủ thời gian và đạt đến trạng thái ổn định, chúng ta phải tìm góc trên bên phải của ma trận để có kết quả, vì vậy chúng ta lật nó ( ⌽) và lấy mục đầu tiên, trên cùng bên trái ( ⊃).

Hình dung các ⍣≡bước của

Python, 164 byte

def s(a):
 d=[(0,0)]
 while d:i,j=d.pop();a[i][j]=2;d+=[(x,y)for x,y in[(i-1,j),(i,j-1),(i+1,j),(i,j+1)]if len(a[0])>y>-1<x<len(a)and a[x][y]<1]
 return a[-1][-1]>1

Tôi miễn cưỡng đăng bài này vì thực tế là tôi thường làm thế nào để lấp lũ, chỉ cần đánh golf nhẹ. Nhưng dù sao nó ở đây.

Perl, 73 byte

69 byte mã + 4 byte cho -n0E(không chắc các thẻ được tính vào năm 2014 như thế nào, vì vậy tôi đã đếm chúng cho 4 thay vì 2, nhưng nó không quan trọng lắm).

/.*/;s/(^0|A)(.{@{+}})?0/A$2A/s||s/0(.{@{+}})?A/A$1A/s?redo:say/A$/+0

Hãy thử trực tuyến! (và nếu bạn thay thế 1111011dòng bằng 1111111, mê cung sẽ không thể giải quyết được nữa và đầu ra sẽ 0thay vì 1: Hãy thử trực tuyến! )

Giải thích:

Mã này sẽ tìm thấy mọi ô có thể tiếp cận của mê cung (và đánh dấu chúng bằng a A): nếu một ô chạm vào một ô được đánh dấu bằng a A, thì nó có thể truy cập được và chúng ta cũng đánh dấu nó A; và chúng tôi làm điều đó một lần nữa ( redo). Điều đó được thực hiện nhờ hai regex: s/(^0|A)(.{@{+}})?0/A$2A/skiểm tra xem một khoảng trắng ở bên phải hay dưới cùng của a A, trong khi s/0(.{@{+}})?A/A$1A/skiểm tra xem một khoảng trắng ở bên trái hay trên đỉnh của a A. Cuối cùng, nếu ô cuối cùng chứa một ô có Athể truy cập được, nếu không thì không (đó là say/A$/+0kiểm tra; +0đây là để đảm bảo kết quả sẽ 0hoặc 1thay vì chuỗi rỗng và 1).
Lưu ý rằng /.*/sẽ khớp với toàn bộ một dòng, do đó cài đặt@+đến chỉ mục ở cuối dòng đầu tiên, có kích thước của một dòng, cho phép sử dụng để sử dụng .{@{+}}để khớp chính xác nhiều ký tự như trên một dòng. ( @{+}tương đương với @+, nhưng chỉ cái trước có thể được sử dụng trong regex)

Ruby, 133 130 129 ký tự

a=eval gets
f=->x,y{a[x][y]=1
[[-1,0],[1,0],[0,-1],[0,1]].map{|o|d,e=x+o[0],y+o[1]
f[d,e]if a[d]&&a[d][e]==0}}
f[0,0]
p a[-1][-1]

Đầu vào trên STDIN, đầu ra 1hoặc 0trên STDOUT.

Khó chịu dài. Nó chỉ đơn giản là lấp đầy lũ 1từ (0, 0), và sau đó kiểm tra xem hình vuông "kết thúc" có phải là a không 1.

Java, 418 byte

import java.util.Scanner;public class Solvable{static int w,h;public static void main(String[] a){String[]i=new Scanner(System.in).nextLine().split(";");h=i.length+2;w=i[0].length()+2;int[]m=new int[w * h];for(int x=1;x<w-1;x++)for(int y=1;y<h-1;y++)m[y*w+x]=i[y-1].charAt(x-1)<'.'?0:1;f(m,w+1);System.out.println(m[w*h-w-2]>0?0:1);}static void f(int[]m,int i){if(m[i]>0){m[i]--;f(m,i-1);f(m,i+1);f(m,i-w);f(m,i+w);}}}

Mã golf đầu tiên của tôi. Tôi không biết tại sao tôi chọn Java - thật tệ khi chơi golf xD

Ví dụ mê cung sẽ được nhập thông qua stdin như thế này:

......#;.....#.;....#..;#......

Con trăn 184 188

def f(a,x=0,y=0,h=[]):s=h+[[x,y]];X,Y=len(a[0]),len(a);return([x,y]in h)==(x>=X)==(y>=Y)==(x<0)==(y<0)==a[y][x]<(x==X-1and y==Y-1or f(a,x-1,y,s)|f(a,x+1,y,s)|f(a,x,y-1,s)|f(a,x,y+1,s))

Điều này kéo dài hơn nhiều so với tôi nghĩ nó sẽ xảy ra :( Dù sao đi nữa, tôi sẽ thêm một lời giải thích một khi tôi không thể đánh golf nó nữa.

J, 75 ký tự

Cung cấp năng lượng cho ma trận kề (rất không hiệu quả về thời gian và bộ nhớ). (Có được gọi là powering trong tiếng Anh không?)

   ({.@{:@(+./ .*.^:_~)@(+:/~@,*2>(>@[+/@:|@:->@])"0/~@,@(i.@#<@,"0/i.@#@|:)))

Một số trường hợp thử nghiệm:

   m1=. 0 0 0 0 0 0 1,. 0 0 0 0 0 1 0,.  0 0 0 0 1 0 0,. 1 0 0 0 0 0 0
   m2=. 0 1 1 ,. 0 0 0
   m3=. 0 1 0 ,. 1 1 0
   m4=. 0 1 1 0 ,. 0 0 1 0
   ({.@{:@(+./ .*.^:_~)@(+:/~@,*2>(>@[+/@:|@:->@])"0/~@,@(i.@#<@,"0/i.@#@|:))) every m1;m2;m3;m4
1 1 0 0

Python 3 , 147 byte

def f(g,s=[1]):w=len(g[0])+1;*p,x=s;return~-(x in p)*~-[j for i in g+[w*[1]]for j in[1]+i][x]and max(f(g,s+[x+a])for a in(-1,1,-w,w))or x==w*len(g)

Hãy thử trực tuyến!

Cổng câu trả lời của tôi để Tìm tuyến đường ngắn nhất trên đường ASCII .

Python 3 , 184 byte

f=lambda m,x=0,y=0,n=0:n<len(m)*len(m[0])and m[x][y]<1and((x,y)==(len(m)-1,len(m[0])-1)or any(0<=i<len(m)and 0<=j<len(m[0])and f(m,i,j,n+1)for i,j in[(x-1,y),(x,y-1),(x+1,y),(x,y+1)]))

Hãy thử trực tuyến!