Maze generation: Difference between revisions
→Simple, Depth-First: Use language-provided shuffle function.
m (→{{header|Ol}}) |
(→Simple, Depth-First: Use language-provided shuffle function.) |
||
Line 6,747:
(defvar vi)
(defvar pa)
(defun neigh (loc)
Line 6,763 ⟶ 6,756:
(defun make-maze-rec (cu)
(set [vi cu] t)
(each ((ne (
(cond ((not [vi ne])
(push ne [pa cu])
|