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 scramble (list)
(let ((out ()))
(each ((item list))
(let ((r (rand (+ 1 (length out)))))
(set [out r..r] (list item))))
out))
 
(defun rnd-pick (list)
Line 6,894 ⟶ 6,887:
(push ne q)
(cond ((<= (dec c) 0)
(set q (scrambleshuffle q))
(set c sc))))
(t (set [vi cu] t)
543

edits