(in-package #:mazes)

; (ql:quickload :mazes)
(defvar g (make-grid 5 5))

(defvar sw (make-sidewinder g))

(defvar c00 (get-cell g 0 0))

(defvar d (make-distance c00 g))

(defvar dcells (distance-cells d))

(defvar dc (calculate-distance d))

(defun hash-keys (hash-table)
  (loop for key being the hash-keys of hash-table collect key))