Maze generation: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,101: / Line 2,101: @@
        RandomSample@{# + {0, 1}, # - {0, 1}, # + {1, 0}, # - {1,
 }}}]} &@RandomChoice@unvisited; maze];
-maze = MazeGraphics[13, 21]</lang>
+maze = MazeGraphics[21, 13]</lang>
 {{Out}}
 [[File:MathematicaMazeGraphics.png]]
@@ Line 2,109: / Line 2,109: @@
 <lang mathematica>MazeGraph[m_, n_] :=
   Block[{$RecursionLimit = Infinity, grid = GridGraph[{m, n}],
-    visited = {},
+    visited = {}},
-    edges = {}}, {AppendTo[visited, #];
+   Graph[Range[m n], Reap[{AppendTo[visited, #];
-      Do[If[FreeQ[visited, neighbor],
+         Do[
-        AppendTo[edges, # <-> neighbor]; #0@neighbor], {neighbor,
+          If[FreeQ[visited, neighbor],
+           Sow[# <-> neighbor]; #0@neighbor], {neighbor,
-        RandomSample@AdjacencyList[grid, #]}]} &@
+           RandomSample@AdjacencyList[grid, #]}]} &@
-    RandomChoice@VertexList@grid;
+       RandomChoice@VertexList@grid][[2, 1]],
-   Graph[Range[m n], edges,
     GraphLayout -> {"GridEmbedding", "Dimension" -> {m, n}}]];
 maze = MazeGraph[13, 21]</lang>