Data update

Task/Maze-generation/PascalABC.NET/maze-generation.pas

@@ -0,0 +1,29 @@
+const
+  w = 14;
+  h = 10;
+
+var
+  vis := (0..h - 1).Select(x -> [false] * w).ToArray;
+  hor := (0..h).select(x -> ['+---'] * w + [string('+')]).ToArray;
+  ver := (0..h - 1).select(x -> ['|   '] * w + [string('|')]).ToArray;
+
+procedure walk(x, y: integer);
+begin
+  vis[y][x] := true;
+  foreach var p in ||x - 1, y|, |x, y + 1|, |x + 1, y|, |x, y - 1||.Shuffle do
+  begin
+    if (p[0] not in (0..w - 1)) or (p[1] not in (0..h - 1)) or vis[p[1]][p[0]] then continue;
+    if p[0] = x then hor[max(y, p[1])][x] := '+   ';
+    if p[1] = y then ver[y][max(x, p[0])] := '    ';
+    walk(p[0], p[1]);
+  end;
+end;
+
+begin
+  walk(random(w), random(h));
+  foreach var (a, b) in hor.zip(ver + [''], (x, y) -> (x, y)) do
+  begin
+    a.println('');
+    b.println('');
+  end;
+end.