Maze generation: Difference between revisions
→Quality Breadth-First: Remove fr (frontier cells) hash table that contributes nothing.
(→Quality Breadth-First: Remove fr (frontier cells) hash table that contributes nothing.) |
|||
Line 7,031:
(defun make-maze-impl (cu)
(let ((
(c sc))
(set [
(while q
(let* ((cu (first q))
(ne (rnd-pick (remove-if
(cond (ne (set [
(push ne [pa cu])
(push cu [pa ne])
Line 7,045 ⟶ 7,044:
(set q (shuffle q))
(set c sc))))
(t (
(defun make-maze (w h sf)
|