Загадка

• Роздрукуйте 0, якщо лабіринт n * m не вдається вирішити
• Роздрукуйте 1, якщо лабіринт n * m можна вирішити (1 або більше способів)

(тому я не прошу шляхів, але якщо це можливо вирішити !!!)

Вхідний масив (2d):

[[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

Правило Стартове положення дорівнює 0,0, а кінцеве положення - n, м. Ви можете рухатись лише горизонтально і вертикально Найкоротший код виграє

CJam, 42 41 39 36 35 байт

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

Виходячи з ідей цієї відповіді .

4 байти завдяки оптимізатору.

Формат введення:

[[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, 27 символів

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

⎕оцінений вхід. APL розрізняє матрицю і вектор векторів. Ця програма передбачає, що вхід є матрицею.

(~×⍳∘⍴)Aє виделкою, еквівалентною (~A) × ⍳⍴A. Потрібно уникати згадування ⎕двічі або введення змінної.

⍴Aце форма A. Для матриці 4 на 7 форма є 4 7.

⍳є генератором індексів. ⍳4є 1 2 3 4. ⍳4 7- це вектори, (1 1)(1 2)...(4 7)розташовані в матриці 4 на 7.

~Aгортає шматочки A.

×помноживши ⍳⍴Aна перевернуті біти, ми зберігаємо координати всіх вільних комірок і перетворюємо всі стінки на 0 0.

,розгортає матрицю пар координат, тобто лінеаризує її у вектор. У цьому випадку вектор буде складатися з пар.

∘.-⍨Aабо A∘.-Aвіднімати елементи Aпопарно. Зауважимо, що тут елементи Aсамих пар.

| абсолютне значення

+/¨підсумовуйте кожну пару абсолютних значень. Це дає нам відстані сітки між кожною парою комірок у лабіринті, окрім стін.

1≥нас цікавлять лише сусіди на відстані не більше 1, це також виключає стіни. Тепер у нас є матриця суміжності графіка.

∨.∧⍨⍣≡ Флойд - алгоритм транзитивного закриття Варшалла

(f⍣n)A(не використовується тут), де nціле число - це оператор електроенергії. Це відноситься fдо A nчасу: f f ... f A.

(f⍣g)Aде gфункція - це оператор нерухомої точки, він же "обмеження потужності". Він продовжує обчислення серії A, f A, f f A, ... до ((f⍣i)A) g ((f⍣(i+1))A)повернення вірно для деяких i. У цьому випадку ми використовуємо match ( ≡) як g.

∨.∧⍨Aабо A∨.∧Aє кроком в алгоритмі Флойда. f.gє узагальненням матричного множення ( +.×), тут ми використовуємо сполучник ( ∧) і диз'юнкцію ( ∨) замість +і ×.

⊃⌽ Після ⍣≡того, як достатньо разів застосували крок і досягли стабільного стану, ми повинні шукати верхній правий кут матриці, щоб отримати результат, тому перевертаємо його ( ⌽) і беремо перший, лівий верхній елемент ( ⊃).

Візуалізація ⍣≡кроків Росії

Пітон, 164 байти

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

Я неохоче публікував це, оскільки це практично, як я зазвичай роблю заливку, просто злегка гольфуючи. Але ось це все одно.

Perl, 73 байти

69 байт коду + 4 байти для -n0E(не впевнений, як теги де підраховували в 2014 році, тому я порахував їх за 4 замість 2, але це не має великого значення).

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

Спробуйте в Інтернеті! (і якщо ви заміните 1111011рядок на 1111111, лабіринт вже не вирішується, а вихід буде 0замість 1: Спробуйте в Інтернеті! )

Пояснення:

Цей код знайде кожну досяжну клітинку лабіринту (і позначимо їх а A): якщо клітина торкається клітини, позначеної символом a A, вона є доступною, і ми також її позначаємо A; і робимо це знову ( redo). Це робиться завдяки двом регулярним виразам: s/(^0|A)(.{@{+}})?0/A$2A/sперевіряє, чи пробіл знаходиться праворуч або внизу A, а s/0(.{@{+}})?A/A$1A/sперевіряється, чи пробіл знаходиться зліва чи вгорі A. Зрештою, якщо останній осередок містить Aце були досяжні, інакше це не (це те, що say/A$/+0чеки, а +0тут , щоб переконатися , що результат буде 0або 1замість порожнього рядка і 1).
Зверніть увагу, що це /.*/буде відповідати цілому рядку, таким чином налаштовуючи@+до індексу кінця першого рядка, який буває розміром рядка, які дозволяють використовувати, щоб використовувати, .{@{+}}щоб відповідати рівно стільки символів, скільки їх є на рядку. ( @{+}еквівалентно @+, але в регулярному вираженні можна використовувати лише колишній)

Рубі, 133 130 129 символів

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]

Вхід на STDIN, виходи 1або 0на STDOUT.

Дратівливо довго. Він просто заповнює заливку 1s (0, 0), а потім перевіряє, чи є "кінцевим" квадрат a 1.

Java, 418 байт

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);}}}

Мій перший гольф-код. Я не знаю, чому я вибрав Java - це так погано для гольфу в xD

Приклад лабіринту буде введено через stdin так:

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

Пітон 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))

Це стало набагато довше, ніж я думав, що це буде :( У будь-якому разі, я додам пояснення, як тільки більше не можу гольфу.

J, 75 символів

Підключення матриці суміжності (неефективний час і пам'ять). (Це англійською мовою називається живлення?)

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

Деякі тестові випадки:

   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 байт

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)

Спробуйте в Інтернеті!

Порт моєї відповіді, щоб знайти найкоротший маршрут на дорозі ASCII .

Пітон 3 , 184 байти

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

Спробуйте в Інтернеті!