Maze generation: Difference between revisions
→Quality Breadth-First: Replace ad-hoc scramble function with language built-in.
(→Simple, Depth-First: Use language-provided shuffle function.) |
(→Quality Breadth-First: Replace ad-hoc scramble function with language built-in.) |
||
Line 6,864:
(defvar pa) ;; path connectivity hash
(defvar sc) ;; count, derived from straightness fator
(defun rnd-pick (list)
Line 6,894 ⟶ 6,887:
(push ne q)
(cond ((<= (dec c) 0)
(set q (
(set c sc))))
(t (set [vi cu] t)
|